Как скопировать строки с одного листа на другой по некоторым критериям?

Question

Мне нужно скопировать строки с одного листа на другой лист в Excel, основываясь на некоторых критериях. Если на листе 1 в некоторой ячейке строки в столбце H есть "X", я хочу, чтобы этот столбец с отверстиями был скопирован на листе 2. И я хочу это для всех строк в листе 1. У меня сейчас около 130 строк на листе 1, но в будущем их будет больше. Может кто-нибудь может мне помочь? Спасибо ненадо

Answer 1

Следующий код фильтрует данные в column H , устанавливая "X" в качестве критерия. Результат фильтрации копируется в Sheet2

Sub CriteriaCopy()

    With ActiveSheet.Range("A:L")
         .AutoFilter Field:=8, Criteria1:="" & X & ""
    End With

    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Worksheets("Sheet2").Range("A1")

End Sub