如何根据其他文本突出显示单元格内的特定文本？

在 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 后，请按照以下步骤操作：

1. 单击 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. 然后单击 确定 按钮，第一列中基于第二列特定文本的所有对应文本已被标红，如下图所示：

更多相关文章：