Question

我需要复制一系列单元格（A10：Z25）然后将其粘贴到最后一行或范围下的12行，排Z. 这需要进行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

VBA宏以12行的间隔复制和粘贴

1 个答案: