【VBA案例018】取消合并单元格

大家好！

上一篇内容分享了，用VBA合并单元格的两个方法。本期就来看一下如何取消合并的单元格。

同样的，WPS内置了一键取消合并单元格并填充内容的功能，而Excel用户只能流下羡慕的泪水。

这次介绍两个方法，来实现和WPS一模一样的功能。

第一个方法：使用录制宏的操作，把平时手动取消合并的操作记录下来，并对代码加以修改，来达到目的。第二个方法：使用的循环单元格判断是否合并的方法，其中有几个常用的属性是我们必须要了解掌握的。

两个方法都比较简单。大家可以根据实际情况，酌情选择适用的方法。

以下是VBA代码。详细解析请看文末的视频。

方法一：

1
2
3
4
5
6
7
Sub 宏2()

    Range("a1:a20").UnMerge
    Range("a1:a20").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    Range("a1:a20").Value = Range("a1:a20").Value

End Sub

方法二：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub 取消合并单元格()

    Dim cel As Range
    Dim mRng As Range
    Dim mRngVal

    For Each cel In Range("a1:a20")
        If cel.MergeCells Then
            Set mRng = cel.MergeArea
            mRngVal = mRng(1, 1)
            mRng.UnMerge
            mRng.Value = mRngVal
        End If
    Next

End Sub

原始链接