我正在使用以下代码根据D列中的条件从主工作表中复制所有行
名为Sheet1的主表 D列中的条件匹配
Sub CopyRow()
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim x As Long
x = 1
Dim rng As Range
For Each rng In Sheets("Sheet1").Range("D3:D" & LastRow)
If rng = "MATCH" Then
rng.EntireRow.Copy
Sheets("TEST").Cells(x, 1).PasteSpecial xlPasteValues
x = x + 1
End If
Next rng
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
但是我只想在某些列之间移动,例如C,D,H,M,P列