如何在Excel中同时对多列应用筛选且保留已有筛选状态

问题根源 #

你当前代码里的ws.AutoFilterMode = False会强制关闭工作表上所有自动筛选，导致每次点击按钮都重置之前的筛选状态，这就是多按钮触发时筛选被清空的原因。

修改方案 #

核心是不重置全局筛选，直接针对目标列修改筛选条件，同时确保所有列共享同一个自动筛选上下文（基于整个数据区域而非单独列）。

修改后的代码示例（以筛选P列为例） #

Sub FilterColumnP()
    Dim ws As Worksheet
    Dim targetColIndex As Integer
    
    Set ws = Sheets("Database voor slicer")
    targetColIndex = 16 ' P列在数据区域中是第16列，根据实际表头位置调整
    
    ' 若工作表未开启自动筛选，先基于连续数据区域开启
    If Not ws.AutoFilterMode Then
        ' 假设表头在第1行，数据为A1开始的连续区域，可手动替换为固定范围如ws.Range("A1:P2000")
        ws.Range("A1").CurrentRegion.AutoFilter
    End If
    
    ' 对目标列设置筛选条件为"V"，保留其他列已有筛选
    ws.AutoFilter.Range.AutoFilter Field:=targetColIndex, Criteria1:="V"
End Sub

其他列的筛选代码示例（如D列、I列） #

只需修改targetColIndex的值即可：

• D列对应第4列：

Sub FilterColumnD()
    Dim ws As Worksheet
    Dim targetColIndex As Integer
    
    Set ws = Sheets("Database voor slicer")
    targetColIndex = 4 ' D列序号
    
    If Not ws.AutoFilterMode Then
        ws.Range("A1").CurrentRegion.AutoFilter
    End If
    
    ws.AutoFilter.Range.AutoFilter Field:=targetColIndex, Criteria1:="V"
End Sub

• I列对应第9列：

Sub FilterColumnI()
    Dim ws As Worksheet
    Dim targetColIndex As Integer
    
    Set ws = Sheets("Database voor slicer")
    targetColIndex = 9 ' I列序号
    
    If Not ws.AutoFilterMode Then
        ws.Range("A1").CurrentRegion.AutoFilter
    End If
    
    ws.AutoFilter.Range.AutoFilter Field:=targetColIndex, Criteria1:="V"
End Sub

关键注意事项 #

1. 数据区域范围：如果你的数据不是连续的（存在空行/空列），请将ws.Range("A1").CurrentRegion替换为固定范围，比如ws.Range("A1:P2000")
2. 列序号计算：targetColIndex是目标列在数据区域中的从左到右的序号（比如A列是1，B列是2，以此类推）
3. 取消某列筛选：如果需要取消某列的筛选，可将Criteria1:="V"替换为Criteria1:=""或Operator:=xlFilterAll

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