在Excel中搜索并高亮显示特定数据

在Excel中，查找和替换功能允许您定位特定值，但不会自动高亮显示搜索结果。您知道如何在搜索后高亮显示这些结果吗？本文将介绍三种不同的方法，帮助您在Excel中同时搜索并高亮显示结果。

使用VBA代码高亮显示搜索结果

使用条件格式高亮显示搜索结果

使用便捷工具高亮显示搜索结果

在Excel中，有一段VBA代码可以帮助您搜索一个值，然后高亮显示搜索结果。

1. 启用要搜索和高亮显示结果的工作表，按“Alt”+“F11”键打开“Microsoft Visual Basic for Applications”窗口。

2. 点击“插入”>“模块”，并将以下代码粘贴到新模块中。

VBA：高亮显示搜索结果

Sub FindRange()
'UpdatebyExtendoffice20190813
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
xVrt = Application.InputBox(prompt:="Search:", Title:="www.extendoffice.com")
If xVrt <> "" Then
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="Cannot find this value", Title:="www.extendoffice.com"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
xRg.Interior.ColorIndex = 8
xRsp = MsgBox(prompt:="Do you want to cancel highlighting?", Title:="www.extendoffice.com", Buttons:=vbQuestion + vbOKCancel)

If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone
End If
End If
End Sub

3. 按“F5”键，然后会弹出一个搜索框供您输入指定的搜索值。

4. 点击“确定”，匹配的结果会被背景色高亮显示。此外，还会弹出一个对话框询问您是否取消高亮显示。点击“确定”取消高亮并关闭对话框，点击“取消”保留高亮并关闭对话框。

注意事项：

1. 如果未找到匹配值，将会弹出一个对话框通知您。

2. 此VBA代码适用于整个当前工作表，并且不区分大小写。

在Excel中，条件格式功能也可以自动高亮显示搜索结果。

假设数据和搜索框如下截图所示，现在请按照以下步骤操作：

1. 选择要搜索的区域，点击“开始”>“条件格式”>“新建规则”。

2. 在“新建格式规则”对话框中，在“选择规则类型”部分选择“使用公式确定要设置格式的单元格”，然后转到“为此公式为真时设置格式值”的文本框，输入以下公式：

=AND($E$2<>"",$E$2=A4)

3. 点击“格式”按钮，进入“设置单元格格式”对话框，在“填充”选项卡下，根据需要选择一种颜色。点击“确定”>“确定”关闭对话框。

从现在开始，当您在E2单元格中输入关键字时，搜索结果将在指定范围内自动高亮显示。

如果您想一次搜索两个或多个值并高亮显示搜索结果，“Kutools for Excel”的“标记关键字”功能可以为您提供帮助。

1. 选择要搜索的数据范围，点击“Kutools”>“文本”>“标记关键字”。

2. 在弹出的对话框中，在“关键字”文本框中输入要搜索的值，并用逗号分隔它们。然后根据需要选择“处理结果”和字体颜色。点击“确定”。

如果要在区分大小写的情况下搜索值，请勾选“区分大小写”复选框。

然后匹配的结果将以不同的字体颜色高亮显示。

使用“标记关键字”功能，您还可以在范围内查找部分字符串。例如，假设搜索单元格包含“ball”或“jump”，在“关键字”文本框中输入“ball, jump”，然后指定设置并点击“确定”。
  >>>  

点击下载示例文件