poi合并单元格并设置内容居中_合并单元格如何保留所有的内容

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

动画演示：使用效果

制作教程

进入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，今天我们就到这里~希望能解决了大家这个烦恼~

分享、点赞、在看三连

这里是 易办公、早下班 的  Excel办公实战