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

【问题标题】：VBA Macro to Copy and paste in interval of 12 rowsVBA宏以12行间隔复制和粘贴
【发布时间】：2016-10-13 11:34:54
【问题描述】：

我需要复制一系列单元格 (A10:Z25) 然后将其粘贴到最后一行或范围下的 12 行，即 Z 行。这需要发生 1000 次。

换句话说：复制 16 行跳转 12 行（从范围的最后一个单元格开始）粘贴 16 行跳转 12 行（从范围的最后一个单元格开始）粘贴16行

等等.. 1000 次。

谢谢

【问题讨论】：

欢迎来到 StackOverflow。请注意，这不是免费的代码编写服务，但我们渴望帮助其他程序员（和有志者）编写自己的代码。请阅读How To Ask a Good Question 上的帮助主题。您可能还想使用Tour 并在这样做的同时获得徽章。之后，请使用您迄今为止编写的 VBA 代码更新您的问题，以完成您希望完成的任务。

标签： vba excel macros

【解决方案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

【讨论】：