嘿，我完全懂你这个困扰！合并两个带条件格式的单元格后，想分别保留每行原来的格式，结果直接合并再处理格式的话，条件格式会套在整个单元格上，根本没法让局部文本保留原样式对吧？你提到的Range.DisplayFormat确实找对方向了，下面给你两种可行的解决办法：

一、VBA自动化方案（适合批量操作） #

这个方法能精准提取条件格式生效后的显示样式，再把格式分别应用到合并单元格的局部文本上：

Sub MergeWithPreservedConditionalFormatting()
    ' 替换成你需要合并的两个单元格范围
    Dim sourceCell1 As Range, sourceCell2 As Range
    Set sourceCell1 = ActiveSheet.Range("A1")
    Set sourceCell2 = ActiveSheet.Range("A2")
    
    ' 合并后的目标单元格，可自行指定
    Dim targetCell As Range
    Set targetCell = ActiveSheet.Range("A3")
    
    ' 提取原单元格的文本内容
    Dim textPart1 As String, textPart2 As String
    textPart1 = sourceCell1.Value
    textPart2 = sourceCell2.Value
    
    ' 将两行文本合并到目标单元格（用Alt+Enter的换行符分隔）
    targetCell.Value = textPart1 & vbCrLf & textPart2
    
    ' 给第一部分文本应用原单元格的显示格式
    With targetCell.Characters(Start:=1, Length:=Len(textPart1)).Font
        .Color = sourceCell1.DisplayFormat.Font.Color
        .Bold = sourceCell1.DisplayFormat.Font.Bold
        .Italic = sourceCell1.DisplayFormat.Font.Italic
        .Size = sourceCell1.DisplayFormat.Font.Size
        ' 可按需添加更多格式属性，比如字体、下划线等
    End With
    
    ' 给第二部分文本应用第二个单元格的显示格式
    ' +2是因为vbCrLf占两个字符长度
    With targetCell.Characters(Start:=Len(textPart1) + 2, Length:=Len(textPart2)).Font
        .Color = sourceCell2.DisplayFormat.Font.Color
        .Bold = sourceCell2.DisplayFormat.Font.Bold
        .Italic = sourceCell2.DisplayFormat.Font.Italic
        .Size = sourceCell2.DisplayFormat.Font.Size
    End With
    
    ' 可选：如果需要合并原两个单元格，取消下面注释
    ' sourceCell1.Resize(2).Merge
End Sub

关键细节 #

• DisplayFormat是核心：它能直接获取单元格实际显示出来的格式（也就是条件格式生效后的最终样式），而不是单元格的基础格式，这正是我们需要的。
• Characters对象：合并后的单元格里，通过这个对象可以定位到特定范围的文本，单独设置格式，实现局部保留原格式的效果。

二、手动操作方案（适合临时单次操作） #

如果只是偶尔处理，不想写代码，可以试试这个笨但有效的方法：

• 先把两个单元格的文本分别复制出来，粘贴到合并后的单元格里，用Alt+Enter实现换行。
• 选中第一行文本，点击工具栏的格式刷，然后直接点击原第一行的单元格（注意是点击，不是拖动刷），就能把原格式复制到选中的文本上。
• 对第二行文本重复上面的格式刷操作，选中原第二行单元格即可。

这样就能手动把两行的格式分别套到合并单元格的对应文本上啦。

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