最近在处理一张几千行的业务明细表时同事问我能不能一次性把“华东区”“已回款”“重要客户”这几个关键词同时筛出来而且这些关键词分散在不同列不是只筛某一列。我当时第一反应是“用高级筛选”但试了一下发现高级筛选的多个条件属于“并且”逻辑和我们要的“或者”逻辑不太一样。如果手动一条条条件去筛表格字段一多效率确实很低。这篇文章就围绕“全表同时筛选多个关键词”这个真实需求整理一套从入门到一劳永逸的完整方案。包含通配符条件格式、高级筛选的正确用法以及一个可以一键高亮/筛选多关键词的 VBA 工具。无论你是做运营、财务、人事还是数据分析只要经常在 Excel 里处理关键词匹配都可以直接套用。1. 需求分析为什么“多个关键词”筛选这么麻烦1.1 常见的筛选场景先来看几个典型业务场景人事同事要从全表几百人里筛出“本科”“硕士”“重点大学”这些学历/院校关键词但关键词分散在“学历”列和“毕业院校”列。财务同事要对账单里的“已逾期”“已核销”“待复核”同时标记这几个词分布在“状态”“备注”“结算说明”不同列。运营同事要从用户反馈里找出包含“卡顿”“闪退”“无法登录”的意见记录问题描述存在一列长文本中。表面上看起来都是“筛选”但实际上要满足两个条件关键词不限定在某一个固定列而是全表范围内匹配。多个关键词之间是“或者”关系即只要某一列的单元格里包含任一关键词这一行就要被筛出来。1.2 手动操作的三个痛点手动筛选模式下你会遇到这些问题痛点具体表现单列筛选限制“包含”筛选只能针对当前列生效无法自动扩展到其他列多关键词难维护每次换关键词都要重新设置筛选条件关键词一多很难记无法批量标记筛选结果只能看不能顺手给符合条件的行统一加颜色或状态所以真正“一劳永逸”的方案应当做到关键词集中维护、一键执行、结果可视化而且不限制关键词数量。2. 方案对比与选型思路先看一张整体对比表便于你根据自己的 Excel 水平选择。方案难度适合场景是否需要写代码通配符条件格式入门临时查看、少量关键词否高级筛选入门单列多关键词或全表单关键词否辅助列公式中等多列多关键词且需要动态结果否VBA 宏进阶高频使用、一键完成、关键词可维护是这几种方案各有侧重条件格式适合“只看不筛”适合给符合条件的数据加底色。高级筛选的官方定位是“复杂条件筛选”但它的同列多关键词需要借助通配符公式而且跨列“或”逻辑也要单独构造条件区域。辅助列公式是最稳妥的通用方案不依赖任何高级功能Excel 2016 以上都能用。VBA 宏把公式逻辑封装成按钮适合需要长期重复操作的情况。下面把这四种方案完整走一遍。3. 基础方案一通配符 条件格式标记关键词3.1 通配符基础Excel 里有三个最常用的通配符*代表任意多个字符。?代表任意一个字符。~用于转义当你要匹配文本里真实的星号或问号时使用。比如条件*华东*表示“包含华东”的任意文本。3.2 条件格式实现步骤先看一个实际例子。假设 A2:D20 是数据区域A 列是客户名称B 列是地区C 列是状态D 列是备注。现在要标记出“华东”“重要”“已回款”三个关键词。操作步骤如下选中 A2:D20 整个数据区域。点击“开始”选项卡 - “条件格式” - “新建规则”。选择“使用公式确定要设置格式的单元格”。输入公式OR(ISNUMBER(SEARCH(华东,$A2$B2$C2$D2)),ISNUMBER(SEARCH(重要,$A2$B2$C2$D2)),ISNUMBER(SEARCH(已回款,$A2$B2$C2$D2)))点击“格式”在“填充”里选一个醒目的底色比如浅黄色。确认后满足条件的整行就会被标记出来。3.3 公式解释这个公式的核心逻辑是用$A2$B2$C2$D2把当前行的四列内容拼接成一个完整的文本。用SEARCH函数判断拼接文本中是否包含某个关键词。用OR把多个关键词的判断结果串联起来只要有一个成立就返回 TRUE。条件格式中公式返回 TRUE 时就应用你设置的格式。这里要注意一个点SEARCH不区分大小写而且支持通配符。如果你要做精确的大小写匹配可以把SEARCH换成FIND。3.4 方案优缺点这个方案的优点是完全不需要写代码设置一次就能实时看到标记结果。缺点是它只能“标记”而不能真正“筛选”而且关键词是写死在公式里的以后要改关键词还是得进规则里修改。4. 基础方案二Excel 高级筛选的正确姿势4.1 为什么常规筛选做不到Excel 自带的“筛选”按钮对一列做“文本包含”时只能填一个关键词。有人会问“筛选搜索框里不是可以输入多个关键词吗”搜索框确实支持输入多个词但它对关键词之间默认是“并且”逻辑而且是在当前列范围内搜索。比如你在某一列的搜索框输入“华东 回款”它找的是同一单元格里既包含“华东”又包含“回款”的记录并不是把“华东”和“回款”作为两个独立关键词去全表匹配。4.2 高级筛选的正确用法高级筛选的优势在于“条件区域”是独立的可以灵活组合“并且”和“或者”关系。假设数据在 Sheet1 的 A2:D20表头分别是“客户名称”“地区”“状态”“备注”。我们要筛选出地区是“华东”的记录同时备注里包含“回款”。条件区域设置如下在 F1:H3 写F1: 地区 G1: 备注 F2: 华东 G2: ISNUMBER(SEARCH(回款,D2))这里为了表达“备注包含回款”条件区域的 G2 不能直接写“回款”而要写成公式ISNUMBER(SEARCH(回款,D2))。然后点击“数据”选项卡 - “高级”列表区域选择$A$2:$D$20条件区域选择$F$1:$G$2勾选“将筛选结果复制到其他位置”再指定一个空白区域的起始单元格点击确定即可。4.3 高级筛选的局限性高级筛选项其实很强但在“多个关键词 全表范围 或逻辑”这个需求面前有两个短板条件区域的公式规则比较绕新手容易写错。每次换关键词都要重设条件区域基本谈不上“一劳永逸”。所以高级筛选更适合临时性的单列多条件查询不太适合做长期维护的关键词工具。5. 进阶方案三辅助列公式实现动态全表筛选5.1 计算列思路用一个辅助列来判断每一行是否包含任意关键词再基于辅助列做筛选。这样关键词可以维护在固定位置不需要每次修改公式。还是以客户表为例。在 E2 写公式IF(SUMPRODUCT(--ISNUMBER(SEARCH({华东,重要,已回款},$A2$B2$C2$D2)))0,命中,)向下填充到数据最后一行。5.2 公式逐段拆解$A2$B2$C2$D2本行四列拼接为一个长字符串。SEARCH({华东,重要,已回款},...用常量数组一次性查找三个关键词返回三个结果要么是数字要么是#VALUE!错误。--ISNUMBER(...)把“是否找到”转换为 0 或 1。SUMPRODUCT对三个 0/1 结果求和。外层IF只要和大于 0就说明至少命中一个关键词。如果你用的是 Excel 365也可以用更简单的写法IF(OR(ISNUMBER(SEARCH({华东,重要,已回款},$A2$B2$C2$D2))),命中,)OR函数在 Excel 365 中支持数组运算老版本则必须使用SUMPRODUCT才能得到正确结果。5.3 辅助列与自动筛选搭配操作步骤在 E2 写好公式并向下填充。选中数据区域点击“数据”选项卡 - “筛选”。点击 E 列筛选按钮只勾选“命中”。这样就实现了全表范围内的“或”逻辑筛选。5.4 把关键词维护区独立出来公式里直接写常量数组维护起来不够友好。更专业的做法是把关键词放在一个独立区域。比如在 M1:M3 分别填入三个关键词单元格内容M1华东M2重要M3已回款然后用绝对引用引用这个区域IF(SUMPRODUCT(--ISNUMBER(SEARCH($M$1:$M$3,$A2$B2$C2$D2)))0,命中,)注意SEARCH的第一个参数如果是区域需要按CtrlShiftEnter确认数组公式Excel 365 除外。老版本里公式输入完成后公式栏两侧会出现花括号。以后要改关键词直接修改 M 列内容辅助列会自动刷新这就是“维护一次、长期使用”的雏形。6. VBA 终极方案一键完成多关键词筛选与高亮6.1 为什么还需要 VBA辅助列方案虽然能动态筛选但还是需要手动给列填充公式、手动筛选结果。如果要求“一键完成”并且同时做两件事给符合条件的数据行加底色。自动隐藏不符合条件的行。用 VBA 是最合适的选择。6.2 VBA 代码完整版先按AltF11打开 VBA 编辑器点击“插入” - “模块”把下面的代码复制进去。Sub MultiKeywordFilter() Dim ws As Worksheet Dim dataRange As Range Dim keywordRange As Range Dim cell As Range Dim kwCell As Range Dim i As Long, j As Long Dim rowData As String Dim hasMatch As Boolean 设置工作表这里以当前活动工作表为例 Set ws ActiveSheet 数据区域假设数据从 A2 开始最后一行由 A 列决定 你可以根据实际表结构修改起始列和结束列 Dim lastRow As Long Dim lastCol As Long lastRow ws.Cells(ws.Rows.Count, 1).End(xlUp).Row lastCol ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column If lastRow 2 Then MsgBox 没有找到数据请检查A列是否有内容, vbExclamation Exit Sub End If Set dataRange ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)) 关键词区域假设关键词存放在 M1 向下连续区域 你可以修改为任意指定区域 Set keywordRange ws.Range(M1:M10) 统计关键词数量 Dim kwCount As Long kwCount Application.WorksheetFunction.CountA(keywordRange) If kwCount 0 Then MsgBox M列没有关键词请先在M1:M10输入关键词, vbExclamation Exit Sub End If 第一步清除原有底色 dataRange.Interior.ColorIndex xlNone 第二步显示所有行避免上次筛选影响本次判断 ws.Rows.Hidden False 第三步遍历每一行 For i 1 To dataRange.Rows.Count hasMatch False 拼接当前行所有列的内容 rowData For j 1 To dataRange.Columns.Count rowData rowData | CStr(dataRange.Cells(i, j).Value) Next j 遍历关键词列表 For Each kwCell In keywordRange If Trim(CStr(kwCell.Value)) Then If InStr(1, rowData, Trim(CStr(kwCell.Value)), vbTextCompare) 0 Then hasMatch True Exit For End If End If Next kwCell 如果命中关键词整行加底色 If hasMatch Then dataRange.Rows(i).Interior.Color RGB(255, 255, 0) End If Next i MsgBox 处理完成命中关键词的行已标记为黄色。, vbInformation End Sub6.3 代码参数说明代码里有几个地方可以根据实际情况调整Set ws ActiveSheet当前工作表。如果固定要用某一张表可以改成Set ws ThisWorkbook.Worksheets(Sheet1)。lastRow ws.Cells(ws.Rows.Count, 1).End(xlUp).Row以 A 列最后一行作为数据的最后一行。如果你的数据在 B 列或 C 列开始需要把数字 1 改掉。lastCol ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column以第 1 行最后一个非空列作为数据最后一列。keywordRange关键词存放区域默认是M1:M10。关键词可以只有 3 个也可以填满 10 个甚至更多只需要修改这个范围。InStr(1, rowData, kw, vbTextCompare)不区分大小写判断关键词是否存在于拼接后的文本中。6.4 一键运行的三种方式方式一F5 直接运行在 VBA 编辑器里光标放到MultiKeywordFilter过程内部按 F5 即可运行。方式二插入按钮在 Excel 中点击“开发工具” - “插入” - “按钮窗体控件”。在弹出的对话框里选择MultiKeywordFilter。把按钮放到表格合适位置右键按钮可以修改文字比如改成“一键筛选关键词”。如果找不到“开发工具”选项卡需要到“文件” - “选项” - “自定义功能区”在右侧勾选“开发工具”。方式三快速访问工具栏点击快速访问工具栏最右侧的下拉箭头选择“其他命令”。在“从下列位置选择命令”里选“宏”。选中MultiKeywordFilter点击“添加”。以后点一下快速访问工具栏里的按钮就能运行。6.5 如何把“高亮”升级为“筛选”上面代码只做了高亮没有隐藏不匹配的行。如果你想一键筛掉不匹配的行可以在遍历行时增加一个EntireRow.Hidden操作。把第三步的代码改为 先全部显示 ws.Rows.Hidden False For i 1 To dataRange.Rows.Count hasMatch False rowData For j 1 To dataRange.Columns.Count rowData rowData | CStr(dataRange.Cells(i, j).Value) Next j For Each kwCell In keywordRange If Trim(CStr(kwCell.Value)) Then If InStr(1, rowData, Trim(CStr(kwCell.Value)), vbTextCompare) 0 Then hasMatch True Exit For End If End If Next kwCell 未命中的行隐藏 If Not hasMatch Then dataRange.Rows(i).EntireRow.Hidden True End If Next i这样运行后只有包含关键词的行会被保留。注意EntireRow.Hidden True会把整行隐藏包括数据区域外的内容。如果你的数据行下方还有其他统计内容建议先规划好再使用。6.6 VBA 的安全注意Excel 默认会禁用带宏的文件。在使用宏之前将文件另存为“Excel 启用宏的工作簿.xlsm”。打开文件时如果出现黄色安全条点击“启用内容”。企业环境如果需要长期使用可以让管理员将文件所在目录加入受信任位置。7. 常见问题与排查清单在实际使用过程中下面几个问题出现频率最高。问题现象常见原因解决思路条件格式只标记了一个单元格而不是整行公式中行号前少了$公式应写成$A2$B2$C2$D2并对列绝对引用高级筛选结果为空条件区域公式引用相对位置不对检查公式引用的单元格是否是数据第一行辅助列公式返回溢出或#VALUE!老版本 Excel 没有按数组公式确认按CtrlShiftEnter重新确认公式VBA 提示找不到关键字关键词存放在 M 列但代码里匹配范围不对修改keywordRange或把关键词移到 M1:M10运行 VBA 后没有反应文件未启用宏另存为 .xlsm 并点击“启用内容”VBA 把无关行也隐藏了隐藏的是EntireRow而不是数据单元格确认数据区域内是否还有其他内容关键词包含通配符SEARCH和InStr对通配符处理不同SEARCH支持通配符InStr按字符精确匹配7.1 排查步骤建议遇到问题时按以下顺序检查先确认关键词区域数据是不是文本格式。如果关键词是从网页或 PDF 复制来的可能包含不可见空格用TRIM清洗。再确认数据区域最后一个非空行是否被 VBA 正确识别。然后检查公式或代码中的引用是否全部正确。最后用MsgBox在 VBA 里输出中间结果比如拼接后的rowData确认拼接文本是否包含了关键词。8. 工程化建议把关键词工具做成可维护的系统8.1 把关键词放到独立配置表关键词散落在公式或 VBA 代码里时间一长就会忘。推荐单独建一个“参数配置”工作表。结构可以这样设计区域内容说明B2关键字列表每个关键词一行C2是否启用TRUE / FALSED2匹配列范围比如 A:D表示全表匹配VBA 读取时可以把keywordRange改为引用参数配置表Set keywordRange ThisWorkbook.Worksheets(参数配置).Range(B2:B10)这样即使换了业务表也不需要改代码只改配置表即可。8.2 增加“清空标记”按钮实际使用中你可能需要反复执行“清除颜色 - 重新标记”。可以单独写一个清空过程Sub ClearHighlight() Dim ws As Worksheet Dim dataRange As Range Dim lastRow As Long Dim lastCol As Long Set ws ActiveSheet lastRow ws.Cells(ws.Rows.Count, 1).End(xlUp).Row lastCol ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column If lastRow 2 Then Set dataRange ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)) dataRange.Interior.ColorIndex xlNone ws.Rows.Hidden False End If End Sub8.3 生产环境注意事项虽然 Excel 不是服务器系统但在实际业务表上操作时以下几点仍然重要操作前先备份原文件避免格式错乱或数据被误隐藏。不要直接在原始报表上跑 VBA最好复制一份数据到工作副本再处理。如果表格有合并单元格建议先取消合并因为 VBA 遍历合并单元格时可能出现非预期行为。如果数据量超过几万行遍历拼接字符串和InStr判断的性能会明显下降可以先限制匹配列范围或者改用字典数组的方式优化。8.4 VBA 性能优化思路当数据行数较多时逐单元格读写会拖慢速度。可以先把数据读入数组在内存中完成匹配再一次性写入结果。核心思路如下Sub MultiKeywordFilterFast() Dim ws As Worksheet Dim dataArr As Variant Dim keywordArr As Variant Dim lastRow As Long Dim lastCol As Long Dim i As Long, j As Long, k As Long Dim matchRows() As Long Dim matchCount As Long Set ws ActiveSheet lastRow ws.Cells(ws.Rows.Count, 1).End(xlUp).Row lastCol ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column If lastRow 2 Then Exit Sub 一次性把数据读入数组 dataArr ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)).Value 读取关键词列表取前10个非空值 keywordArr ws.Range(M1:M10).Value ReDim matchRows(1 To lastRow - 1) matchCount 0 For i 1 To UBound(dataArr, 1) Dim rowText As String rowText For j 1 To UBound(dataArr, 2) rowText rowText | CStr(dataArr(i, j)) Next j For k 1 To 10 Dim kw As String kw Trim(CStr(keywordArr(k, 1))) If kw Then If InStr(1, rowText, kw, vbTextCompare) 0 Then matchCount matchCount 1 matchRows(matchCount) i 1 Exit For End If End If Next k Next i 先清除颜色和隐藏状态 ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)).Interior.ColorIndex xlNone ws.Rows.Hidden False 再统一标记 For i 1 To matchCount ws.Rows(matchRows(i)).Interior.Color RGB(255, 255, 0) Next i End Sub这个版本大大减少了 Excel 与 VBA 之间的交互次数数据量较大时性能提升非常明显。9. 各方案如何选择没有绝对最好的方案只有最适合当前场景的方案。我建议按下面这个逻辑来选择。如果你只是临时看一次数据用条件格式就够了设置快、不污染原表。如果你是偶尔筛选且关键词固定用辅助列公式最稳妥不需要启用宏。如果你每周甚至每天都要做同样的关键词筛选建议直接上 VBA把关键词维护在固定区域配合按钮一键执行。如果你使用的是新版 Excel 且数据量很大也可以考虑FILTERISNUMBER(SEARCH(...))的组合运算效率高于辅助列。一个实用的 Excel 365 写法示例FILTER(A:D,ISNUMBER(SEARCH(华东,A:AB:BC:CD:D))ISNUMBER(SEARCH(重要,A:AB:BC:CD:D))ISNUMBER(SEARCH(已回款,A:AB:BC:CD:D))0)这个公式直接在空白区域输出所有命中行但需要 Excel 365 支持动态数组函数。10. 日常维护关键词工具的三个习惯任何工具好不好用很大程度上取决于日常维护习惯。10.1 关键词统一放在首位不管用哪种方案都建议把关键词放在一个醒目且固定的位置。比如每个工作簿都约定 M 列是关键词区这样换人接手也能快速找到。10.2 定期备份参数配置VBA 工程可以导出为.bas文件备份关键词配置表也可以用单独的模板保存。下次新建业务表时直接把模板带进去不用重复写代码。10.3 测试先行给正式数据执行 VBA 之前先复制一个小规模测试数据跑一遍确认关键词匹配结果符合预期。尤其是新增关键词时要先检查有没有“误伤”比如关键词“华东”可能会匹配到“华东大区”这未必是你想要的。如果确实需要对完整单元格做精确匹配可以把InStr判断换成StrComp或者先判断长度再判断内容。结语全表同时筛选多个关键词这个需求看起来只是一个小操作但真正用起来会发现手动筛选的重复成本非常高。条件格式适合快速标记辅助列公式适合动态筛选VBA 适合高频一键执行。三者之间没有互斥关系组合使用效果最好。建议你先从辅助列公式入手理解SEARCHSUMPRODUCT的核心逻辑然后照着 VBA 代码搭建一个属于自己的关键词筛选模板。以后不管来多少批数据只要把关键词填进指定区域点一下按钮结果就会自动呈现出来。
