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

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

我很困惑如何在这个循环之间放置几行,就像在复制并粘贴到下一行之前它们之间应该有 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,但它只对第一部分起作用。

答案1

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

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

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

相关内容