合并单元格如何保留所有的内容

地球人都知道合并单元格后，只会保留合并区域左上角单元格中的内容，但是实际确实存在合并想保留所有内容，把这些内容通过分隔符合并到一个单元格中，所以我们今天就来解决这个问题！

动画演示：使用效果

制作教程

进入VBE，粘贴代码

不知道如何使用VBA的，查看这篇足够：如何使用VBA

源码：

Option Explicit
'功能：合并单元格保留全部内容'公众号：Excel办公实战'作者：小易'日期：20200819'----------------------------------Sub MergeCell() Dim strRes As String '结果 Dim rng As Range For Each rng In Selection '选择的区域 If rng <> "" Then '不为空合并 strRes = strRes & "," & rng.Value End If Next '取消合并提示 Application.DisplayAlerts = False Selection.Merge '合并 Application.DisplayAlerts = True '写入合并后的内容 Selection.Cells(1).Value = Mid(strRes, 2, Len(strRes) - 1)End Sub

代码基本都有注释，这里不再啰嗦，分隔符修改strRes = strRes & "," & rng.Value 其中的逗号修改为需要的分隔符即可！

指定快捷键，使用快捷键执行

> 开发工具-宏中找到刚写好的宏，在选项中设置快捷键

> 选择要合并大单元格区域，按下指定快捷键即可！

OK，今天我们就到这里~希望能解决了大家这个烦恼~

赞 (0)

相关推荐