スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
MergeCellsプロパティを利用すると、指定したセルが結合セルに含まれるかの判定ができます。MergeCellsプロパティは、指定したセルが結合セルに含まれる場合、Trueを、含まれない場合、Falseを返します。

　構文 オブジェクト.MergerCells
　設定項目　　　　内容
　オブジェクト　　Rangeオブジェクト

次のサンプルは、セルA1が結合セルかどうかを、MergeCellsプロパティを利用して判定し、メッセージを表示します。

●サンプル●
Sub CheckMergeCellsSample()
    Dim CheckRange As Range
    
    Set CheckRange = Range("A1")
    
    If CheckRange.MergeCells Then
        MsgBox "セルは結合されています"
    Else
        MsgBox "セルは結合されていません"
    End If
    
    Set CheckRange = Nothing
End Sub

●ポイント●
判定するセルが単一のセルではなく、セル範囲の場合、指定したセル範囲全体が、結合セルに含まれる場合のみ、MergeCellsプロパティはTrueを返します。