Excel VBA Autofilter多通配符条件无结果问题求助

嘿，我知道你遇到的这个VBA筛选问题有多头疼——两个品牌条件正常，加第三个就没结果，分两次筛又破坏小计。别慌，我来给你捋清楚原因，再给你两个靠谱的解决办法！

问题根源 #

你原来的代码里，给第9列设置三个带通配符的条件并使用Operator:=xlFilterValues，这其实踩了Excel AutoFilter的一个小坑：xlFilterValues只支持最多两个带通配符的筛选条件，超过两个的话，Excel就没法正确解析这些通配符规则，自然就筛不出数据了。这就是为什么两个品牌能正常工作，加第三个就失效的原因。

解决办法1：用高级筛选（推荐，适合大数据集） #

高级筛选对多通配符条件的支持更好，而且不会破坏原工作表的小计（因为它是直接复制符合条件的数据，不会修改原表的筛选状态）。下面是完整的VBA代码：

Sub AdvancedFilterLeasedPayments()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim rngSource As Range
    Dim rngCriteria As Range
    Dim lastRow As Long
    
    ' 指定数据源工作表和目标工作表
    Set wsSource = ActiveSheet ' 如果你的数据源不是当前表，改成具体工作表名，比如Worksheets("Data")
    Set wsDest = Worksheets("Leased Payments")
    
    ' 清空目标表原有数据（可选，根据需求调整）
    wsDest.Cells.Clear
    
    ' 获取数据源的完整范围（从A1到I列最后一行）
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    Set rngSource = wsSource.Range("A1:I" & lastRow)
    
    ' 在数据源表的空白区域创建临时条件区域（这里用J1:K4，你可以改成其他不冲突的位置）
    With wsSource
        ' 写入条件区域的表头（必须和数据源的表头一致）
        .Range("J1").Value = .Range("I1").Value ' 第9列的表头
        .Range("K1").Value = .Range("C1").Value ' 第3列的表头
        
        ' 写入品牌的通配符条件（同一列的多个条件是"或"的关系）
        .Range("J2").Value = "*FORD*"
        .Range("J3").Value = "*NISSAN*"
        .Range("J4").Value = "*TOYOTA*"
        
        ' 写入第3列的固定条件（和品牌条件是"与"的关系）
        .Range("K2").Value = "Preauthorized Debit / Correction"
        
        ' 定义条件区域范围
        Set rngCriteria = .Range("J1:K4")
    End With
    
    ' 执行高级筛选，把符合条件的数据复制到目标表
    rngSource.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=rngCriteria, _
        CopyToRange:=wsDest.Range("A1"), _
        Unique:=False
    
    ' 清除临时条件区域的内容（可选）
    wsSource.Range("J1:K4").ClearContents
    
    ' 取消复制模式
    Application.CutCopyMode = False
End Sub

解决办法2：手动遍历行筛选（适合小数据集，逻辑直观） #

如果你的数据集不是特别大，也可以用VBA直接遍历每一行，判断是否符合条件后再复制。这种方法完全不会影响原表的任何状态，自然也不会破坏小计：

Sub CopyMatchingRowsManually()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim lastRowSource As Long
    Dim lastRowDest As Long
    Dim i As Long
    
    Set wsSource = ActiveSheet
    Set wsDest = Worksheets("Leased Payments")
    
    ' 清空目标表并复制表头
    wsDest.Cells.Clear
    wsSource.Range("A1:I1").Copy wsDest.Range("A1")
    lastRowDest = 1 ' 目标表当前最后一行（表头行）
    
    ' 获取数据源的最后一行
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行数据（从第2行开始，跳过表头）
    For i = 2 To lastRowSource
        ' 判断条件：第3列等于指定值，且第9列包含任意一个品牌
        If wsSource.Cells(i, 3).Value = "Preauthorized Debit / Correction" And _
           (InStr(1, wsSource.Cells(i, 9).Value, "FORD", vbTextCompare) > 0 Or _
            InStr(1, wsSource.Cells(i, 9).Value, "NISSAN", vbTextCompare) > 0 Or _
            InStr(1, wsSource.Cells(i, 9).Value, "TOYOTA", vbTextCompare) > 0) Then
            
            lastRowDest = lastRowDest + 1
            ' 复制当前行到目标表的下一行
            wsSource.Range("A" & i & ":I" & i).Copy wsDest.Range("A" & lastRowDest)
        End If
    Next i
    
    Application.CutCopyMode = False
End Sub

你可以根据自己的数据集大小选择合适的方法，高级筛选在大数据集下效率更高，手动遍历则逻辑更清晰，容易调整条件。

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