高級篩選複製某些列

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