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