我的理解是你要合并你选中的单元格区域，并保留所有单元格里的文本，换行显示？
你可以在你的表中VBA工程里插入一模块，复制以下宏代码
Sub 合并()
Dim ran As Range
Dim str As String
For Each ran In Selection
str = str & ran & vbCrLf
Next
str = Left(str, Len(str) - 1)
Selection.ClearContents
Selection.Merge
Selection = str
End Sub
如下图
工具－宏－执行宏。选项，在宏选项中为该宏设定快捷键，如Ctrl+j，确定
下面是操作
选 中你要合并的区域：
按快捷键：Ctrl+J，得到结果：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024