当前位置：首页>Excel>EXCEL合并有数据的单元格,只能保留左上角的数据怎么办?

EXCEL合并有数据的单元格,只能保留左上角的数据怎么办?

2026-07-16 00:29:16

点亮☆星标，不错过精彩分享

在日常工作中，我们经常需要合并单元格，但是如果合并的单元格中，有多个数据，合并时，只能保留最左上角单元格的数据。

其它数据都被删除了，如何能在合并单元格时，保留所有数据呢？比如这样的效果：

怎么做呢？

常规的菜单操作方法无法做到。但是如果你学过VBA，这个问题就好处理了。如果你想在EXCEL中高效处理复杂的问题，建议你从现在开始学习一下VBA知识。

使用方法：

打开 Excel，按 Alt + F11 打开 VBA 编辑器
右键左侧工作表 / 工作簿 → 插入 → 模块
将完整代码粘贴进模块窗口
返回 Excel，选中需要处理的单元格区域
按 F5 运行【合并填充】宏

操作演示：

VBA代码：

Sub 合并填充()    Dim selRng As Range    Dim cell As Range    Dim rowRng As Range    Dim rowText As String    Dim totalText As String    Dim colTxt As String    Set selRng = Selection    If selRng.Cells.Count = 1 Then        MsgBox "仅选中单个单元格，无需处理！", vbInformation        Exit Sub    End If    Application.DisplayAlerts = False    For Each rowRng In selRng.Rows        rowText = ""        For Each cell In rowRng.Cells            colTxt = Trim(cell.Value)            If colTxt <> "" Then                If rowText <> "" Then                    rowText = rowText & ","                End If                rowText = rowText & colTxt            End If        Next cell        If rowText <> "" Then            If totalText <> "" Then                totalText = totalText & vbCrLf            End If            totalText = totalText & rowText        End If    Next rowRng    selRng.Merge    selRng.Value = totalText    selRng.WrapText = True    Application.DisplayAlerts = True    MsgBox "单元格合并完成！", vbInformationEnd Sub