在VBA中向带格式单元格添加无格式文本时保留原有格式

直接用Cells(NRow, NCol) = ...赋值会覆盖单元格的富文本格式——这种操作是整体替换单元格内容，会清除所有字符级的格式设置。要实现追加无格式文本且保留原有格式，需要操作单元格的字符级格式对象，具体可以用以下两种方法：

方法一：使用Characters属性（兼容全版本Excel） #

通过定位现有文本的末尾，追加新内容后单独设置新文本的默认格式：

With BSheet.Cells(NRow, NCol)
    Dim existingLen As Integer
    existingLen = Len(.Value)
    
    ' 追加换行和新文本（如果原有内容不为空）
    If existingLen > 0 Then
        .Characters(existingLen + 1).Text = vbCrLf & vbCrLf & txt
    Else
        .Value = txt
    End If
    
    ' 将新追加的文本设置为默认无格式样式
    With .Characters(existingLen + 1, Len(vbCrLf & vbCrLf & txt))
        .Font.ColorIndex = xlAutomatic ' 恢复默认颜色
        .Font.Bold = False
        .Font.Underline = xlUnderlineStyleNone
    End With
    
    .EntireRow.AutoFit
End With

方法二：使用RichText对象（Excel 2013+推荐） #

面向对象的方式更清晰，直接操作富文本段落：

With BSheet.Cells(NRow, NCol).RichText
    If .Count > 0 Then
        ' 追加换行和新文本
        .Add vbCrLf & vbCrLf & txt
        ' 给最后一段新文本设置默认格式
        With .Item(.Count)
            .Font.Color = vbBlack ' 使用默认黑色或xlAutomatic
            .Font.Bold = False
            .Font.Underline = xlUnderlineStyleNone
        End With
    Else
        ' 单元格为空时直接添加文本
        .Add txt
    End If
End With

BSheet.Cells(NRow, NCol).EntireRow.AutoFit

关键说明 #

• 两种方法都是在原有富文本内容的基础上追加新文本，不会改动原有字符的格式。
• 新文本的格式需要手动设置为默认样式，避免继承原有文本的格式（比如原有文本末尾是红色，新文本会默认继承，所以要强制重置）。

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