Question

我试图找到一个代码，可以帮助我将整行移动到另一张纸上，如果它包含单词“Processing”，原始纸张称为“输出1”，而我需要移动它的纸张是“应用程序“这是我在网上找到的代码，但它给了我错误 - 谢谢（我不确定d和j的意思，因为我在网上得到它）

Set i = Sheets("Output 1")  
Set e = Sheets("Applications")  
Dim d  
Dim j  
d = 1  
j = 2   
Do Until IsEmpty(i.Range("B" & j))   
    If i.Range("B" & j) = "Processing" Then  
        d = d + 1  
        e.Rows(d).Value = i.Rows(j).Value   
    End If  
    j = j + 1  
Loop

Answer 1

这有用吗？

Sub DoIt()
    Dim i As Worksheet, e As Worksheet
    Dim d, j

    Set i = Sheets("Output 1")
    Set e = Sheets("Applications")
    d = 1
    j = 2

    Do Until IsEmpty(i.Range("B" & j))
        If i.Range("B" & j) = "Processing" Then
            d = d + 1
            e.Rows(d).Value = i.Rows(j).Value
        End If
        j = j + 1
    Loop
End Sub

如果整行包含指定的单词，则将整行移动到另一张表

1 个答案: