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

网友投稿 252 2024-01-01

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

在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

Copy

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

Copy