AutoFilter Criteria Range不识别数组：多场景筛选异常技术求助

我明白你遇到的问题了：当前的跨表筛选代码只能匹配条件列的第一个值，而且没法实现「包含式」的模糊筛选——这是因为直接把单元格区域赋值给筛选条件，再用xlFilterValues的方式，只支持精确匹配，而且没有处理多值的包含格式。下面给你梳理问题根源和修正方案：

先回顾你的需求与原有代码 #

你的需求分为两类筛选场景：

• 同表内用单列条件做包含式筛选（原有代码是正常工作的）
• 跨工作表读取整列条件，实现包含式全值筛选（原有代码存在逻辑缺陷）

原有同表筛选代码（可正常运行）

Sub FilterTeams()
 Dim LastRow As Long
 LastRow = Range("A" & Rows.Count).End(xlUp).Row
 ActiveSheet.Range("A1:H" & LastRow).AutoFilter Field:=3, Criteria1:="=*" & Range("Q1") & "*"
End Sub

原有跨表筛选代码（存在问题）

Sub Filter()
 Dim Criteria As Variant
 Criteria = Worksheets("Sheet1").Range("A1:A140")
 Worksheets("AP").Range("$A$1:$h$100").AutoFilter Field:=3, Criteria1:=Criteria, Operator:=xlFilterValues
End Sub

修正后的跨表包含式全值筛选代码 #

要实现跨表的多值包含筛选，我们需要遍历条件列的每个值，给每个值加上通配符*，再把处理后的条件存入数组，最后用数组作为筛选条件。同时还要处理空值，避免无效筛选：

Sub CrossSheetContainsFilter()
    Dim wsCriteria As Worksheet, wsTarget As Worksheet
    Dim rngCriteria As Range, cell As Range
    Dim filterArray() As String
    Dim arrIndex As Integer
    
    ' 绑定条件表和目标表（可根据你的实际表名调整）
    Set wsCriteria = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("AP")
    
    ' 动态获取条件列的有效数据范围（自动跳过空行）
    Set rngCriteria = wsCriteria.Range("A1:A" & wsCriteria.Cells(wsCriteria.Rows.Count, "A").End(xlUp).Row)
    
    arrIndex = 0
    ' 遍历条件列，把每个值处理成包含式格式
    For Each cell In rngCriteria
        If cell.Value <> "" Then ' 跳过空单元格，避免无效筛选条件
            ReDim Preserve filterArray(arrIndex)
            filterArray(arrIndex) = "*" & cell.Value & "*" ' 前后加通配符实现包含匹配
            arrIndex = arrIndex + 1
        End If
    Next cell
    
    ' 先清除目标表之前的筛选状态
    wsTarget.AutoFilterMode = False
    
    ' 有有效条件才执行筛选
    If arrIndex > 0 Then
        wsTarget.Range("$A$1:$H$100").AutoFilter Field:=3, Criteria1:=filterArray, Operator:=xlFilterValues
    End If
End Sub

代码关键说明 #

1. 对象化工作表：用Set明确指定条件表和目标表，避免ActiveSheet带来的意外问题
2. 动态范围：自动识别条件列的最后一行，不用硬写固定行号，适配数据变化
3. 空值处理：跳过条件列里的空单元格，避免出现**这种无效的筛选条件
4. 通配符适配：给每个条件值前后加*，实现「包含该值即匹配」的模糊筛选
5. 数组传递：把处理后的条件存入字符串数组，再用xlFilterValues实现多值同时筛选

这样修改后，就能实现跨表读取条件列的所有值，对目标表完成包含式的全值筛选了。

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