VBA中Autofilter使用数组筛选多值时仅第一个值生效如何解决

问题原因 #

直接通过单元格区域赋值得到的数组为二维纵向数组，结构为arr(行序数, 1)，而AutoFilter的xlFilterValues算子仅支持接收一维数组作为筛选参数，二维数组传入时只会读取首个元素，因此仅能匹配到第一个筛选值对应的行。

解决方案 #

方案1：使用Transpose转成一维数组（适用筛选值行数≤65536场景） #

Transpose函数可以直接将单列二维数组转为一维数组，代码修改如下：

Dim arr As Variant
' 转置得到一维数组
arr = Application.Transpose(desWS.Range("F3:F" & lastreg).Value)
regWS.Range("A2:AE" & lastRow).AutoFilter Field:=6, Criteria1:=arr, Operator:=xlFilterValues

方案2：遍历生成一维数组（全场景兼容，无行数限制） #

如果筛选值的行数超过65536，Transpose函数会失效，手动遍历取值生成一维数组即可：

Dim arr() As Variant
Dim i As Long, valCount As Long
' 统计筛选值总数量
valCount = desWS.Range("F3:F" & lastreg).Rows.Count
ReDim arr(0 To valCount - 1)
' 遍历赋值得到一维数组
For i = 1 To valCount
    arr(i - 1) = desWS.Cells(i + 2, "F").Value
    ' 若存在格式不匹配问题，可统一转成文本：arr(i - 1) = CStr(desWS.Cells(i + 2, "F").Value)
Next i
regWS.Range("A2:AE" & lastRow).AutoFilter Field:=6, Criteria1:=arr, Operator:=xlFilterValues

额外排查项 #

如果调整后仍有部分值匹配失败，可检查如下内容：

• 筛选值数组和筛选列的单元格格式是否一致，避免文本格式数值和数字格式数值无法匹配
• 筛选值是否存在前后不可见空格，可通过Trim()函数统一处理取值

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