![如何在这个循环之间放置几行?](https://linux22.com/image/1613364/%E5%A6%82%E4%BD%95%E5%9C%A8%E8%BF%99%E4%B8%AA%E5%BE%AA%E7%8E%AF%E4%B9%8B%E9%97%B4%E6%94%BE%E7%BD%AE%E5%87%A0%E8%A1%8C%EF%BC%9F.png)
我很困惑如何在这个循环之间放置几行,就像在复制并粘贴到下一行之前它们之间应该有 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
这样,您可以按照自己喜欢的方式推进行计数器。