Sub Sample1() 'A1のセルが結合セルかどうか判別します。 If Range("A1").MergeCells = True Then MsgBox "結合セルです" Else MsgBox "結合セルではありません" End If End Sub