VBA AutoFilter多值包含筛选兼容空条件的实现方法

现有数据表结构如下：

当前通过监听E3单元格修改事件触发自动筛选，逻辑为筛选Code列包含G3:I3区域任意单元格值的行。原有代码仅在G3、H3、I3均填入有效值时正常运行，需要适配仅填写1-2个筛选码、其余单元格为空的场景。

原有正常运行的固定三参数代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$3" Then
        If Range("E3").Value = "" Then
            Range("A2").AutoFilter
        Else
            Range("A2").AutoFilter Field:=3, Operator:=xlFilterValues, Criteria1:=Array(Range("G3").Value, Range("H3").Value, Range("I3").Value)
        End If
    End If
End Sub

预设单元格值：

• G3：*AA*
• H3：*BA*
• I3：*CA*

自行编写的动态适配代码运行后无筛选结果，错误代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, arr As Variant
arr = Array(Range("G3:I3"))

If Target.Address = "$E$3" Then
    If Range("E3").Value = "" Then
        Range("C2").AutoFilter
    Else
        With Sheet1
            'to filter each value in the array one at a time
            For i = 0 To UBound(arr)
                .Range("C2").AutoFilter Field:=1, Criteria1:=arr(i)
            Next i
        End With
    End If
End Sub

• 直接将多单元格区域G3:I3传入Array生成的是二维数组，AutoFilter的xlFilterValues模式仅接受一维数组作为多条件参数
• 循环逐次调用AutoFilter会覆盖前一次设置的筛选规则，最终仅保留最后一次的条件，无法实现多值或逻辑匹配
• 未过滤空单元格，空值会被作为有效筛选条件传入，导致匹配不到任何结果

先遍历G3:I3区域，收集所有非空的筛选值到一维数组，再将数组传入筛选参数即可，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim filterArr() As String
    Dim cell As Range
    Dim validCount As Long
    
    ' 非E3单元格触发的事件直接退出
    If Target.Address <> "$E$3" Then Exit Sub
    
    ' E3为空时清除所有筛选
    If Trim(Range("E3").Value) = "" Then
        Range("A2").AutoFilter
        Exit Sub
    End If
    
    ' 收集G3:I3区域内的非空筛选条件
    validCount = 0
    ReDim filterArr(0 To 2) ' 预留最多3个条件的空间
    For Each cell In Range("G3:I3")
        If Trim(cell.Value) <> "" Then
            filterArr(validCount) = cell.Value
            validCount = validCount + 1
        End If
    Next cell
    
    ' 根据有效条件数量执行筛选
    If validCount > 0 Then
        ReDim Preserve filterArr(0 To validCount - 1)
        ' Field:=3对应表格第三列，即Code列
        Range("A2").AutoFilter Field:=3, Operator:=xlFilterValues, Criteria1:=filterArr
    Else
        ' 无有效筛选条件时清除筛选
        Range("A2").AutoFilter
    End If
End Sub

• 遍历单元格时自动跳过空值，不会将空字符串加入筛选条件
• 最终传入AutoFilter的是仅包含有效值的一维数组，支持1/2/3个筛选条件的场景
• 兼容原有逻辑：E3为空、G3:I3全空时都会自动清除筛选，不会出现无结果的异常

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