单元格想合就合就分就分

前面的两篇文章取消合并单元格，到底步骤还是多一些。

今天分享一段代码，一键就可以取消，一键就可以合并。

接下来，先看ForSheet表演。

是不是很方便？

当然，还可以指定列来进行合并，想合就合，想分就分，就是这么的任性。

以后只需要将你的合并列复制到该文件中，不管后面有几十行几百行几万行。

那还不是几秒钟的事。

会点VBA就是不一样，没有的功能自己可以写点代码。

其中这里用了两种代码。

以下代码我觉得更方便些

思路是这样的，从最后一行向上做循环，如果发现当前行与上一行的内容相同，则合并

就是这么简单。

Private Sub CommandButton2_Click()

Dim i As Long

Dim rs As Long

Application.DisplayAlerts = False

With ActiveSheet

rs = .Range("a1").End(xlDown).Row

For i = rs To 2 Step -1

If .Cells(i, 1) = .Cells(i - 1, 1) Then

.Range(Cells(i, 1), Cells(i - 1, 1)).Merge

End If

Next

End With

Application.DisplayAlerts = True

End Sub

当你打开此类文件时，因为有宏代码，需要点击以下按钮，启用宏。

会一点VBA真的是不一样，有想法就可以去实现。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。