如何用VBA创建基于数组值的自动筛选，通过用户窗体配置多条件

嘿，咱们把这个UserForm的多关键词自动筛选功能搞定！我来帮你补全代码并拆解关键逻辑，让你实现「输入用/分隔的词语，显示包含任意一项的行」的需求。

假设你的UserForm里有一个名为SearchTextBox的文本框，还有一个触发筛选的按钮（比如叫cmdFilter），把下面的代码放到UserForm的代码模块里：

Private Sub cmdFilter_Click()
    Dim SeparatorCounter As Integer
    Dim Separator As String
    Dim FieldNumber As Integer ' 修正变量名：代表要筛选的目标列序号
    Dim BoxVal As String
    Dim FilterArray() As String
    Dim i As Integer
    
    ' 初始化核心变量
    BoxVal = SearchForm.SearchTextBox.Value
    Separator = "/"
    FieldNumber = 1 ' 这里替换成你要筛选的列号，比如A列=1，B列=2
    
    ' 处理空输入的边界情况
    If Trim(BoxVal) = "" Then
        MsgBox "请输入筛选关键词哦！", vbExclamation
        Exit Sub
    End If
    
    ' 计算分隔符数量（可以用来验证关键词数量，可选）
    SeparatorCounter = Len(BoxVal) - Len(Replace(BoxVal, Separator, ""))
    
    ' 将输入的字符串按分隔符拆成关键词数组
    FilterArray = Split(BoxVal, Separator)
    
    ' 去除每个关键词前后的空格（避免用户误输入空格导致筛选失效）
    For i = LBound(FilterArray) To UBound(FilterArray)
        FilterArray(i) = Trim(FilterArray(i))
        ' 如果需要「包含匹配」而非完全匹配，就加上通配符*
        FilterArray(i) = "*" & FilterArray(i) & "*"
    Next i
    
    ' 先清除已有筛选（避免重复筛选报错）
    On Error Resume Next
    ActiveSheet.AutoFilterMode = False
    On Error GoTo 0
    
    ' 应用多条件自动筛选：匹配数组中任意一个关键词
    ActiveSheet.Range("A1").CurrentRegion.AutoFilter _
        Field:=FieldNumber, _
        Criteria1:=FilterArray, _
        Operator:=xlFilterValues
End Sub

• 关键词拆分：用Split()函数直接把输入的字符串按/拆分成数组，比手动计算分隔符再逐个截取更高效简洁。
• 空格处理：遍历数组去除每个关键词的前后空格，这是很实用的细节，能避免用户输入时不小心加了空格导致筛选不到内容。
• 包含匹配设置：代码里默认加了*通配符，这样就能实现「单元格包含关键词即可匹配」，而不是严格的完全匹配，完美契合你的需求。
• 筛选核心：Operator:=xlFilterValues是实现“任意匹配”的关键参数，它会把数组里的每一项作为可选条件，只要行内目标列的单元格符合其中任意一项，就会被保留显示。

• 记得把FieldNumber改成你实际要筛选的列的序号，比如要筛选C列就设为3。
• 如果你的数据区域不是从A1开始的，把ActiveSheet.Range("A1").CurrentRegion替换成你的数据区域范围，比如ActiveSheet.Range("B2:F100")。
• 可以再加一个“清除筛选”的按钮，代码很简单：

  Private Sub cmdClearFilter_Click()
      On Error Resume Next
      ActiveSheet.AutoFilterMode = False
      On Error GoTo 0
  End Sub
  

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