Excel VBA将多单元格值作为AutoFilter筛选条件仅识别首个值如何修复

问题根源 #

你代码的核心错误在于Criteria1:=Array(OutRng)的写法：将Range对象直接传入Array函数时，只会提取该Range的第一个单元格的值生成单元素数组，因此筛选仅能匹配第一个值。你需要先将所有待筛选的非空值提取为一维字符串数组，再传入AutoFilter的参数。

修改后完整代码 #

Sub SelectNonBlankCells()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim InputRng As Range, Rng As Range
    Dim filterArr As Variant
    Dim arrIndex As Long
    
    ' 定义工作表对象，避免不必要的Select操作
    Set wsSource = ThisWorkbook.Sheets("Rekenblad")
    Set wsTarget = ThisWorkbook.Sheets("Plakken")
    
    ' 仅遍历C列有数据的区域，提升运行效率
    Set InputRng = Intersect(wsSource.UsedRange, wsSource.Range("C:C"))
    If InputRng Is Nothing Then Exit Sub ' C列无数据直接退出
    
    ' 初始化数组，最大容量为输入区域的行数
    ReDim filterArr(1 To InputRng.Cells.Count)
    arrIndex = 1
    
    ' 收集非空值到数组
    For Each Rng In InputRng
        If Trim(Rng.Value) <> "" Then
            filterArr(arrIndex) = CStr(Rng.Value)
            arrIndex = arrIndex + 1
        End If
    Next
    
    ' 裁剪数组到实际非空值的大小
    If arrIndex > 1 Then
        ReDim Preserve filterArr(1 To arrIndex - 1)
        ' 执行多值筛选
        wsTarget.Range("$A$1:$K$13").AutoFilter Field:=10, Criteria1:=filterArr, Operator:=xlFilterValues
    End If
End Sub

关键优化点 #

• 取消无意义的工作表Select、单元格Copy操作，直接通过工作表对象操作数据，运行更稳定
• 仅遍历C列有实际数据的区域，不需要遍历整列104万行，大幅提升运行效率
• 提前将所有非空值转换为字符串格式存入一维数组，符合AutoFilter多值筛选的参数要求

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