Excel宏动态数组过滤异常：固定数组正常，动态取值仅生效前两项

直接将目标单元格区域的值转换为一维数组即可，以下是修正后的可运行代码：

Dim filterArr As Variant
' 将Q1到V1的单元格值转换为一维数组
filterArr = Application.Transpose(Application.Transpose(ActiveSheet.Range("Q1:V1").Value))
' 执行自动筛选
ActiveSheet.Range("A6").AutoFilter Field:=6, Criteria1:=filterArr, Operator:=xlFilterValues

问题根源 #

你之前的方法仅生效前两项，核心原因是直接调用Range("Q1:V1").Value得到的是二维数组（格式为Arr(1,1), Arr(1,2)...Arr(1,6)），而AutoFilter的Criteria1参数要求传入一维数组（格式为Arr(1), Arr(2)...Arr(6)）。通过两次Transpose转换，能把单行的二维数组转为符合要求的一维数组，让筛选器正确识别所有条件。

可选优化（处理空值场景） #

如果担心Q1:V1中有空值导致筛选异常，可以先过滤掉空值再生成筛选数组：

Dim cell As Range
Dim filterList As Collection
Set filterList = New Collection

' 遍历单元格，收集非空值
For Each cell In ActiveSheet.Range("Q1:V1")
    If cell.Value <> "" Then
        filterList.Add cell.Value
    End If
Next

' 将集合转为数组
Dim filterArr() As Variant
ReDim filterArr(1 To filterList.Count)
For i = 1 To filterList.Count
    filterArr(i) = filterList(i)
Next

' 根据数组状态执行筛选或取消筛选
If filterList.Count > 0 Then
    ActiveSheet.Range("A6").AutoFilter Field:=6, Criteria1:=filterArr, Operator:=xlFilterValues
Else
    ActiveSheet.Range("A6").AutoFilter Field:=6
End If

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