嘿，我懂你现在的困扰——你原来的代码每次调用AutoFilter都会把之前的筛选覆盖掉，所以没法同时应用多个选中的条件对吧？别担心，咱们换个思路：先把所有需要触发的筛选条件收集起来，再一次性应用到Sheet2上，这样就能实现多条件同时筛选的效果了。

核心思路 #

1. 遍历Sheet1中A14-A17的布尔值单元格
2. 把对应为True的条件（比如Option1、Option2）收集到一个数组里
3. 如果数组中有内容，就用多值筛选的方式一次性应用到Sheet2的A列；如果没有选中任何条件，就取消所有筛选

完整代码示例 #

Sub MultiConditionFilter()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim criteriaList As Variant
    Dim i As Integer
    Dim counter As Integer
    
    ' 定义工作表对象，让代码更清晰易维护
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 初始化数组存储筛选条件，最多容纳4个元素（对应A14-A17）
    ReDim criteriaList(1 To 4)
    counter = 0
    
    ' 遍历目标单元格，收集需要筛选的条件
    For i = 14 To 17
        If wsSource.Cells(i, 1).Value = True Then
            counter = counter + 1
            ' 根据行号匹配对应的筛选选项
            Select Case i
                Case 14: criteriaList(counter) = "Option1"
                Case 15: criteriaList(counter) = "Option2"
                Case 16: criteriaList(counter) = "Option3"
                Case 17: criteriaList(counter) = "Option4"
            End Select
        End If
    Next i
    
    ' 根据收集到的条件执行筛选操作
    If counter > 0 Then
        ' 先取消之前的筛选，避免冲突
        wsTarget.Range("A1").AutoFilter
        ' 调整数组大小，去掉未使用的空元素
        ReDim Preserve criteriaList(1 To counter)
        ' 应用多条件筛选，关键参数是Operator:=xlFilterValues
        wsTarget.Range("A1").AutoFilter Field:=1, Criteria1:=criteriaList, Operator:=xlFilterValues
    Else
        ' 没有选中任何条件时，取消所有筛选
        wsTarget.Range("A1").AutoFilter
    End If
End Sub

关键细节解释 #

• Operator:=xlFilterValues：这个参数是实现多条件筛选的核心，它允许我们传入一个数组作为多个筛选条件，效果等同于手动在Excel筛选器中勾选多个选项。
• 先取消旧筛选：每次执行新筛选前先取消之前的筛选，能避免旧筛选规则干扰新的结果。
• 动态数组调整：用ReDim Preserve调整数组大小，确保只传递有效条件，不会出现空值导致的筛选错误。

额外小贴士 #

• 如果你的筛选选项不是固定的Option1-4，而是可以从Sheet1的其他单元格读取文本（比如A14旁边的B14是条件文本），可以把Select Case部分改成criteriaList(counter) = wsSource.Cells(i, 2).Value，让代码更灵活。
• 你可以把这个宏绑定到Sheet1的一个按钮上，用户点击就能直接触发筛选，操作更方便。
• 确保Sheet2的A列有表头（也就是A1是列标题），AutoFilter需要表头才能正常识别列范围。

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