UnMerge 方法

将合并区域分解为独立的单元格。

expression   必需。该表达式返回一个 Range 对象。

示例

本示例将包含单元格 A3 的合并区域分解。

With Range("a3")
    If .MergeCells Then
        .MergeArea.UnMerge
    Else
        MsgBox "not merged"
    End If
End With