我需要根据一些条件将 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