Переместить целую строку на другой лист, если он содержит указанное слово

Question

Я пытаюсь найти код, который поможет мне переместить всю строку на другой лист, если он содержит слово «Обработка» оригинального листа, называется «Выход 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