使用通配符筛选的VBA宏失效，请求技术协助

代码里的问题： #

• *Field:=1 前面多了个星号，属于语法错误，需改成 Field:=1
• Criteria1:= "* - 0000*"), 末尾多了一个右括号，直接删除该括号即可
• Operator:= xlFilterValues*** 末尾多三个星号，且xlFilterValues是用于数组值筛选的操作符，你用单个通配符条件完全不需要这个参数，直接删掉整行Operator相关内容
• 先选中A列开启自动筛选，后续又对G列设置筛选，逻辑混乱，建议先清除现有筛选再进行操作

修正后的代码： #

Sub Macro2()
    ' 先清除工作表已有的筛选
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
    End If
    
    ' 对G3:G1135范围用通配符筛选
    ActiveSheet.Range("$G$3:$G$1135").AutoFilter Field:=1, Criteria1:= "* - 0000*"
End Sub

说明： #

• 增加清除现有筛选的逻辑，避免旧筛选干扰新操作
• 移除所有多余符号和无效参数，语法完全合规
• 直接针对目标列操作，省去不必要的选中步骤，运行更高效

内容的提问来源于stack exchange，提问作者Yolanda CB