在同一工作表中循环复制和粘贴宏

Question

我正在尝试复制单元格 B48:B52，然后粘贴到单元格 B55:B59，然后再次粘贴相同的数据，但中间有两行（所以现在在单元格 B62:B66 中）。 需要在循环中执行此操作，以便将范围粘贴 ~1100 次。

我确信有一种方法可以用 VBA 做到这一点，但无法弄清楚。 有帮手吗？

Answer 1

我认为这就是你要找的：

Sub paste_each_n()

t = 48
Count = 1

Do Until Count = 1100

Range("B" & t & ":B" & t + 4).Copy
Cells(t + 7, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
t = t + 7
Count = Count + 1

Loop

End Sub