Question

我正在使用高级过滤，代码正在将所有已过滤的行复制到新标签页。现在我不想复制所有内容，只是按范围复制所选列。

Sheets("Data").Range("Tabel1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("Data").Range("AG1:AL2"),CopyToRange:=Sheets(“Filter”).Range(“B10″), Unique:=True

我尝试过这样的事情，但语法错误：

Sheets("Data").Range("Tabel1[#All]").AdvancedFilter, CriteriaRange:= _
Sheets("Data").Range("AG1:AL2"),Sheets("Data").Range("A1").Copy _
destination:=Sheets("Filter").Range("B10"),Unique:=True

如何选择某些列？

Answer 1

你可以检查，这种方式也有效。

Sub Try()  

Sheets("Data1").Select
Selection.AutoFilter
Range("$A$1:$P$16214").AutoFilter Field:=2, Criteria1:="AMERICA"
'Autofilter Field refers to Column. this case i am applying filter in 2nd column
Range("A1:P16214").Select

Selection.Copy
Sheets("Data2").Select
Range("A1").Activate
ActiveSheet.Paste

End Sub

高级过滤复制某些列

1 个答案: