Excel VBA 8.14合并单元格的分分合合 区别就在一个UN上

合并单元格的分分合合 区别就在一个UN上

---

点击上方“Excel和VBA”，选择“置顶公众号”

致力于原创分享Excel的相关知识，源码，源文件打包提供

一起学习，一起进步~~

---

前景提要

之前一段时间们分享了一些关于单元格合并的方法，相信大家对于单元格的合并操作已经有了一定的了解了，有不少的小伙伴很早就已经坐不住了，一直在说希望我尽快出一些拆除单元格合并的方法，因为很多人并不是很喜欢含有合并单元格的表格，因为毕竟合并单元格带来的弊端还是不少的，那么今天开始我们就来分享一些关于解除合并单元格的方法吧

场景说明

来看看上面的数据源，这就是我们今天模拟的数据，非常的简单，今天要分享的知识同样也是非常的简单，我们要实现的就是合并单元格的拆解，取消单元格的合并。

合并单元格我们借用的是merge方法，那么解除单元格的合并呢？UNmerge

正如标题所说的，区别就在一个UN上

代码区

Sub test()Dim rng As Range, a As RangeSet rng = Application.InputBox("请选择合并的区域", "合并不相同内容", , , , , , 8)For Each a In rng    If a.MergeCells = True Then        a.UnMerge    End IfNext aEnd Sub

来看看代码实现的效果

代码解析

代码方面也是非常的简单了。

我们要取消单元格的合并，自然要知道这个单元格区域是否存在合并单元格，也就说我们需要知道这个单元格是不是合并单元格

那么如何知道呢？

If a.MergeCells = True Then

如果是合并单元格的话，a.MergeCells = True条件是成立的

反之，如果不是合并单元格，那么a.MergeCells = True就是不成立的

不成立的话，自然是不需要去取消合并单元格了。

如果a.MergeCells = True条件成立，那么就可以取消合并单元格了。

问题又来了

如何取消合并？

a.UnMerge

答案很简单，呼之欲出了。

下节提要

这样取消之后的单元格结果是你想要的吗？

是不是太简单了，中间的空白单元格还需要再去手工填充一次！

能不能够一次做到最好呢？