Excel多工作表按单元格值筛选VBA代码失效，求排查原因

问题点： #

• 错误被屏蔽：On Error Resume Next 会跳过所有错误，你无法定位具体问题（比如工作表无数据、列不存在、Sheet2引用失效等），直接掩盖了报错信息。
• 筛选列可能不通用：AutoFilter 3 指定第3列（C列），但不是所有工作表的第3列都是目标筛选列，部分工作表的表头可能不在A1，导致筛选范围错误。
• 未清除旧筛选：如果工作表已有筛选，直接叠加新筛选会导致逻辑混乱，甚至失效。
• Sheet2引用不严谨：如果Sheet2被重命名，Sheet2.Range("C4") 会报错；且未确保C4单元格有有效值，空值会导致筛选无效果。
• 未排除无需筛选的工作表：比如Sheet2本身，你大概率不需要对它应用筛选。

修正后的代码： #

Sub apply_autofilter_across_worksheets()
    Dim xWs As Worksheet
    Dim filterValue As Variant
    
    ' 获取筛选值，用工作表名称引用更严谨
    filterValue = ThisWorkbook.Worksheets("Sheet2").Range("C4").Value
    
    ' 检查筛选值是否为空
    If IsEmpty(filterValue) Then
        MsgBox "Sheet2的C4单元格为空，请输入筛选值！"
        Exit Sub
    End If
    
    For Each xWs In ThisWorkbook.Worksheets
        ' 排除Sheet2本身
        If xWs.Name <> "Sheet2" Then
            With xWs
                ' 先清除现有筛选
                If .AutoFilterMode Then .AutoFilterMode = False
                ' 假设表头在A1，且要筛选第3列，可根据实际修改列号
                .Range("A1").CurrentRegion.AutoFilter Field:=3, Criteria1:=filterValue
            End With
        End If
    Next xWs
End Sub

额外说明： #

• 如果不同工作表的筛选列不一样，需要单独指定每个工作表的目标列，或者统一表头名称，用Range("表头名称").Column来获取列号，更灵活。
• 如果有些工作表没有数据或者表头，建议加判断：If .Range("A1").CurrentRegion.Rows.Count > 1 Then 再执行筛选，避免空表报错。

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