高级筛选复制某些列
问题描述:
我正在使用高级筛选,并且代码正在将所有已筛选的行复制到新选项卡。现在我不想复制所有内容,只能按范围复制所选列。高级筛选复制某些列
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
任何想法如何选择特定的列?
答
你可以检查,这种方式也适用。
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