VBA - Excel组织/复制数据

Question

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

先谢谢你了！

Ĵ

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

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

Answer 1

将您的数据放在 B1 的 A 栏中输入：

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

并复制

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

Answer 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