如何编写Excel宏仅修改单元格内红色字符格式而非整单元格？

你提供的两段宏代码均针对整个单元格的字体属性判断与修改，无法识别单元格内单个字符的格式差异，因此会导致整单元格格式被统一更改。要实现仅调整红色字符格式的需求，需要操作单元格的字符级格式，通过Characters对象逐个检查并修改目标字符。

正确宏代码 #

Sub FormatRedCharacters()
    Dim cell As Range
    Dim i As Integer
    
    ' 遍历选中区域的每个单元格
    For Each cell In Selection
        ' 跳过空单元格，避免无效操作
        If cell.Value <> "" Then
            ' 逐个遍历单元格内的字符
            For i = 1 To Len(cell.Value)
                With cell.Characters(Start:=i, Length:=1).Font
                    ' 判断当前字符是否为红色
                    If .Color = RGB(255, 0, 0) Then
                        .Size = 14
                        .Bold = True
                        .Underline = xlUnderlineStyleSingle
                    Else
                        ' 非红色字符统一设为黑色
                        .Color = RGB(0, 0, 0)
                    End If
                End With
            Next i
        End If
    Next cell
End Sub

代码关键说明 #

• 通过Len(cell.Value)获取单元格字符总长度，实现逐个字符遍历
• 利用Characters(Start:=i, Length:=1)定位单个字符，精准访问其字体属性
• 对红色字符设置14号字体、加粗、单下划线格式；非红色字符强制设为黑色
• 加入空单元格判断，减少不必要的循环消耗

内容的提问来源于stack exchange，提问作者Альонка Д.В.