如何在这个循环之间放置几行？

Question

我很困惑如何在这个循环之间放置几行，就像在复制并粘贴到下一行之前它们之间应该有 n 行。

Sub PasteSpecial_Examples()
  For i = 1 To 6
    Sheet1.Select
    Range("J1:V1").Copy
    Sheet4.Select
    Range("A" & i).PasteSpecial Paste:=xlPasteAll
  Next i
  Application.CutCopyMode = False
End Sub

我尝试在 i 上加上 +2，但它只对第一部分起作用。

Answer 1

也许您可以手动循环遍历范围，而不是调用它的粘贴方法：

http://codevba.com/excel/for_each_cell_in_range.htm#.XhR85GZMFhE

这样，您可以按照自己喜欢的方式推进行计数器。