问答009-如何快速合并相同单元格的内容

栏目内容来自公子回答自媒体或网友的问题

您好，快速让相同内容的单元格合并有很多种办法，这里我介绍一种最简单，最一劳永逸的方法，使用VBA代码。

具体步骤如下：

1、打开需要合并单元格的文件

2、点击【开发工具】→Visual Basic打开VBA编辑器。

3、右击鼠标插入模块，将代码复制进去，关闭VBA编辑器。具体操作参见如上动图。

相关代码如下：

Sub 合并单元格()

Dim i As Integer, j As Integer, rng As Range, x As Integer, rng1 As Range

Application.DisplayAlerts = False

Set rng1 = Selection.Range('a1:a' & Application.CountA(Selection))

i = Application.CountA(rng1)

x = Selection.Range('a1').Row

For j = i + x - 1 To x + 1 Step -1

Set rng = Cells(j, Selection.Column)

If rng = rng.Offset(-1) Then rng.Offset(-1).Resize(2).Merge

Next

Application.DisplayAlerts = True

End Sub

4、选择需要合并单元格的所有内容，点击【开发工具】→【宏】，选择名为【合并单元格】的宏，点击执行即可。

5、如果需要取消合并，重复步骤1-3，将下面的代码放到VBA编辑器里。

Sub 取消合并单元格()

Dim i As Integer, rng As Range

For Each rng In Selection

i = rng.MergeArea.Count

rng.UnMerge

rng.Resize(i) = rng

Next

End Sub

6、选择需要取消合并单元格的所有内容，点击【开发工具】→【宏】，选择名为【取消合并单元格】的宏，点击执行。

公子提醒您：如果希望下次继续用这个文件重命名，请将工作表保存为后缀名为.xlsm的格式。

以上是该问题的解答，希望对您有帮助。