快速合并内容相同的连续单元格

-01-

快速合并单元格

如下图所示，A列是一些部门。现在要将部门相同的连续单元格合并起来。这个问题手工合并还是很麻烦的，可以用分类汇总来做。我这里是用vba代码来做的，只需点下按钮就ok了。

代码如下：

Sub 合并相同内容的连续单元格() Dim i As Long Application.DisplayAlerts = False For i = Range("a1").End(xlDown).Row To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Range(Cells(i, 1), Cells(i - 1, 1)).Merge End If Next i Application.DisplayAlerts = TrueEnd Sub

-02-

快速解除合并单元格

解除合并单元格用手工操作也不麻烦，也就两三步，相信很多小伙伴都会操作，就不演示了。还是分享下代码的方法。

代码如下：

Sub 取消合并单元格() Dim i As Long, k As Integer For i = 2 To 14 With Cells(i, 1) k = .MergeArea.Count .UnMerge .Resize(k, 1).Value = .Value End With i = i + k - 1 Next i [b2:b14].Copy Range("a2:a14").PasteSpecial xlPasteFormats Application.CutCopyMode = False [e1].SelectEnd Sub

文件链接：

https://pan.baidu.com/s/14NMX3pwGaNNKGtXVHPt9uQ

提取码：2usa