Public Sub unmergeCells() Dim myRange As Excel.Range Dim selCells As Excel.Range Set selCells = Selection.Cells ' For Each myRange In selCells ' myRange.UnMerge ' Next selCells.UnMerge Set selCells = Nothing End Sub 試行錯誤しすぎ。

WX310K で撮ってアップする日記です。