可乐陪鸡翅
如何在Excel中通过宏批量标记包含特定关键词的单元格并自动添加颜色和加粗格式？
如何在Excel中通过宏批量标记包含特定关键词的单元格并自动添加颜色和加粗格式？咱们平时做表，碰到成百上千条数据要找里面带某个词的地方，一个个翻眼睛都花，手动改颜色加粗更费工夫，要是能用宏一下子全搞定，是不是省老心了？
先唠唠为啥要用宏干这事
平常碰上要标“逾期”“重要”“待审核”这类词，数据少还能挨个点选改格式，可数据一多，比如几千行客户反馈里找“投诉”，或者库存表里揪“缺货”，手点得又酸又慢，还容易漏。宏就像个听话的小帮手，你告诉它找啥词、咋标记，它就能按你说的把活儿办利落，比手动快得多，还不容易出错。
动手前得把“家伙事儿”备齐
- 打开开发工具标签：刚装的Excel可能没显示这个标签，别慌。点左上角“文件”—“选项”—“自定义功能区”，右边勾上“开发工具”，确定后顶栏就冒出来“开发工具”了，这是开宏的门。
- 启用宏功能：要是弹出“安全警告”说宏被禁用，点“启用内容”就行（自己做的宏放心开，别乱点陌生文件的宏）。
- 明确要找的关键词：先把要标的关键词列清楚，比如“紧急”“未完成”“新品”，想标几个标几个，但别写错字，不然宏找不到。
一步步写出能办事的宏代码
写代码不用怕，跟着走就成，像搭积木似的。
步骤1：进VBA编辑器写代码
点“开发工具”里的“Visual Basic”，蹦出个小窗口，左边找到你正在用的那个工作表（比如“Sheet1”），双击它，右边空白地方就是写代码的地儿。
步骤2：敲入基础代码框架
把下面这段代码粘进去，再按你的情况改改关键词和格式——
```vba Sub 标记关键词() Dim 关键词 As String '要找的词，自己改 Dim 查找范围 As Range '要查的区域，比如A列到D列 Dim 单元格 As Range '逐个检查的格子
'===== 这里要改成你的需求 =====
关键词 = "紧急" '想标别的词，把“紧急”换成你要的，多个词用逗号隔开也行，比如"紧急,未完成"
设置 查找范围 = Worksheets("Sheet1").Range("A1:D1000") '改成你数据的区域，比如整个表就用UsedRange
'==============================
'先把之前标的格式清掉，免得乱
查找范围.Font.Bold = False
查找范围.Interior.ColorIndex = xlNone
'开始找关键词并标记
For Each 单元格 In 查找范围
If InStr(1, 单元格.Value, 关键词, vbTextCompare) > 0 Then '不区分大小写找词
'加粗
单元格.Font.Bold = True
'添颜色，这里用黄色（ColorIndex=6），想换别的数字试试，比如3是红色
单元格.Interior.ColorIndex = 6
End If
Next 单元格
MsgBox "标记完啦！共找到" & 查找范围.SpecialCells(xlCellTypeConstants).Count & "个有内容的格子，符合条件的已加粗标黄~"
End Sub ```
步骤3：改代码里的“小细节”
- 换关键词：把
关键词 = "紧急"里的“紧急”改成你要的，比如关键词 = "缺货"；要是想标多个词，暂时只能一个个来（比如先标“缺货”运行一次，再改代码标“停产”再运行）。 - 调查找范围：
Worksheets("Sheet1").Range("A1:D1000")里的“Sheet1”是你工作表的名字（看底部标签），“A1:D1000”是数据区域，要是数据到E列或者行数超1000，就改成“A1:E5000”，或者用UsedRange（表示有数据的所有区域），比如设置 查找范围 = Worksheets("Sheet1").UsedRange。 - 换颜色：
ColorIndex = 6是黄色，想换别的颜色记个数字：1红、3绿、4蓝、5紫、6黄、7灰，直接改数字就行。
让宏跑起来并瞅准效果
- 存文件得用.xlsm格式：点“文件”—“另存为”，保存类型选“Excel 启用宏的工作簿(*.xlsm)”，不然关了再开宏就没了。
- 运行宏：回到Excel界面，点“开发工具”—“宏”，选中“标记关键词”，点“执行”，等一小会儿会弹提示说完成，这时候去看数据，带关键词的格子是不是加粗变黄了？
- 改改再试：要是颜色不对，回VBA编辑器改
ColorIndex的数字；要是没找全，检查查找范围是不是覆盖了所有数据，关键词有没有写错字。
常碰到的坎儿和咋解决
-
问：运行宏没反应，也没报错咋回事？
答：先看查找范围对不对，比如你把数据放Sheet2却写了Sheet1，肯定找不到；再看关键词是不是和数据里的一模一样，比如数据里是“紧 急”（中间有空格），你写“紧急”就匹配不上。 -
问：标完发现有些该标的没标，漏了？
答：可能是单元格里有公式结果不是文本，比如公式返回空值，InStr找不着；或者关键词在单元格中间（比如“订单紧急处理”），代码里的InStr是从头找，只要包含就会标，要是没标，检查单元格是不是合并了，合并格得单独设查找范围。 -
问：能不能一次标多个不同关键词，还各标不同颜色？
答：基础的代码一次只能标一个词一种颜色，想标多个可以复制代码改关键词和颜色，比如先标“紧急”用黄色，再改代码标“未完成”用绿色，运行两次就行。
不同方法的省事劲儿对比
| 方法 | 适合数据量 | 操作难度 | 会不会漏 | 改格式灵活度 |
|--------------|------------|----------|----------|--------------|
| 手动点选改 | 几十行 | 简单 | 容易漏 | 高 |
| 用“查找替换”改格式 | 几百行 | 中等 | 有点漏 | 中 |
| 宏批量标 | 几千几万行 | 稍复杂 | 基本不漏 | 高（代码可调）|
咱普通人做表，数据过百行用手动就费劲，宏虽然要学两步，但学会了能管大用，尤其碰上月底整理报表、核对客户信息，能省不少熬夜的时间。
我自个儿用这招标库存表的“缺货”词，以前得对着屏幕划拉半小时，现在点下运行，两分钟搞定，还能顺便把颜色标成红色，一眼就瞅见要补货的货号，比手动靠谱多了。其实宏没那么玄乎，就是把咱们重复干的活儿写成“指令”，让电脑替咱们跑腿，关键是得耐心把关键词和范围设对，多试两次就顺手了。