如何基于其他文本突出显示单元格中的特定文本？

在Excel中，我们可以很容易地根据特定文本突出显示单元格，但是在这里，我想突出显示单元格中的特定文本以使其突出而不是整个单元格。 这对于我们大多数人来说可能是一个麻烦。 在本文中，我将讨论在Excel中解决此工作的一些技巧。

使用VBA代码突出显示多个单元格中的一个或多个特定文本

以惊人的功能突出显示多个单元格中的一个或多个特定文本

使用VBA代码根据其他文本突出显示单元格中的特定文本

使用VBA代码突出显示多个单元格中的一个或多个特定文本

例如，我有一系列文本字符串，现在，我要突出显示特定文本“天空在这些单元格中获取“”，结果如下所示：

要仅突出显示单元格中的部分文本，以下VBA代码可以为您提供帮助。

1. 选择要突出显示特定文本的单元格，然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 按钮，您指定的所有文本仅在单元格中突出显示，请参见屏幕截图：

Tips：如果您需要突出显示文本字符串中的多个关键字，请应用以下代码：
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应用程序 窗口。

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 按钮，基于第二列中的特定文本，第一列中的所有相应文本已被染成红色，如以下屏幕截图所示：

更多相关文章：

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
	高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
	列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
	特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |  资源库 （自动文本）   |  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）...
	前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

阅读更多 免费下载...

---

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

• 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
• 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
• 每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多 免费下载...