我很困惑如何在这个循环之间放置几行,就像在复制并粘贴到下一行之前它们之间应该有 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
这样,您可以按照自己喜欢的方式推进行计数器。