如何不规则的合并单元格（取消复杂的合并单元格）

在实际工作中，对于结构简单的带有合并单元格的表格，一般可以通过取消合并单元格后，再通过定位空值然后进行填充，但是对于这种填充只对结构简单的表格有效，如果合并单元格的区域像下面这样子，又将如何取消合并并且填充呢？

在实际工作中，对于结构简单的带有合并单元格的表格，一般可以通过取消合并单元格后，再通过定位空值然后进行填充，但是对于这种填充只对结构简单的表格有效，如果合并单元格的区域像下面这样子，又将如何取消合并并且填充呢？

多种样式的单元格合并

很显然，对于部门列的单元格合并，由于数据结构十分复杂，上述的做法已经不能满足需求了，一般的查找与引用函数也不会奏效，那么你可以试一下VBA法，两个for循环就可搞定，废话不多说，直接上GIF效果图。

动态演示图

下面的代码你可以直接拷贝到你电脑上用(粘贴到代码窗口[VBE界面])，主要意思是通过你选择的区域进行循环取消合并单元格：

Sub UnMergeRange2() '取消合并单元格
Dim MaxRow As Integer '
Dim Rng As Range
Dim x%, y%, m%, n%, i%
Dim Rng2 As Range
'Dim x% 等价于 Dim x As Integer
On Error ResumeNext'发生错误继续运行
'Rng接收选择的区域
Set Rng = Application.InputBox("请选择需要取消合并单元格的区域：", _
"区域选择", , , , , , 8)
'x循环选择区域的行
'y循环选择区域的列
For x = 1 To Rng.Rows.Count
For y = 1 ToRng.Columns.Count

'Rng2 接收循环在选择区域的行列(单元格)
Set Rng2 = Rng.Cells(x, y)

'i 接收Rng2合并单元格的合并单元格的数量
i = Rng2.MergeArea.Count

'当i=1时，则不存在合并单元格
'当i>1时，说明存在合并单元格
If i > 1 Then

'm 接收Rng2合并单元格区域行数的统计
'n 接收Rng2合并单元格区域列数的统计
m = Rng2.MergeArea.Rows.Count
n =Rng2.MergeArea.Columns.Count

Rng2.UnMerge '取消合并单元格

'Rng2(取消合并后)扩展m行n列的区域，
'等于Rng2的内容
Rng2.Resize(m, n).Value =Rng2.Value
End If
Next
Next
End Sub