excel - 错误 - 运行时错误 9“下标超出范围”

Question

我的代码有错误：

Sub Macro1()
'
' Macro1 Macro
'

'

Dim a As String

 a = "=*" & CStr(Range("a2").Value) & "*"

   With Sheet1.ListObjects("Table2")
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
    End With


    If IsEmpty(Range("a2")) = False Then

        ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=a, Operator:=xlAnd

    Else: End If

我不明白为什么我会收到动态标准错误。任何人都可以提供帮助或建议吗？（错误是在行开头

ActiveSheet.ListObjects

谢谢

标签： excelvbaautofilter