【Excel VBA】セルが結合されているかを判定する（MergeCells）

Public Sub execUnMergeAllCell()
    Dim rng As Range    ' チェック対象セル

    ' チェック対象セルをセット
    Set rng = Range("A1:C3")

    If rng.MergeCells Then

        ' セルが結合されている場合
        MsgBox rng.Address(0, 0) & "セルは結合されています"
    ElseIf rng.MergeCells = False Then

        ' セルが結合されていない場合
        MsgBox rng.Address(0, 0) & "セルは結合されていません"
    Else

        ' セルの結合が混在している場合
        MsgBox rng.Address(0, 0) & "セルは、結合セルと非結合セルが混在しています。"
    End If
End Sub

Public Sub execUnMergeAllCell()
    Dim rng As Range    ' チェック対象セル

    ' チェック対象セルをセット
    Set rng = Range(Cells(1, 1), Cells(3, 3))

    If rng.MergeCells Then

        ' セルが結合されている場合
        MsgBox rng.Address(0, 0) & "セルは結合されています"
    ElseIf rng.MergeCells = False Then

        ' セルが結合されていない場合
        MsgBox rng.Address(0, 0) & "セルは結合されていません"
    Else

        ' セルの結合が混在している場合
        MsgBox rng.Address(0, 0) & "セルは、結合セルと非結合セルが混在しています。"
    End If
End Sub