![如何根据某些标准将行从一张表复制到另一张表?](https://linux22.com/image/1540539/%E5%A6%82%E4%BD%95%E6%A0%B9%E6%8D%AE%E6%9F%90%E4%BA%9B%E6%A0%87%E5%87%86%E5%B0%86%E8%A1%8C%E4%BB%8E%E4%B8%80%E5%BC%A0%E8%A1%A8%E5%A4%8D%E5%88%B6%E5%88%B0%E5%8F%A6%E4%B8%80%E5%BC%A0%E8%A1%A8%EF%BC%9F.png)
我需要根据一些条件将 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