セルの結合を解除する（シート全体）

Sub CancelJoin()

Cells.Select

With Selection

.VerticalAlignment = xlTop

.Orientation = 0

.AddIndent = False

.ReadingOrder = xlContext

.MergeCells = False

End With

End Sub