VBA如何基于单元格动态值正确设置AutoFilter的Criteria1数组？

你的核心问题是错误地对Split后的结果做了引号拼接，导致Criteria1接收的是单个带引号的字符串而非多个纯文本值组成的数组，从而触发了文本匹配而非值筛选。

正确实现方式 #

直接用Split函数分割单元格内容得到的数组即可，不需要额外拼接引号——Split返回的本身就是由纯文本元素组成的数组，完全符合AutoFilter对Criteria1的要求。

示例代码：

Dim filterArr As Variant
' 直接分割C5中的逗号分隔值，得到目标数组
filterArr = Split(ActiveSheet.Range("C5").Value, ",")
' 应用筛选
ActiveSheet.ListObjects("tblWeekly").Range.AutoFilter _
    Field:=2, _
    Criteria1:=filterArr, _
    Operator:=xlFilterValues

处理分隔符前后带空格的情况 #

如果C5中的值是类似Weekly, Monthly, Financial（逗号后带空格）的格式，Split后的元素会包含前导空格，需要先去除：

Dim filterArr() As String
Dim i As Integer
filterArr = Split(ActiveSheet.Range("C5").Value, ",")
' 遍历数组去除每个元素的前后空格
For i = LBound(filterArr) To UBound(filterArr)
    filterArr(i) = Trim(filterArr(i))
Next i
' 执行筛选
ActiveSheet.ListObjects("tblWeekly").Range.AutoFilter _
    Field:=2, _
    Criteria1:=filterArr, _
    Operator:=xlFilterValues

错误原因说明 #

你之前的代码把Split后的元素拼接成了类似"Weekly","Monthly","Financial"的字符串，再放进Array()，最终Criteria1得到的是Array("""Weekly"",""Monthly"",""Financial""")——也就是一个仅包含单个带引号长字符串的数组，AutoFilter会将其识别为文本匹配条件，因此显示="Weekly", "Monthly", "Financial"这类筛选规则。

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