多工作表AutoFilter宏疑问：X列排除0后筛选下拉无勾选状态

我有一个包含最多20个工作表的电子表格，所有工作表的列结构完全一致。我希望编写VBA宏，对每个工作表的X列执行AutoFilter操作，排除值为0的行。我已编写了如下宏代码，但点击筛选下拉菜单时未显示勾选标记，不确定宏是否正常生效，恳请提供相关建议。

Sub Apply_Diff_Qty_Exclude_Zero()
'
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A2").AutoFilter 24, "<> 0"
    Next
End Sub

问题排查点 #

• On Error Resume Next屏蔽错误：这句代码会跳过所有运行错误，比如工作表被保护、数据区域不存在等问题，导致你无法得知宏执行时的异常
• 筛选范围不明确：仅指定A2作为筛选起点，Excel可能无法识别完整的数据区域，导致筛选逻辑异常
• 条件中的空格问题："<>" 0里的空格可能导致筛选条件匹配异常，改用"<>0"更可靠

修正后的宏代码 #

Sub Apply_Diff_Qty_Exclude_Zero()
    Dim xWs As Worksheet
    Dim dataRange As Range
    
    '遍历工作簿内所有工作表
    For Each xWs In ThisWorkbook.Worksheets
        '先清除当前工作表的已有筛选
        If xWs.AutoFilterMode Then xWs.AutoFilterMode = False
        
        '定位完整数据区域：表头在第2行，从A列到X列，包含所有非空行
        Set dataRange = xWs.Range("A2", xWs.Cells(xWs.Rows.Count, "X").End(xlUp))
        
        '对X列（第24列）应用筛选，排除0值
        dataRange.AutoFilter Field:=24, Criteria1:="<>0"
        
        Set dataRange = Nothing
    Next xWs
End Sub

验证与注意事项 #

• 执行宏后，查看X列下方的行是否有被隐藏：如果有，说明筛选已生效。自定义筛选（如<>0）的下拉菜单不会显示具体勾选项，这是正常现象
• 移除On Error Resume Next后，若宏报错，可根据错误提示排查问题（比如工作表保护、无有效数据等）
• 如果你的表头不在第2行，需调整dataRange中的起始行号；若X列不是第24列，修改Field:=24为对应列索引

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