Sub 拆分並填充單元格()
'
' 拆分並填充單元格 巨集
'
' 可以將選中的所有單元格都拆開並填充
'
    If Application.Selection.MergeCells = True Then
        Set selectedRange = Application.Selection
        selectedRange.UnMerge
        selectedRange.Value = selectedRange.Cells(1, 1).Value
    Else
        For Each selectedCell In Application.Selection
            If selectedCell.MergeCells = True Then
                Set selectedRange = selectedCell.MergeArea
                selectedRange.UnMerge
                selectedRange.Value = selectedRange.Cells(1, 1).Value
            End If
        Next
    End If
End Sub
 

記錄一下，免得每次都找。