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

归档779

审技265 程技242 投技146 财技57 税技47 法技11 食技7 书技4

292 字

1 分钟

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

2023-10-23

程技

VBA

浏览量加载中...

大家好！

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

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

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

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

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

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

方法一：#

1
Sub 宏2()
2

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

7
End Sub

方法二：#

1
Sub 取消合并单元格()
2

3
    Dim cel As Range
4
    Dim mRng As Range
5
    Dim mRngVal
6

7
    For Each cel In Range("a1:a20")
8
        If cel.MergeCells Then
9
            Set mRng = cel.MergeArea
10
            mRngVal = mRng(1, 1)
11
            mRng.UnMerge
12
            mRng.Value = mRngVal
13
        End If
14
    Next
15

16
End Sub