在处理庞大的Excel数据时，经常碰到查找一个内容出现多处位置，如何快速的标出所查内容所在单元格，以及其所在的行（或者列），将有利于我们定位，减轻视觉疲劳。工具/原料moreExcel（教程以Excel2007为例）方法/步骤1/7分步阅读

以下图数据为例，将表中2所在的单元格整行填充黄色，含2的单元格填充为红色。

2/7

绘制标记按钮，插入一个表单控件（即ActiveX控件），方法可以参考以下链接：

3/7

在指定宏窗口中，选择”新建“。

4/7

弹出一个模块，输入代码：

Dim rng As Range

Set rng = Selection

For Each rng In rng.Cells

rng.Select

Selection.EntireRow.Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

.TintAndShade = 0

.PatternTintAndShade = 0

End With

rng.Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 255

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Next

5/7

从VBA界面返回到Excel界面，设置按钮格式，编辑文字为”标记“。

6/7

按下Ctrl+F组合键，打开查找栏，输入查找内容为2，选择查找全部。

7/7

按下Ctrl+A选择全部的查找结果，然后点击”标记“按钮，结果如图所示。

PS：按下全选组合键前需保证光标停留在查找结果栏。

注意事项

如果对您有点帮助，请支持一下，谢谢！

EXCELVBA颜色标记查找一键