小编Dat*_*ist的帖子

我尝试使用自动筛选功能，但使用标题名称“ID”而不是列数的字段。我尽了最大努力，但收到此错误消息“高级过滤器在迭代时失败，运行时错误 1004”

我被它困住了两天。谢谢你的帮助

代码 ：

Sub AdataPreparation()
Dim WorkBk As Workbook, WorkSh As Worksheet, WrkTab As range, FilterRow As Variant
Set WorkBk = Workbooks.Open(Filename:="C:\Users\Documents\DataApplied.xlsm")
Set WorkSh = Sheets("sheet2") 
WorkSh.Activate 
Set WrkTab = range("A1").CurrentRegion 
WrkTab = ActiveRange
FilterRow = Application.Match("ID", WrkTab, 0)
Selection.AutoFilter Field:=FilterRow, Criteria1:="="
End Sub