高级筛选复制某些列

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