Excel情报局
职场联盟Excel
生产挖掘分享Excel基础技能
Excel爱好者大本营
用1%的Excel基础搞定99%的职场问题
做一个超级实用的Excel公众号
Excel是门手艺玩转需要勇气
数万Excel爱好者聚集地
SUPER EXCEL MAN
1
职场实例
今天小编解决了一个困扰自己很久的Excel的问题：合并多个单元格的内容而不丢失Excel中的数据。
在日常的职场工作中，我们经常要使用Excel的“合并单元格”的功能，如下图所示，我们对A1:B3单元格中的数据进行合并单元格，合并单元格后使数据不丢失，形成D1:E3单元格区域的效果。
经常使用Excel表格的小伙伴都知道，合并单元格后，只会保留右上角第一个单元格的数据，其他格数据则会消失。如下图所示：
2
解题思路
合并单元格后，只保留右上角第一个单元格的数据是微软Office Excel的一个弊病，要想解决这个问题，要使用VBA代码来突破。
首先我们右击工作表的名称标签，点击“查看代码”，进入到VBA代码编辑器窗口（或按快捷键Alt+F11进入）。然后将下面的一段VBA代码复制粘贴到代码框空白区域，如下图所示：
VBA代码（模型固定，复制粘贴即用）：
Sub MergeOneCell()Dim Rng As RangeDim WorkRng As RangeDim Sigh As StringOn Error Resume NextxTitleId = "Excel情报局"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("选择要合并的单元格", xTitleId, WorkRng.Address, Type:=8)Sigh = Application.InputBox("输入分隔符(可直接跳过)", xTitleId, "", Type:=2)xOut = ""Application.DisplayAlerts = FalseFor Each Rng In WorkRng xOut = xOut & Rng.Value & SighNextWith WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)End WithApplication.DisplayAlerts = TrueEnd Sub点击上方的【运行-运行子过程/用户窗体】，运行这段代码，然后会弹出一个提示框【选择要合并的单元格】，我们直接勾选要合并的区域A1:B3。
具体操作步骤如下图所示：
点击【确定】后，又会自动弹出一个提示框【输入分隔符（可直接跳过）】，这里是让我们输入一个连接每个单元格数据的符号。如果我们不想添加分隔符的话，可以什么也不输入，直接点击【确定】按钮跳过即可。在本例中，小编输入的分隔符是一个空格（敲击一个空格键即可）。
最终，我们点击【确定】按钮，关闭VBA代码编辑器的窗口，当我们回到Excel工作表的时候，发现合并单元格已经完成。具体操作步骤如下图所示：
由于合并单元格后的数据太长了，所以我们需要选中此单元格后点击【自动换行】功能，使全部数据都显示出来。至此我们就完成了合并多个单元格的内容而不丢失Excel中数据的操作。
回顾关键内容，善用图片表达，学会建立联系，拓展深度广度，浓缩关键概念，应用到行动中，善于归纳总结，尝试进行分享。
