如何在VBA中合并AutoFilter的多值筛选与后缀匹配筛选条件

嘿，我完全懂你遇到的麻烦——VBA的AutoFilter在处理多个精确值+通配符匹配的OR逻辑时，确实有天生的限制，你之前试的两种方法踩的都是常见坑：

• 用xlFilterValues加包含通配符的数组：这个参数只支持精确值或特定的内置筛选规则，数组里的*-R会被当成普通字符串，根本不会触发通配符匹配
• 用xlOr连Criteria1和Criteria2：这个逻辑最多只能处理两个条件，没法把三个精确值和一个通配符条件全部用OR串联起来

下面给你两个实用的解决方案，按需选择：

方案一：用辅助列实现（推荐，性能好） #

核心思路是先加一个辅助列，用公式标记每行是否符合条件，再对辅助列做筛选，简单直观还稳定：

Sub CombineFiltersWithHelper()
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1") '替换成你的工作表名称
    
    '清除现有筛选
    If targetSheet.AutoFilterMode Then targetSheet.AutoFilterMode = False
    
    '添加辅助列（这里用第12列，即L列，可自行调整）
    targetSheet.Range("L1").Value = "是否符合条件"
    '公式逻辑：要么是111/222/333，要么是以-R结尾
    '注意：把公式里的G2改成你第7列的对应单元格（比如第7列是G列）
    targetSheet.Range("L2:L2000").Formula = "=OR(OR(G2=""111"",G2=""222"",G2=""333""),RIGHT(G2,2)=""-R"")"
    
    '筛选辅助列中值为TRUE的行
    targetSheet.Range("A1:L2000").AutoFilter Field:=12, Criteria1:=True
    
    '可选：隐藏辅助列，让界面更整洁
    'targetSheet.Columns("L").Hidden = True
End Sub

方案二：手动循环隐藏行（无辅助列） #

如果不想添加额外列，可以直接遍历每行，判断后隐藏不符合条件的行，2000行的规模完全不会有性能问题：

Sub CombineFiltersWithoutHelper()
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim reworkSuffix As String
    
    reworkSuffix = "-R"
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1") '替换成你的工作表名称
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "G").End(xlUp).Row '获取第7列的最后一行
    
    '清除现有筛选和隐藏状态
    If targetSheet.AutoFilterMode Then targetSheet.AutoFilterMode = False
    targetSheet.Rows.Hidden = False
    
    '逐行判断并隐藏不符合条件的行
    For currentRow = 2 To lastRow
        Dim cellContent As String
        cellContent = CStr(targetSheet.Cells(currentRow, "G").Value) '获取第7列单元格的值
        
        '判断条件：不满足任一要求就隐藏
        If Not (cellContent = "111" Or cellContent = "222" Or cellContent = "333" _
            Or Right(cellContent, Len(reworkSuffix)) = reworkSuffix) Then
            targetSheet.Rows(currentRow).Hidden = True
        End If
    Next currentRow
End Sub

额外说明 #

• 如果你第7列不是G列，记得把代码里的G改成对应列标（比如第7列是G，第8列是H，以此类推）
• 方案一的辅助列方法在处理大量数据时，性能比循环更好；方案二更适合对工作表结构有严格要求的场景

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