如何用VBA实现单元格多值（逗号/空格分隔）筛选工作表？

原宏仅支持单一门店号筛选，要实现逗号或空格分隔多值的同时筛选，核心是把单元格内的多值拆分成数组，配合AutoFilter的xlFilterValues操作符来实现多选。修改后的完整代码如下：

Sub FilterDataByCellValue()
    Dim filterValue As String
    Dim filterArray As Variant
    Dim wsForm As Worksheet, wsData As Worksheet
    
    ' 定义工作表对象，减少重复调用开销
    Set wsForm = ThisWorkbook.Sheets("FormResults")
    Set wsData = ThisWorkbook.Sheets("Data")
    
    ' 获取C4值并去除首尾空格
    filterValue = Trim(wsForm.Range("C4").Value)
    
    If filterValue <> "" Then
        ' 把空格替换成逗号，统一分隔符格式
        filterValue = Replace(filterValue, " ", ",")
        ' 按逗号拆分字符串为数组
        filterArray = Split(filterValue, ",")
        
        ' 清除已有筛选（避免残留筛选规则干扰）
        wsData.AutoFilterMode = False
        ' 应用多值筛选：Field=1对应A列，数组作为条件，配合xlFilterValues实现多选匹配
        wsData.Range("A2").AutoFilter Field:=1, Criteria1:=filterArray, Operator:=xlFilterValues
    Else
        ' 若C4为空，清除所有筛选（可根据实际需求调整）
        wsData.AutoFilterMode = False
    End If
End Sub

关键修改说明 #

• 统一分隔符：将输入中的空格替换为逗号，确保不管用哪种分隔方式，都能正确拆分多值
• 数组拆分：用Split函数把字符串拆分为数组，作为AutoFilter的筛选条件集合
• xlFilterValues操作符：这是实现多值同时筛选的核心，告诉Excel要匹配数组中的任意一个值
• 空值处理：补充了C4为空时清除筛选的逻辑，避免残留筛选影响数据查看

额外提示 #

如果输入的多值带逗号后空格（比如"24, 25"），可以在替换空格前加一句filterValue = Replace(filterValue, ", ", ",")，避免拆分出带空格的无效值。

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