Question

我正在尝试为工作簿中的多个工作表自动化AdvancedFilter。但是，我遇到了Type Mismatch，我无法找到需要更改的内容，因为单步执行会突出显示整个代码块。显示的错误是：

运行时错误'13'：类型不匹配

代码：

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

将AdvancedFilter行替换为：

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

使用'AdvanceFilter'键入不匹配错误

1 个答案: