巧用VBA代码快速合并Excel相同单元格的内容

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、选择需要取消合并单元格的所有内容，点击【开发工具】→【宏】，选择名为【取消合并单元格】的宏，点击执行。

【综合网络信息编辑，版权当属原作者。由于部分网络资料几经转载，很多作品的原作者和来源不详或者不确定，若未标明来源，敬请谅解，请及时联系我们注明！若有侵犯，恳请联系我们，我们将尽快删除！】