如何通过单个TextBox实现Excel表格多列通用搜索过滤？

原代码仅在第5、6、11列全部匹配输入内容时才显示行，以下修改后可实现任意列包含输入内容即显示对应行，清空文本框则取消所有筛选：

方案1：全工作表列搜索（从A列到最后一列） #

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Dim searchText As String
    Dim lastCol As Integer
    Dim filterArray() As Variant
    Dim i As Integer
    
    Set ws = Sheets("bdd")
    searchText = Trim(ws.TextBox1.Text)
    
    ' 清除旧筛选，避免逻辑冲突
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    If searchText <> "" Then
        ' 获取表头行（第5行）的最后一列位置
        lastCol = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
        ' 构建所有列的匹配条件数组
        ReDim filterArray(1 To lastCol)
        For i = 1 To lastCol
            filterArray(i) = "*" & searchText & "*"
        Next i
        
        ' 应用筛选：任意列匹配即显示
        ws.Range("A5").AutoFilter Field:=1, Criteria1:=filterArray, Operator:=xlOr
    Else
        ' 清空文本框时取消所有筛选
        If ws.AutoFilterMode Then ws.AutoFilterMode = False
    End If
End Sub

方案2：指定起始列搜索（如原代码的E列开始） #

如果你的数据仅从E列（第5列）开始，可使用此版本：

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Dim searchText As String
    Dim lastCol As Integer
    Dim filterArray() As Variant
    Dim i As Integer
    Dim startCol As Integer
    
    Set ws = Sheets("bdd")
    startCol = 5 ' 起始列为E列（第5列）
    searchText = Trim(ws.TextBox1.Text)
    
    ' 清除旧筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    If searchText <> "" Then
        lastCol = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
        ' 计算需要筛选的列数并构建条件数组
        ReDim filterArray(1 To lastCol - startCol + 1)
        For i = startCol To lastCol
            filterArray(i - startCol + 1) = "*" & searchText & "*"
        Next i
        
        ' 从起始列开始应用多列或筛选
        ws.Cells(5, startCol).AutoFilter Field:=1, Criteria1:=filterArray, Operator:=xlOr
    Else
        ' 清空文本框时取消所有筛选
        If ws.AutoFilterMode Then ws.AutoFilterMode = False
    End If
End Sub

关键逻辑说明 #

• 先清除所有旧筛选：避免多次筛选叠加导致的逻辑错误
• 通配符匹配：用*包裹搜索文本，实现包含式匹配（如输入"Me"可匹配"Melon"、"Mexico"）
• 多列或筛选：通过Operator:=xlOr参数，只要任意列满足条件就显示对应行
• 动态适配列数：自动获取表头行的最后一列，无需手动指定列号

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