Копирование строк с определенным значением vba excel

Question

Привет, все, у меня есть лист с более чем 60 000 строк, и я хочу скопировать все строки на новый лист, если столбец строки содержит определенное значение, например, Energizer, как в следующем коде

Sub Macro3() 
    Dim rngA As Range 
    Dim cell As Range 
    Set col = Cells(Rows.Count, "A").End(xlUp) 

    Set rngA = Range("A2", col) 
    For Each cell In rngA 
     If cell.Value = "Energizer" Then 
      cell.EntireRow.Copy 

     End If 
    Next cell 

End Sub 

Код не работает вообще, что можно сделать?

Answer 1

Следующие копии копируют все строки, содержащие «Energizer» в столбце A в буфер обмена.

Sub Macro3() 
    Dim rngA As Range 
    Dim cell As Range 
    Dim col As Range 
    Dim copiedRange As Range 
    Dim r As Integer 

    Set col = Cells(Rows.Count, "A").End(xlUp) 
    r = 0 
    Set rngA = Range("A2", col) 

    For Each cell In rngA 
     If cell.Value = "Energizer" Then 
      If r = 0 Then 
       Set copiedRange = cell.EntireRow 
       r = 1 
      Else 
       Set copiedRange = Union(copiedRange, cell.EntireRow) 
      End If 
     End If 
    Next cell 


    If r = 1 Then 
     copiedRange.Copy 
    End If 


End Sub 

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

Answer 2

Если это действительно весь ваш код, вы забыли вставить скопированную строку на новый лист.