VBA копирует строки, которые соответствуют критериям, на другой лист
Я новичок в VBA ... Я хочу скопировать строку из Sheet2 в Sheet1, если первая ячейка в этом ряду говорит X, а затем сделать это для всех строк, которые соответствуют этому критерию. У меня ошибка в условии If ... Я нене знаю, как это исправить.
Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
Worksheets("Sheet2").Activate
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox (LastRow)
For i = 1 To LastRow
If Worksheet.Cells(i, 1).Value = "X" Then
ActiveSheet.Row.Value.Copy _
Destination:=Hoja1
End If
Next i
End Sub