Sub Sample2() 'A1のセルが結合セルだった場合、その結合セルの範囲 '結合セルでない場合はA1のセルのアドレスを表示します。 MsgBox Range("A1").MergeArea.Address End Sub