在指定单元格区域精准查找特定文本并修改字体颜色的VBA需求

原代码的问题在于仅对文本子串做简单匹配，会误标包含目标字符组合的词汇（比如“concatenate”里的“CAT”）。要实现独立单词的精准匹配，可以借助正则表达式的单词边界功能，确保只匹配完整的目标单词。

以下是修改后的代码：

Public Sub ChangefontColor()
    Dim TextRange As Range
    Dim cell As Range
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    
    ' 定义要搜索的单元格区域
    Set TextRange = Range("K2:K4584")
    ' 要精准匹配的目标单词
    Dim targetWord As String
    targetWord = "cat"
    ' 字体颜色（3对应Excel中的红色）
    Dim fontColor As Integer
    fontColor = 3
    
    ' 初始化正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True ' 开启全局匹配，找到所有符合条件的单词
    regex.Pattern = "\b" & targetWord & "\b" ' \b代表单词边界，确保匹配独立单词
    
    ' 如需忽略大小写（同时匹配cat/Cat/CAT），取消下面一行的注释
    ' regex.IgnoreCase = True
    
    ' 遍历每个单元格处理
    For Each cell In TextRange
        If cell.Value <> "" Then
            Set matches = regex.Execute(cell.Value)
            ' 逐个处理匹配到的单词
            For Each match In matches
                cell.Characters(Start:=match.FirstIndex + 1, Length:=match.Length).Font.ColorIndex = fontColor
            Next match
        End If
    Next cell
    
    ' 释放对象资源
    Set regex = Nothing
    Set matches = Nothing
    Set TextRange = Nothing
End Sub

关键说明 #

• 正则表达式中的\b是单词边界标识符，它会匹配单词与非字母字符的分界（或文本的开头/结尾），因此只会匹配独立的“cat”，不会触发“cats”“category”这类词汇的误匹配。
• 如果需要不区分大小写匹配，只需取消regex.IgnoreCase = True的注释即可。
• 代码先判断单元格是否为空，避免对空单元格做无效操作，提升运行效率。

内容的提问来源于stack exchange，提问作者Tee