在 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，然後指定設置並點擊「確定」。
  >>>  

點擊下載示例文件