如何在Excel中实现多列同时自动筛选？

嘿，我太懂你遇到的这个麻烦了！现在你的代码每次选中一个筛选条件时，都会先关掉整个工作表的自动筛选，然后只对当前列单独设置筛选——这就直接把之前列的筛选给覆盖掉了。要实现多列筛选同时生效，我们得每次修改时重新应用所有列的筛选规则，而不是只处理当前改动的那列。

修改思路 #

1. 别再清空整个筛选：不要一上来就关掉AutoFilterMode，先检查工作表有没有开启自动筛选，没开的话再开启就行。
2. 收集所有筛选条件：每次触发事件时，先读取B1到G1所有表头的筛选值，然后依次给每一列应用对应的筛选规则。
3. 防止循环触发事件：设置筛选时可能会再次触发Worksheet_Change，所以得临时关闭事件触发，操作完再恢复回来。

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义变量
    Dim lastrow As Long
    Dim filterRange As Range
    Dim headerCell As Range
    Dim filterCols As Range
    
    ' 只处理B1到G1的修改，其他区域改动直接退出
    Set filterCols = Me.Range("B1:G1")
    If Intersect(Target, filterCols) Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免循环调用
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 出错时确保能恢复事件触发
    
    ' 获取数据区域最后一行（这里用C列做参考，你可以根据实际调整）
    lastrow = Me.Cells(Me.Rows.Count, "C").End(xlUp).Row
    ' 定义要筛选的整个数据区域（从B2到G列最后一行）
    Set filterRange = Me.Range("B2:G" & lastrow)
    
    ' 开启自动筛选（如果还没开启的话）
    If Not Me.AutoFilterMode Then
        filterRange.AutoFilter
    End If
    
    ' 遍历每个筛选表头，应用对应的筛选规则
    For Each headerCell In filterCols
        ' 计算当前列在筛选区域中的字段序号（比如B列是第1，C列是第2...）
        Dim fieldNum As Integer
        fieldNum = headerCell.Column - filterRange.Column + 1
        
        If headerCell.Value <> "" Then
            ' 表头有值时，设置该列的筛选条件
            filterRange.AutoFilter Field:=fieldNum, Criteria1:=headerCell.Value
        Else
            ' 表头为空时，清除该列的筛选
            filterRange.AutoFilter Field:=fieldNum
        End If
    Next headerCell
    
    ' 特殊情况：如果所有表头都是空的，直接关闭自动筛选
    If WorksheetFunction.CountA(filterCols) = 0 Then
        Me.AutoFilterMode = False
    End If

Cleanup:
    ' 恢复事件触发
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "筛选过程中出现错误：" & Err.Description, vbExclamation
    End If
End Sub

关键细节说明 #

• 事件触发控制：Application.EnableEvents = False这行必须加，因为设置筛选时会改变工作表的显示状态（比如行的隐藏/显示），如果不关闭事件，会反复触发Worksheet_Change，导致无限循环。
• 整体筛选区域：我们把B2到G列最后一行作为整体筛选区域，这样每一列的筛选都是基于这个统一区域，不会互相覆盖之前的筛选规则。
• 空值处理：如果某个表头单元格是空的，会自动清除该列的筛选，这样你可以随时取消某一列的筛选，同时保留其他列的筛选效果。
• 错误处理：加入On Error GoTo Cleanup是为了确保哪怕筛选过程中出了错，事件触发功能也能恢复，不会影响后续的工作表操作。

现在你可以测试一下：先在B1选一个值，再去C1选另一个值，两列的筛选会同时生效啦！

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