1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub rrr() Dim val For Each cell In Selection If cell.MergeCells Then cell.Select val = cell.Value cell.MergeArea.UnMerge For Each singleCell In Selection singleCell.Value = val Next singleCell End If Next cell End Sub |
Direct link: https://paste.plurk.com/show/1206157