如何根据某些标准将行从一张表复制到另一张表?

如何根据某些标准将行从一张表复制到另一张表?

我需要根据一些条件将 Excel 中的行从一张表复制到另一张表。如果在 Sheet 1 中 H 列的某些行单元格中有“X”,我希望将该列复制到 Sheet 2 上。并且我希望 Sheet 1 中的所有行都这样做。我现在在 Sheet 1 中有大约 130 行,但将来会更多。有人能帮我吗?谢谢,Nenad

答案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

相关内容