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 IfEnd Sub

想想我的影子，我会在你身后给你一个拥抱;

相关文章：

你感兴趣的文章：

标签云：