VBA - Excel 组织/复制数据

【问题标题】：VBA - Excel Organizing/Duplicating DataVBA - Excel 组织/复制数据
【发布时间】：2014-09-14 20:08:58
【问题描述】：

我正在寻找一种方法来复制和重新排列我使用宏或存在的函数所拥有的一些数据。任何帮助将不胜感激。

谢谢你！

数据是列在 A 列中的唯一 ID 号，如下所示。

我试图让每个数字连续重复 4 次，如下图所示......

【问题讨论】：

标签： vba excel

【解决方案1】：

在B1的A列中输入您的数据：

=INDIRECT("A" & ROUNDUP(ROW()/4,0))

复制下来

然后复制列 B 和粘贴/特殊/值回到列 A

【讨论】：

=INDEX(A:A,ROUNDUP(ROW()/4,0)) 避免波动 ;)
@Cor_Blimey 好主意！

【解决方案2】：

Sub myMacro()

    ' where data is
    Dim rowData As Integer
        rowData = 2

    ' where data is duplicated 4 times
    Dim rowNew As Integer
        rowNew = 1

    ' loop through all entries of column A
    Do While Range("A" & rowData).Value <> ""

        Do While rowNew Mod 4 <> 0

            ' copy
            Range("B" & rowNew).Value = Range("A" & rowData).Value
            rowNew = rowNew + 1

        Loop

        ' last copy
        Range("B" & rowNew).Value = Range("A" & rowData).Value
        rowNew = rowNew + 1

        ' next row
        rowData = rowData + 1

    Loop

End Sub

【讨论】：