Excel VBA Autofilter通配符多单元格模糊匹配问题求助

问题说明 #

原代码可实现单个单元格（AD2）的模糊匹配筛选，但将Criteria1改为引用AD2:AD10范围时持续报错。核心原因是直接对单元格范围使用.Value会返回二维数组，且未给每个关键词正确添加*通配符，不符合xlFilterValues的参数要求。

原代码：

Sub AUTOFILTER()

With dataSheet
    If .AutoFilterMode = True Then .AutoFilterMode = False
    .Range("T11:T1000").AUTOFILTER Field:=1, Operator:=xlFilterValues, _
       Criteria1:="*" & ActiveSheet.Range("ad2").Value & "*"

End With

End Sub

错误修改尝试：

Criteria1:="*" & ActiveSheet.Range("ad2:ad10").Value & "*"

解决方案 #

需要先将AD2:AD10中的每个非空关键词分别添加*通配符，组成一维数组后传给Criteria1。以下是修正后的代码：

Sub MultiKeywordAutoFilter()
    Dim keywordRange As Range
    Dim keywords() As String
    Dim i As Integer, count As Integer
    
    ' 设置关键词范围
    Set keywordRange = ActiveSheet.Range("AD2:AD10")
    count = 0
    
    ' 统计非空关键词数量并初始化数组
    For Each cell In keywordRange
        If cell.Value <> "" Then
            count = count + 1
        End If
    Next cell
    ReDim keywords(1 To count)
    
    ' 给每个非空关键词添加通配符并写入数组
    i = 1
    For Each cell In keywordRange
        If cell.Value <> "" Then
            keywords(i) = "*" & cell.Value & "*"
            i = i + 1
        End If
    Next cell
    
    ' 执行筛选
    With dataSheet
        If .AutoFilterMode = True Then .AutoFilterMode = False
        ' 当有有效关键词时执行筛选，否则取消筛选
        If count > 0 Then
            .Range("T11:T1000").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria1:=keywords
        End If
    End With
End Sub

关键说明 #

• 先遍历关键词范围，跳过空单元格，避免无效的**通配符导致筛选异常
• 将每个关键词前后添加*，组成一维字符串数组，符合xlFilterValues对Criteria1的参数要求
• 增加了空关键词判断，防止无有效关键词时执行筛选出错

注意事项 #

• 确保dataSheet是正确的工作表对象，若和ActiveSheet是同一个，可直接用ActiveSheet替代
• 关键词单元格（AD2:AD10）若有数字格式，会自动转为文本处理，不影响模糊匹配

内容的提问来源于stack exchange，提问作者No Code enthusiast