Excelmacros观副本循环

我正在尝试创build一个循环的复制粘贴macros。

我想要做的是将A8复制到A9,前进7行,将A16复制到A17,前进7行,将A24复制到A25。 我需要重复相同的模式,以10,000行,否则我会手动写入如下。 通常我会用公式做这个,但是因为这会在表单上创build一堆循环引用,这不幸的是不是一个可行的解决scheme。

Range("A8").Copy Range("A9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A16").Copy Range("A17").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A24").Copy Range("A25").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

直接传送值比复制粘贴更快一些。

 Sub x() Dim r As Long For r = 8 To 10000 Step 8 Cells(r + 1, 1).Value = Cells(r, 1).Value Next r End Sub