VBA宏以12行的間隔復制和粘貼

Question

我需要復制一系列單元格 (A10:Z25)，然后將其粘貼到最后一行或范圍 Z 行下的 12 行。這需要進行 1000 次。

換句話說：復制 16 行 跳轉 12 行（從范圍的最后一個單元格）粘貼 16 行跳轉 12 行（從范圍的最后一個單元格）粘貼 16 行

等等...... 1000次。

謝謝

Answer 1

Sub Test()

Dim i As Integer
Dim intRowno As Integer

intRowno = 1

For i = 1 To 1000

    Range("A10:Z25").Copy Cells(intRowno, 2)
    intRowno = ((i + i) * 12) + 1

Next


End Sub