如何在Excel中使用公式修改字体颜色，仅高亮用户输入的指定内容？

原需求字符串示例 #

首先明确：Excel 内置的工作表公式无法直接修改单元格内部分文本的格式，公式仅能返回计算值，不具备格式修改能力，可根据需求选择以下两种实现方式：

方案1：条件格式（适合整单元格包含关键词时全单元格高亮） #

如果接受只要单元格包含指定关键词就将整个单元格的字体改为红色/加粗，操作步骤如下：

• 选中需要处理的所有单元格区域
• 点击顶部菜单栏「开始」-「样式」-「条件格式」-「新建规则」
• 选择「使用公式确定要设置格式的单元格」，输入公式（假设你要查找的关键词存在D1单元格，当前选中区域首行是A1）：=ISNUMBER(SEARCH($D$1,A1))
  • 这里SEARCH是不区分大小写的匹配，要区分大小写可以替换为FIND函数
• 点击「格式」，在弹出的窗口中设置字体颜色为红色、或者勾选加粗/斜体，确认后即可生效

注意：这个方案会修改整个单元格的格式，无法仅高亮目标关键词本身

方案2：VBA宏（适合仅修改单元格内目标关键词的局部格式） #

如果需要仅给匹配到的关键词单独改色、加粗，需要用VBA实现，操作步骤：

• 按下Alt+F11打开VBA编辑器，右键点击当前工作簿名称，选择「插入」-「模块」
• 粘贴以下代码：

Sub 高亮指定关键词()
    Dim rng As Range, cell As Range
    Dim keyword As String
    Dim startPos As Integer
    ' 这里设置你的关键词，也可以换成从指定单元格取值，比如 keyword = Range("D1").Value
    keyword = "你要高亮的词汇"
    ' 这里设置要处理的单元格区域，按需修改
    Set rng = Range("A1:A100")
    
    For Each cell In rng
        If cell.Value <> "" Then
            startPos = InStr(1, cell.Value, keyword, vbTextCompare) ' vbTextCompare是不区分大小写，要区分换成vbBinaryCompare
            Do While startPos > 0
                ' 设置字体颜色为红色，RGB可以按需改
                cell.Characters(startPos, Len(keyword)).Font.Color = RGB(255, 0, 0)
                ' 要加粗就取消注释下一行
                ' cell.Characters(startPos, Len(keyword)).Font.Bold = True
                ' 要斜体就取消注释下一行
                ' cell.Characters(startPos, Len(keyword)).Font.Italic = True
                startPos = InStr(startPos + Len(keyword), cell.Value, keyword, vbTextCompare)
            Loop
        End If
    Next
End Sub

• 修改代码里的关键词和处理区域后，按下F5运行即可，仅目标关键词的格式会被修改，其余文本格式保持不变

注意：使用宏需要将文件保存为.xlsm格式，否则宏会丢失

内容的提问来源于stack exchange，提问作者E. L.