Excel VBA - 提取范围丢失或Range.AdvancedFilter上的非法错误

Question

我试图调试一些旧代码（不是由我写的），我得到以下运行时错误（1004）第一次AdvancedFilter方法在下面的代码中。

提取区域具有丢失或非法的字段名称

Application.Goto Reference:="first_line" 
'Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Name = "data" 

Application.Goto Reference:="heading" 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Name = "base" 

Application.Goto Reference:="col_last" 
Range(Selection, Selection.End(xlDown)).Select 
Selection.Name = "test_last" 



Sheets("work").Visible = True 
Application.Goto Reference:="base" 



Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(_ 
    "CsummaryA"), CopyToRange:=Range("SsummaryA"), Unique:=False 

' error actually happens at this line, not the previous one as I stated previously 
Application.Goto Reference:="base" 
Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range(_ 
    "Csummary"), CopyToRange:=Range("Ssummary"), Unique:=True 

上什么可能会导致错误的任何想法？

Answer 1

确保CriteriaRange和CopyToRange中的列标题在拼写方式上完全相同，并且JNevill提到的没有空标题。列的顺序无关紧要，只要它们拼写相同即可。