如何基於其他文本突出顯示單元格中的特定文本？

在Excel中，我們可以很容易地基於特定文本突出顯示單元格，但是在這裡，我想突出顯示單元格中的特定文本以使其突出而不是整個單元格。 這對於我們大多數人來說可能是一個麻煩。 在本文中，我將討論在Excel中解決此工作的一些技巧。

使用VBA代碼突出顯示多個單元格中的一個或多個特定文本

以驚人的功能突出顯示多個單元格中的一個或多個特定文本

使用VBA代碼根據其他文本突出顯示單元格中的特定文本

使用VBA代碼突出顯示多個單元格中的一個或多個特定文本

例如，我有一系列文本字符串，現在，我要突出顯示特定文本“天空在這些單元格中獲取“”，結果如下所示：

要僅突出顯示單元格中的部分文本，以下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。 然後點擊 OK 按鈕，您指定的所有文本僅在單元格中突出顯示，請參見屏幕截圖：

保養竅門：如果您需要突出顯示文本字符串中的多個關鍵字，請應用以下代碼：
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

然後，在彈出的框中，輸入您要突出顯示的關鍵字（用逗號分隔單詞），請參見屏幕截圖：

然後，單擊 OK 按鈕，指定的單詞立即突出顯示，請參見屏幕截圖：

備註：以上代碼區分大小寫。

以驚人的功能突出顯示多個單元格中的一個或多個特定文本

如果您不熟悉Excel中的代碼，在這裡，我將介紹一個簡單的工具- Kutools for Excel，其 標記關鍵字 功能，您可以一次突出顯示單元格中的特定一個或多個關鍵字。

安裝後 Kutools for Excel，請執行以下操作：

1。 點擊 庫工具 > 文本 > 標記關鍵字，請參見屏幕截圖：

2。 在 標記關鍵字 對話框，請執行以下操作：

• 從中選擇要使用的數據范圍 範圍 文本框;
• 選擇包含要突出顯示的關鍵字的單元格，也可以將關鍵字手動輸入（以逗號分隔）到 關鍵詞 文本框
• 最後，您應指定一種字體顏色以通過選中來突出顯示文本 標記關鍵字顏色 選項。 （要為整個包含關鍵字的單元格上色，請選擇 標記單元格內容顏色 選項）

3。 然後，點擊 Ok 按鈕，所有指定的文本均已突出顯示，如下圖所示：

備註：此功能不區分大小寫，如果要突出顯示區分大小寫的文本，請檢查 區分大小寫 在 標記關鍵字 對話框。

使用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。 然後點擊 OK 按鈕，基於第二列中的特定文本，第一列中的所有相應文本已被染成紅色，如以下屏幕截圖所示：

更多相關文章：

最佳辦公生產力工具

	熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
	超級查詢: 多條件VLookup  |   多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
	高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
	欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
	特色功能: 網格焦點   |  設計圖   |   大方程式酒吧   |  工作簿和工作表管理器   |  資源庫 （自動文字）   |  日期選擇器   |  合併工作表   |  加密/解密單元格   |  按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 （過濾粗體/斜體/刪除線...）...
	前 15 個工具集:  12 文本 工具 (添加文本, 刪除字符，...）   |   50+ 圖表 類型 (甘特圖，...）   |   40+ 實用 公式 (根據生日計算年齡，...）   |   19 插入 工具 (插入二維碼, 從路徑插入圖片，...）   |   12 轉化 工具 (數字到單詞, 貨幣兌換，...）   |   7 合併與拆分 工具 (高級合併行, 分裂細胞，...）   |   ... 和更多

增強您的 Excel 技能 Kutools for Excel，體驗前所未有的效率。 Kutools for Excel 提供 300 多種高級功能，可提高工作效率並節省時間。  點擊此處獲取您最需要的功能...

閱讀更多... 免費下載...

---

Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載...