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提到的沒有空標題。列的順序無關緊要，只要它們拼寫相同即可。