excel - 每 10 个单元格范围 *10 次复制粘贴到一列

Question

我想每 10 行复制并粘贴一次，从 A 列到 B 列 10 次，依此类推，直到 A 列末尾。

这是我尝试过的宏示例:

Sub cpydble()
Dim j As Long
Dim i As Long
Dim lRow As Long


lRow = Cells(Rows.Count, 1).End(xlUp).row


For i = 1 To lRow Step 10
    For j = 1 To 100 Step 10
    Cells(i, 1).Resize(10).Copy Destination:=Cells(j, 2)

    Next j
Next i
End Sub

我是 VBA 初学者，希望您能提供帮助 - 提前致谢。

这是我当前的结果:

Answer 1

您可以使用:

For i = 1 To lRow Step 10
    Range("B" & i & ":B" & i + 9).Value = Range("A1:A10").Value
Next i

请注意，对于上述代码，如果不是 10 的倍数，最后一次迭代将位于 A 列中最后一行的下方。