如何通过宏按钮结合表格外单元格实现Excel整表模糊筛选？

步骤1：编写VBA筛选宏 #

打开Excel的VBA编辑器（按Alt + F11），插入一个新模块，粘贴以下代码：

Sub DeviceNameFilter()
    Dim searchValue As String
    Dim targetRange As Range
    Dim col As Range
    
    ' 获取G2单元格的搜索关键词
    searchValue = Trim(Range("G2").Value)
    
    ' 定义要筛选的表格区域（A15到O列最后一行数据）
    Set targetRange = Range("A15:O" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    ' 先清除之前的筛选
    targetRange.AutoFilter
    
    ' 如果搜索框为空，直接退出（可选，避免清空筛选）
    If searchValue = "" Then Exit Sub
    
    ' 遍历A到O列，设置包含匹配的筛选条件
    For Each col In targetRange.Columns
        col.AutoFilter Field:=col.Column - targetRange.Column + 1, _
                        Criteria1:="*" & searchValue & "*", _
                        Operator:=xlFilterValues
    Next col
End Sub

代码说明：

• Trim(Range("G2").Value)：去除搜索关键词前后空格，避免无效匹配
• "*" & searchValue & "*"：用通配符实现包含匹配，不管关键词在文本前后还是中间
• 遍历所有列统一设置筛选条件，确保多列都能匹配到关键词

步骤2：添加“device name”宏按钮 #

1. 点击Excel顶部菜单栏的「开发工具」→「插入」→ 选择「按钮（窗体控件）」
2. 在工作表合适位置拖动绘制按钮，松开后弹出「指定宏」窗口，选择刚才创建的DeviceNameFilter宏，点击确定
3. 右键点击按钮，选择「编辑文字」，将按钮名称改为device name

步骤3：测试功能 #

1. 在G2单元格输入关键词（比如Test）
2. 点击「device name」按钮，A15开始的表格区域会自动筛选出所有列中包含该关键词的行
3. 清空G2后点击按钮，会清除所有筛选，恢复显示全部行

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