如何根據其他文字，醒目提示儲存格中的特定內容？

作者Xiaoyang修改日期2024-10-31

在 Excel 中，根據特定文字醒目提示整個儲存格對我們來說或許輕而易舉，但若想僅針對儲存格內的特定文字進行醒目提示，使其脫穎而出，而非套用至整個儲存格，這對多數人而言可能頗具挑戰。本文將為您介紹幾種在 Excel 中實現此效果的實用技巧。

使用 VBA 程式碼在多個儲存格中醒目提示一個或多個特定文字

使用超強功能在多個儲存格中醒目提示一個或多個特定文字

根據其他文字，使用 VBA 程式碼在儲存格內醒目提示特定文字

使用 VBA 程式碼在多個儲存格中醒目提示一個或多個特定文字

例如，我有一組文字字串，現在希望在這些儲存格中醒目提示特定文字「Sky」，以取得如下圖所示的結果：

若要僅對儲存格內的部分文字套用醒目提示，下列 VBA 程式碼可協助您輕鬆達成。

1. 選取您要醒目提示特定文字的儲存格，然後按下 ALT + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：醒目提示儲存格內的部分文字：

Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
  With Rng
    m = UBound(Split(Rng.Value, cFnd))
    If m > 0 Then
      xTmp = ""
      For x = 0 To m - 1
        xTmp = xTmp & Split(Rng.Value, cFnd)(x)
        .Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
        xTmp = xTmp & cFnd
      Next
    End If
  End With
Next Rng
Application.ScreenUpdating = True
End Sub

3. 接著按下 F5 鍵執行此程式碼，此時將彈出提示方塊，提醒您輸入僅需醒目提示的文字，如下圖所示：

輸入要突顯的文字

4. 按一下確定按鈕後，所有指定的文字便會在儲存格內醒目提示，如下圖所示：

提示：若您需要從文字字串中醒目提示多個關鍵字，請使用下方程式碼：
VBA 程式碼：從文字字串中醒目提示多個關鍵字：

Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub

接著，在彈出的方塊中輸入您想醒目提示的關鍵字（以逗號分隔各字詞），如下圖所示：
輸入要突顯的關鍵字

然後按一下確定按鈕，指定的文字便會立即被醒目提示，如下圖所示：

注意：上述程式碼區分大小寫。

使用超強功能在多個儲存格中醒目提示一個或多個特定文字

如果您不熟悉 Excel 中的程式碼，這裡為您介紹一款超實用的簡易工具——Kutools for Excel！透過其關鍵字標記功能，可一次在儲存格內醒目提示一個或多個指定關鍵字，輕鬆提升工作效率！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 按一下 Kutools> 文字> 關鍵字標記，如下圖所示：

點擊 Kutools 的「標記關鍵字」功能

2. 在關鍵字標記對話方塊中，請執行下列操作：

從範圍文字方塊中選取您要使用的數據區域；
選取包含您要醒目提示之關鍵字的儲存格，也可手動輸入關鍵字（以逗號分隔）至關鍵字文字方塊
最後，請勾選標記關鍵字顏色選項，為醒目提示文字指定字體顏色。（若要為包含關鍵字的整個儲存格上色，請選取）標記儲存格內容顏色選項。）

在對話框中設定選項

3. 按一下確定按鈕後，所有指定文字便會如以下截圖所示被醒目提示：

所有指定的文字皆已突顯

注意：此功能不區分大小寫。若您希望使用區分大小寫的醒目提示文字，請在區分大小寫的關鍵字標記對話方塊中勾選。

根據其他文字，使用 VBA 程式碼在儲存格內醒目提示特定文字

以下是另一種情境：您有兩欄資料，第一欄為文字字串，第二欄則指定要標示的特定文字。現在，您希望根據每列第二欄中的特定文字，在第一欄中醒目提示對應的文字。

根據其他文字突顯儲存格內的特定文字

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 按一下插入> 模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：根據其他文字醒目提示儲存格內的部分文字：

Sub highlight()
'Updateby Extendoffice
    Dim xStr As String
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    Dim J As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "not support multiple columns"
        GoTo LInput
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "the selected range can only contain two columns "
        GoTo LInput
    End If
    For I = 0 To xRg.Rows.Count - 1
        xStr = xRg.Range("B1").Offset(I, 0).Value
        With xRg.Range("A1").Offset(I, 0)
            .Font.ColorIndex = 1
            For J = 1 To Len(.Text)
                If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
            Next
        End With
    Next I
End Sub

3. 貼上程式碼後，按下 F5 鍵執行，此時將彈出提示方塊，提醒您選取同時包含欲醒目提示文字及依據文字的資料區域，如下圖所示：

選取同時包含文字字串與特定文字的資料範圍

4. 按一下確定按鈕後，第一欄中所有對應第二欄特定文字的內容便會以紅色標示，如下圖所示：

根據第二欄中的特定文字，第一欄中對應的文字皆以紅色標示

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多