zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    C#学习五
    C#学习二
    C#学习五
    完成车牌识别,自行拍车牌图片进行上传并查看结果
    C#学习
    简述ASP.NET网站开发步骤
    C#学习四
    C#学习三
    完成身份证识别,自行拍摄身份证图片进行上传并查看结果
    C#学习总结
  • 原文地址:https://www.cnblogs.com/icedream/p/2945158.html
Copyright © 2011-2022 走看看