在同一工作表内的循环上复制和粘贴宏

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