使用'AdvanceFilter'input不匹配错误

我正在尝试为工作簿中的多个工作表自动化一个AdvancedFilter。 然而，我遇到Type Mismatch ，我找不到什么需要改变，因为逐步加亮整个代码块。 显示的错误是：

运行时错误“13”：types不匹配

码：

 Private Sub CommandButton1_Click() For Each ws In Array(Worksheets("test"), Worksheets("test1"), Worksheets("test2"), Worksheets("test3"), Worksheets("test4")) ws.Activate Sheets("Main").Range("A:J").AdvanceFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets(ws).Range("A1:A2"), CopyToRange:=Sheets(ws).Range("A3"), Unique:=False Next End Sub 

Answer 1

用这个replace你的AdvancedFilter行：

 Sheets("Main").Range("A:J").AdvancedFilter xlFilterCopy, ws.Range("A1:A2"), ws.Range("A3")