2007-07-29 ExcelのUnmerge コ 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 試行錯誤しすぎ。