Excel VBA多条件Autofilter问题：数组筛选仅生效最后一个条件

你的问题出在操作符使用错误：当用数组作为筛选条件时，xlOr并不适用——它仅支持Criteria1和Criteria2两个条件的场景。3个及以上的多条件模糊筛选，可采用以下两种可行方案：

方案一：使用高级筛选（AdvancedFilter） #

高级筛选天然支持多条件模糊匹配，且扩展性强，新增条件只需在条件区域添加行即可：

1. 先在工作表空白区域（比如Z列）设置条件区域，每个条件占一行，格式为=*产品名称*：

   Z1: =*Product A*
   Z2: =*Product B*
   Z3: =*Product C*
   

2. 运行以下VBA代码：

   Sub MultiWildcardFilter()
       Dim ws As Worksheet
       Set ws = ActiveSheet ' 可替换为指定工作表，比如ThisWorkbook.Worksheets("Sheet1")
       
       ' 清除现有筛选
       If ws.AutoFilterMode Then ws.AutoFilterMode = False
       
       ' 定义条件区域（根据实际位置调整）
       Dim criteriaRange As Range
       Set criteriaRange = ws.Range("Z1:Z3")
       
       ' 执行高级筛选（原地筛选）
       ws.Range("A1:M" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).AdvancedFilter _
           Action:=xlFilterInPlace, CriteriaRange:=criteriaRange, Unique:=False
   End Sub
   

方案二：先收集匹配值再用AutoFilter #

如果坚持用AutoFilter，需要先遍历列收集所有符合模糊条件的实际值，再用这些值作为数组筛选：

Sub AutoFilterMultiWildcard()
    Dim ws As Worksheet
    Dim filterCol As Range
    Dim uniqueVals As Collection
    Dim cell As Range
    Dim criteriaArr() As String
    Dim i As Integer
    
    Set ws = ActiveSheet
    ' 第6列对应F列，从第2行开始（跳过表头）
    Set filterCol = ws.Range("F2:F" & ws.Cells(ws.Rows.Count, "F").End(xlUp).Row)
    Set uniqueVals = New Collection
    
    ' 遍历收集所有匹配条件的唯一值
    On Error Resume Next ' 忽略重复项报错
    For Each cell In filterCol
        If cell.Value Like "*Product A*" Or cell.Value Like "*Product B*" Or cell.Value Like "*Product C*" Then
            uniqueVals.Add cell.Value, Key:=CStr(cell.Value)
        End If
    Next cell
    On Error GoTo 0
    
    ' 转换为数组供筛选使用
    ReDim criteriaArr(1 To uniqueVals.Count)
    For i = 1 To uniqueVals.Count
        criteriaArr(i) = uniqueVals(i)
    Next i
    
    ' 应用筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    ws.Range("A1:M1").AutoFilter Field:=6, Criteria1:=criteriaArr, Operator:=xlFilterValues
End Sub

关键说明 #

• 原代码用xlOr配合数组是错误用法，xlFilterValues才是数组多条件筛选的正确操作符，但它只支持精确匹配，所以模糊匹配必须先收集实际值或用高级筛选。
• 新增条件时，方案一只需在条件区域添加行，方案二则在Like判断里新增Or cell.Value Like "*新产品*"即可。

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