Excel VBA：为单元格内含指定值的文本行单独设置字体颜色

核心逻辑：按单元格内换行符拆分文本行，逐行匹配标识后，通过Characters对象精准定位对应文本段的位置，单独设置字体颜色，匹配按钮触发的交互需求。

操作步骤 #

• 绑定触发入口：在开发工具选项卡插入表单按钮，将按钮指定到后续编写的VBA宏，点击按钮即可自动执行全区域格式设置。
• 写入VBA代码：按Alt+F11打开VBA编辑器，插入标准模块，粘贴以下代码，可根据自身业务修改参数：

Sub MarkCheckInOutLine()
    Dim targetRng As Range, cell As Range
    Dim lineArr As Variant, i As Long
    Dim currentPos As Long, lineText As String
    Dim defaultFontColor As Long
    ' 按需修改为实际存储签到签退数据的单元格范围
    Set targetRng = ThisWorkbook.ActiveSheet.Range("B2:B" & ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row)
    ' 匹配行的标记颜色，可替换为RGB(0,176,80)等自定义色值
    Const MARK_COLOR As Long = vbRed
    
    For Each cell In targetRng
        If Trim(cell.Value) = "" Then GoTo NextLoop
        ' 读取单元格默认字体颜色，非匹配行保持该颜色
        defaultFontColor = cell.Font.Color
        ' 重置全单元格格式，清除历史标记残留
        cell.Font.Color = defaultFontColor
        ' 按单元格内软换行拆分所有文本行
        lineArr = Split(cell.Value, vbLf)
        currentPos = 1 ' Excel字符位置从1开始计数
        
        For i = LBound(lineArr) To UBound(lineArr)
            lineText = lineArr(i)
            ' 精确匹配当前行是否包含|0|标识
            If InStr(1, lineText, "|0|", vbBinaryCompare) > 0 Then
                ' 对匹配行的文本范围单独设置字体颜色
                cell.Characters(Start:=currentPos, Length:=Len(lineText)).Font.Color = MARK_COLOR
            End If
            ' 累加字符位置：当前行长度 + 1个换行符占位
            currentPos = currentPos + Len(lineText) + 1
        Next i
NextLoop:
    Next cell
End Sub

注意事项 #

• 存储签到数据的单元格必须开启「自动换行」属性，否则多行文本不会按预期折行展示，标记位置会出现错位。
• 如果不需要固定处理范围，可将targetRng赋值为Selection，执行前手动选中需要处理的区域即可。
• 代码默认会清除单元格内之前手动设置的零散字体格式，如果需要保留原有零散格式，可删除cell.Font.Color = defaultFontColor这行代码，但多次执行后可能出现历史标记残留。
• 匹配关键词、标记颜色均可按需修改，比如要标记缺勤、迟到等其他标识，直接替换判断条件里的字符串和色值即可。

效果参考 #

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