Excel VBA合并单元格保留内容

还在为Excel合并单元格后内容消失而烦恼吗？今天分享一个超实用的VBA解决方案！

功能亮点

• • 📌 保留全部内容：合并时将原单元格内容用换行符连接保存
• • 📌 自动格式优化：启用自动换行+顶端对齐，阅读更舒适

核心代码解析

' 关键步骤：'1. 遍历选区收集内容'2. 用vbCrLf连接非空文本  '3. 安全合并单元格'4. 应用优化格式Sub MergeCellsWithAllContent()    ' 方法1：用换行符合并内容    Dim rng As Range    Dim mergedText As String    Dim cell As Range    ' 检查是否选择了单元格区域    If TypeName(Selection) <> "Range" Then        MsgBox "请先选择一个单元格区域", vbExclamation        Exit Sub    End If    Set rng = Selection    ' 检查区域是否只有一个单元格    If rng.Cells.Count = 1 Then        MsgBox "请选择多个单元格进行合并", vbExclamation        Exit Sub    End If    ' 检查区域内是否有合并单元格    If rng.MergeCells Then        MsgBox "所选区域包含已合并的单元格，请重新选择", vbExclamation        Exit Sub    End If    ' 收集所有单元格内容    mergedText = ""    For Each cell In rng        If Trim(cell.Value) <> "" Then            If mergedText = "" Then                mergedText = cell.Value            Else                mergedText = mergedText & vbCrLf & cell.Value            End If        End If    Next cell    ' 合并单元格并添加内容    Application.DisplayAlerts = False ' 禁用警告    rng.Merge    Application.DisplayAlerts = True ' 重新启用警告    ' 设置合并后单元格的内容和格式    rng.Cells(1).Value = mergedText    rng.WrapText = True ' 自动换行    rng.VerticalAlignment = xlTop ' 顶端对齐    MsgBox "单元格合并完成！" & vbCrLf & _           "原始内容已用换行符合并保留", vbInformationEnd Sub

使用场景

• • 报表数据整合
• • 多行信息合并展示
• • 数据整理与清洗

告别数据丢失的合并操作，让你的Excel工作效率翻倍！