Excel Vba拆分并填充单元格

进在将技术支持人员录入的库数据（Excel格式数据）转录到数据中时发现他们都按照书本格式将单元格合并后录入，这给转到数据带来麻烦，转导数据需要将 单元格拆开并填充成一样的数据才方便，如果手工一个个拆开并填充岂不累死，于是想到了VBA，花了两三个钟头学习了下写了个拆分并填充单元格的宏；虽然花 两三个钟头学习对于今天录入不是很划算，但对于以后还是值得的:)

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