如何在Excel的單元格中給某些單詞上色或突出顯示？

如果一個單元格包含多個單詞，如何僅在該單元格中突出顯示某個單詞？ 以及如何在多個單元格中突出顯示該特定單詞？ 本文將提供一種實現方法。

使用VBA代碼為單個單元格/多個單元格中的某些單詞著色

使用VBA代碼為單個單元格/多個單元格中的某些單詞著色

以下VBA代碼可以幫助您突出顯示所選內容中的特定單詞。 請執行以下操作。

1.選擇包含您要在其中突出顯示某些單詞的單元格的範圍。 然後按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2.在開幕 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 模塊。 然後將VBA代碼複製並粘貼到“代碼”窗口中。

VBA代碼：在Excel中的單元格中為某些單詞著色

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight：", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3。 按 F5 鍵來運行代碼。 而在 Excel的Kutools 對話框中，請輸入您將在單元格中突出顯示的特定單詞，然後單擊 OK 按鈕。 看截圖：

然後，您可以立即在選定的單元格中看到指定的所有單詞都顯示為紅色，如下圖所示。

相關文章：

• 如果Excel中另一列中的值存在或等於該值，如何突出顯示單元格？
• 如何比較兩個字符串的相似性或突出顯示Excel中的差異？
• 如何使工作表標籤名稱等於Excel中的單元格值？
• 如何在Excel中根據單元格顏色更改值？
• 在Excel中單擊或選擇單元格時如何更改單元格顏色？