Excel VBA实现双文本框多关键词同时匹配表格筛选

问题分析 #

原代码仅支持单个关键词筛选，添加第二个文本框后默认采用"或"逻辑匹配任一关键词，不符合"同时包含两个关键词"的需求，需调整为"与"逻辑筛选规则。

解决方案 #

编写通用筛选子程序，统一处理两个文本框的输入，根据输入状态应用对应筛选逻辑：

• 两个文本框均为空：清除所有筛选
• 仅单个文本框有内容：按该关键词单独筛选
• 两个文本框均有内容：按"同时包含两个关键词"筛选

完整代码 #

' 通用筛选核心子程序
Private Sub ApplyDualFilter()
    Dim ws As Worksheet
    Dim lo As ListObject
    Dim keyword1 As String, keyword2 As String
    
    Application.ScreenUpdating = False
    
    Set ws = ThisWorkbook.Worksheets("Prices")
    Set lo = ws.ListObjects("Data")
    keyword1 = Trim(Me.TextBox1.Value) ' 若文本框绑定单元格，替换为ws.Range("B3").Value
    keyword2 = Trim(Me.TextBox2.Value) ' 同理，替换为对应绑定单元格地址
    
    ' 清除原有筛选
    lo.Range.AutoFilter Field:=2
    
    ' 根据关键词状态应用筛选
    If keyword1 = "" And keyword2 = "" Then
        ' 无关键词输入，不执行筛选
        Exit Sub
    ElseIf keyword2 = "" Then
        ' 仅第一个关键词有效
        lo.Range.AutoFilter Field:=2, Criteria1:="*" & keyword1 & "*"
    ElseIf keyword1 = "" Then
        ' 仅第二个关键词有效
        lo.Range.AutoFilter Field:=2, Criteria1:="*" & keyword2 & "*"
    Else
        ' 两个关键词同时匹配
        lo.Range.AutoFilter Field:=2, Criteria1:="*" & keyword1 & "*", _
                            Operator:=xlAnd, Criteria2:="*" & keyword2 & "*"
    End If
    
    Application.ScreenUpdating = True
End Sub

' 文本框1内容变化时触发筛选
Private Sub TextBox1_Change()
    ApplyDualFilter
End Sub

' 文本框2内容变化时触发筛选
Private Sub TextBox2_Change()
    ApplyDualFilter
End Sub

代码说明 #

• 用ApplyDualFilter统一处理筛选逻辑，避免重复代码
• Trim()去除关键词前后空格，防止无效空格干扰匹配
• 先清除原有筛选再应用新规则，避免筛选叠加导致逻辑混乱
• 分支处理不同输入场景，保证筛选逻辑精准

内容的提问来源于stack exchange，提问作者Semih Doğan