VBA宏含通配符的多条件自动筛选（超2个条件）无结果问题求助

嘿，我之前也踩过这个AutoFilter的坑！你遇到的问题其实是VBA里xlFilterValues运算符的一个小限制——它压根不支持带通配符（*）的多条件模糊匹配，哪怕你写了=*xxx*，超过2个条件时Excel就会把这些当成精确字符串去匹配，自然找不到结果。

为什么2个条件能生效？ #

这其实是个偶然的兼容情况，当你只传2个带通配符的条件时，Excel会偷偷切换成xlOr的逻辑来处理，但超过2个就会回到xlFilterValues的原生逻辑（只支持精确值列表），所以就失效了。

解决方案1：用高级筛选（推荐） #

高级筛选完美支持多模糊条件，而且效率很高，还能避免Select这类容易出错的操作。直接替换你的代码就行：

Sub Macro2_Fixed()
    Dim ws As Worksheet
    Dim criteriaRange As Range
    Dim dataRange As Range
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Sheets("Bill")
    ' 定义要筛选的数据范围（包含表头）
    Set dataRange = ws.Range("$A$2:$AA$111")
    
    ' 临时创建条件区域（这里用Z列空白处，用完可以清除）
    ws.Range("Z1").Value = ws.Range("T2").Value ' 条件表头必须和数据列表头一致
    ws.Range("Z2").Value = "*Base ch*"
    ws.Range("Z3").Value = "*Service*"
    ws.Range("Z4").Value = "*Supply Ch*"
    ws.Range("Z5").Value = "*Customer*"
    ws.Range("Z6").Value = "*Analyst*"
    Set criteriaRange = ws.Range("Z1:Z6")
    
    ' 先清除之前的筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 应用高级筛选（原地筛选，不生成新表）
    dataRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange
    
    ' 可选：清除临时条件区域的内容
    criteriaRange.ClearContents
End Sub

解决方案2：逐行判断（适合小数据量） #

如果不想用高级筛选，也可以手动遍历每行，判断是否符合条件后隐藏行，逻辑更直观：

Sub Macro2_Loop()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim matchFound As Boolean
    Dim criteriaArray As Variant
    
    Set ws = ThisWorkbook.Sheets("Bill")
    lastRow = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row ' 获取T列最后一行数据
    criteriaArray = Array("*Base ch*", "*Service*", "*Supply Ch*", "*Customer*", "*Analyst*")
    
    ' 清除之前的筛选和隐藏状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    ws.Rows.Hidden = False
    
    ' 从第3行开始遍历（第2行是表头）
    For i = 3 To lastRow
        matchFound = False
        ' 检查当前单元格是否匹配任意一个条件
        For Each crit In criteriaArray
            If ws.Cells(i, "T").Value Like crit Then
                matchFound = True
                Exit For
            End If
        Next crit
        ' 不匹配就隐藏该行
        If Not matchFound Then ws.Rows(i).Hidden = True
    Next i
End Sub

额外建议 #

尽量别用Select和Selection这类操作，它们依赖当前活动单元格，很容易因为用户不小心点击其他地方而出错，直接用对象引用（比如ws.Range）更稳定可靠。

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