如何修改Excel单元格内单个指定单词的字体颜色并通过VBA自动化实现

实现思路 #

无需手动定位目标单词的位置，核心通过VBA的InStr函数循环检索目标单词在单元格文本中的所有出现位置，仅针对匹配到的目标单词单独设置字体颜色，不会改动单元格内其他文本的原有格式。

可直接复用的VBA代码 #

Sub HighlightSpecificWordInCell()
    ' 自定义配置项，可根据需求修改
    Const TARGET_WORD As String = "Funding" ' 要修改颜色的目标单词
    Const HIGHLIGHT_COLOR As Long = vbRed ' 目标颜色，也可替换为RGB值，比如RGB(255,0,0)
    Dim targetRange As Range
    Dim cell As Range
    Dim wordStartPos As Long
    Dim wordLength As Integer
    
    ' 默认处理当前选中的所有单元格
    Set targetRange = Selection
    wordLength = Len(TARGET_WORD)
    
    For Each cell In targetRange
        ' 跳过包含公式和内容为空的单元格
        If Not cell.HasFormula And Len(cell.Text) > 0 Then
            wordStartPos = 1
            ' 循环查找所有匹配的目标单词
            Do
                ' 最后一个参数设为vbBinaryCompare可开启大小写区分匹配
                wordStartPos = InStr(wordStartPos, cell.Text, TARGET_WORD, vbTextCompare)
                If wordStartPos = 0 Then Exit Do
                ' 仅修改目标单词的字体颜色
                cell.Characters(Start:=wordStartPos, Length:=wordLength).Font.Color = HIGHLIGHT_COLOR
                ' 跳过当前已匹配的位置，继续查找下一个匹配项
                wordStartPos = wordStartPos + wordLength
            Loop
        End If
    Next cell
End Sub

使用方法 #

• 打开目标Excel文件后按Alt+F11调出VBA编辑器，右键当前工作簿插入「模块」，将上述代码粘贴到模块中
• 回到Excel界面，选中需要处理的单元格/单元格区域
• 按Alt+F8调出宏运行窗口，选择HighlightSpecificWordInCell点击执行即可

自定义调整说明 #

• 需要修改其他单词时，调整代码中TARGET_WORD后的对应内容即可
• 需要更换高亮颜色时，修改HIGHLIGHT_COLOR的值即可，支持系统颜色常量（vbRed、vbBlue等）和自定义RGB值
• 默认不区分大小写匹配，如果需要区分大小写，将InStr函数的最后一个参数从vbTextCompare改为vbBinaryCompare即可

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