Excel宏多国家通配符筛选失效求助：添加多国后无结果

我来帮你排查这个问题——你遇到的情况其实是Excel内置AutoFilter功能的一个隐性限制：当使用Operator:=xlFilterValues配合带通配符（*）的条件数组时，最多只能支持2个带通配符的条件。这就是为什么只加日本和中国时筛选有效，添加更多国家后就没有结果的核心原因。

下面给你两种可靠的解决方案，你可以根据自己的需求选择：

方法1：用辅助列+高级筛选（推荐，利用Excel原生功能） #

这种方法借助Excel的高级筛选功能，支持任意数量的通配符条件，稳定性很高：

1. 先在工作表的空白区域（比如F列）创建一个条件列表，每个国家前后加上通配符*：

   • F1单元格：随便写个表头（比如"包含国家"）
   • F2: *埃及*
   • F3: *美国*
   • F4: *中国*
   • F5: *俄罗斯*
   • F6: *日本*
   • F7: *乌干达*

2. 替换你的VBA宏代码为下面的版本：

Sub FilterCountries()
    Dim dataRange As Range
    Dim criteriaRange As Range
    
    ' 定义数据区域和条件区域（动态获取最后一行，避免硬编码）
    Set dataRange = ActiveSheet.Range("A1:D" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row)
    Set criteriaRange = ActiveSheet.Range("F1:F7")
    
    ' 清除之前的筛选状态
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    
    ' 执行高级筛选
    dataRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange
End Sub

方法2：纯VBA遍历匹配（无需辅助列） #

如果不想添加辅助列，可以直接用VBA遍历单元格，收集所有符合条件的行后统一处理：

Sub FilterCountries_VBA()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetCountries As Variant
    Dim matchedRows As Range
    
    ' 设置目标工作表
    Set ws = ActiveSheet
    ' 动态获取C列最后一行数据（避免硬编码1000）
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    ' 定义需要筛选的国家列表
    targetCountries = Array("埃及", "美国", "中国", "俄罗斯", "日本", "乌干达")
    
    ' 清除之前的筛选
    ws.AutoFilterMode = False
    
    ' 初始化存储匹配行的范围
    Set matchedRows = Nothing
    
    ' 遍历C列数据（跳过表头，从第2行开始）
    For i = 2 To lastRow
        Dim country As Variant
        For Each country In targetCountries
            ' 检查当前单元格是否包含目标国家（忽略大小写）
            If InStr(1, ws.Cells(i, "C").Value, country, vbTextCompare) > 0 Then
                ' 将匹配行加入范围
                If matchedRows Is Nothing Then
                    Set matchedRows = ws.Cells(i, "C")
                Else
                    Set matchedRows = Union(matchedRows, ws.Cells(i, "C"))
                End If
                Exit For ' 找到匹配后跳出内层循环，避免重复处理
            End If
        Next country
    Next i
    
    ' 根据匹配结果处理显示
    If Not matchedRows Is Nothing Then
        ' 先隐藏所有数据行
        ws.Range("2:" & lastRow).EntireRow.Hidden = True
        ' 再显示匹配的行
        matchedRows.EntireRow.Hidden = False
    Else
        MsgBox "没有找到匹配的国家数据"
    End If
End Sub

额外小提示 #

• 方法1的优势是逻辑简单，依赖Excel原生功能，不容易出错；
• 方法2适合不想修改工作表结构的场景，而且vbTextCompare参数可以实现大小写不敏感的匹配；
• 尽量不要硬编码行号（比如原来的1000），用lastRow动态获取最后一行，能避免遗漏数据或者处理多余的空行。

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