Excel合并3个单元格文本并保留原有格式的自动实现方案咨询

Excel所有内置公式的返回值均为纯文本，无法携带字体、颜色、加粗、斜体等格式信息，因此无法通过公式实现带格式的单元格内容合并，以下是可落地的实现方案：

方案1：VBA宏批量处理（首选，适合大批量数据自动化操作） #

该方案可以100%保留原单元格所有格式，自定义调整灵活，操作一次即可完成全量数据处理，步骤如下：

1. 打开需要处理的Excel文件，按Alt + F11调出VBA编辑器
2. 右键点击左侧工程列表中的当前工作簿名称，选择「插入」-「模块」
3. 将下方代码粘贴到弹出的代码编辑窗口中，按需修改代码开头的列号、起始行等参数
4. 按F5运行代码即可完成合并

Sub 带格式合并单元格()
    Dim i As Long, startRow As Long, endRow As Long
    Dim insertPos As Integer
    
    ' 可根据实际需求修改以下参数
    Const 合并列1 As Integer = 1 ' 第一个待合并内容所在列，1对应A列
    Const 合并列2 As Integer = 2 ' 第二个待合并内容所在列，2对应B列
    Const 合并列3 As Integer = 3 ' 第三个待合并内容所在列，3对应C列
    Const 输出列 As Integer = 4 ' 合并结果输出列，4对应D列
    startRow = 2 ' 待合并内容的起始行，可自行调整
    
    endRow = Cells(Rows.Count, 合并列1).End(xlUp).Row
    
    For i = startRow To endRow
        Cells(i, 输出列).ClearFormats
        Cells(i, 输出列).Value = ""
        insertPos = 1
        ' 写入第一个单元格内容+格式
        Cells(i, 合并列1).Copy
        Cells(i, 输出列).Characters(insertPos, 0).PasteSpecial xlPasteFormats
        Cells(i, 输出列).Characters(insertPos, Len(Cells(i, 合并列1).Value)).Text = Cells(i, 合并列1).Value
        insertPos = insertPos + Len(Cells(i, 合并列1).Value)
        ' 插入双换行符
        Cells(i, 输出列).Characters(insertPos, 0).Text = vbCrLf & vbCrLf
        insertPos = insertPos + 2
        
        ' 写入第二个单元格内容+格式
        Cells(i, 合并列2).Copy
        Cells(i, 输出列).Characters(insertPos, 0).PasteSpecial xlPasteFormats
        Cells(i, 输出列).Characters(insertPos, Len(Cells(i, 合并列2).Value)).Text = Cells(i, 合并列2).Value
        insertPos = insertPos + Len(Cells(i, 合并列2).Value)
        ' 插入双换行符
        Cells(i, 输出列).Characters(insertPos, 0).Text = vbCrLf & vbCrLf
        insertPos = insertPos + 2
        
        ' 写入第三个单元格内容+格式
        Cells(i, 合并列3).Copy
        Cells(i, 输出列).Characters(insertPos, 0).PasteSpecial xlPasteFormats
        Cells(i, 输出列).Characters(insertPos, Len(Cells(i, 合并列3).Value)).Text = Cells(i, 合并列3).Value
        
        ' 开启目标单元格自动换行
        Cells(i, 输出列).WrapText = True
    Next i
    Application.CutCopyMode = False
End Sub

注意事项：

• 运行前请先备份原文件，避免误操作导致数据丢失
• 如果需要合并的列数超过3列，可参照现有逻辑增删对应段落即可

方案2：系统剪贴板操作（适合少量临时数据处理） #

如果不想启用宏，且需要处理的数据量很小，可使用该方法：

• 点击Excel「开始」选项卡剪贴板组右下角的小箭头，调出Office剪贴板面板
• 依次复制第一个单元格内容、输入两个换行符复制、复制第二个单元格内容、输入两个换行符复制、复制第三个单元格内容
• 双击目标单元格，点击剪贴板中对应的拼接内容完成粘贴，即可保留原格式

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