Excel VBA：如何为Autofilter引用表格多列实现动态搜索过滤

你已将ActiveX文本框链接到A1单元格，作为「All_Data_Table」表格的搜索框，但现有代码仅能过滤第1列，要实现输入内容时在第1、2、3、4、5、6、7、8、10、13列动态搜索匹配结果，可按以下方式修改VBA代码：

修改后的完整代码 #

Private Sub TextBox2_Change()
    Dim tbl As ListObject
    Dim searchCols As Variant
    Dim col As Variant
    Dim searchText As String
    
    ' 定义要搜索的目标列（对应表格的列序号）
    searchCols = Array(1, 2, 3, 4, 5, 6, 7, 8, 10, 13)
    Set tbl = ListObjects("All_Data_Table")
    searchText = "*" & Range("A1").Value & "*" ' 通配符实现模糊匹配
    
    ' 先清除所有已存在的筛选
    If tbl.ShowAutoFilter Then
        If tbl.AutoFilter.FilterMode Then
            tbl.AutoFilter.ShowAllData
        End If
    Else
        tbl.Range.AutoFilter ' 如果表格没开启筛选，先开启
    End If
    
    ' 若搜索框为空，直接显示所有数据，无需过滤
    If Trim(Range("A1").Value) = "" Then Exit Sub
    
    ' 循环为每一列设置筛选条件
    For Each col In searchCols
        tbl.Range.AutoFilter Field:=col, Criteria1:=searchText, Operator:=xlOr
    Next col
End Sub

代码关键说明 #

• 目标列定义：用searchCols = Array(1,2,...13)明确指定需要搜索的列序号，后续只需修改数组内容即可调整搜索列
• 模糊匹配：通过"*" & Range("A1").Value & "*"实现包含式搜索，输入部分内容也能匹配结果
• 筛选状态处理：先清除旧筛选，避免多次叠加筛选导致结果异常；若表格未开启筛选则自动启用
• 空值判断：搜索框为空时直接显示所有数据，避免无效筛选操作

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