Excel: скопировать и вставить строки на другом листе на основе ячейки

Question

Я пытаюсь сделать код, который проверяет номера в листе мастера, который называется All в столбце D (например, 780101), и если он соответствует критериям, он копирует весь ряд и вставляет (не вставляют) его на другой лист с именем критериев (например, 780101), начиная с строки 6. Код, который у меня есть, не работает, как я этого хочу. Он не копирует все строки, соответствующие критериям, и иногда он вставляет пустые строки.

Sub Insert() 
For Each Cell In Sheets("All").Range("D:D") 
If Cell.Value = "780101" Then 
    matchRow = Cell.Row 
    Rows(matchRow & ":" & matchRow + 1).Select 
    Selection.Copy 
    Sheets("780101").Select 
    Rows("6:6").Select 
    Selection.Insert Shift:=xlDown 
End If 
Next 
End Sub 

Я только начинаю изучать VBA, так что, если это может быть возможным имена листов будет критерии значения ячеек (код для использования только в одном листе - 780101, но есть 20 листов с разными названиями).

Answer 1

Трудно давать рекомендации, не видя данные образца и что может потенциально вызвать проблемы, которые у вас возникают, но вы можете запустить этот пересмотр существующего кода.

Sub Insert() 
    Dim dc As Range 
    With Sheets("All") 
     For Each dc In Intersect(.Range("D:D"), .UsedRange) 
      If dc.Value2 = 780101 Then 
       dc.Resize(2, 1).EntireRow.Copy 
       Sheets("780101").Rows(6).Insert Shift:=xlDown 
      End If 
     Next 
    End With 
End Sub 

Характер бега, который сверху донизу означает, что результаты будут отменены. Вы можете захотеть запустить основной цикл снизу вверх, чтобы сохранить порядок.