Question

录制的宏如下。求一个EXCEL中VBA的循环语句。

录制了一段宏 如下。求帮写一循环语句。
往下执行到 单元格D9999。每十个循环一次。





Answer 1

Sub abc()
Dim i%
For i = 1 To 9999
If --Right(i, 1) = 1 Then
Range("d" & i).FormulaR1C1 = "=rc[-3]"
Else
Range("d" & i).FormulaR1C1 = "=r[-1]c"
End If
Next
End Sub

Answer 2

sub m_vba()
for i=1 to 9999
range("d" & i).formular1c1= iif(right(i,1)=1,"=rc[-3]","=r[-1]")
next i
end sub

Answer 3

for t=1 to 10000 step 10
range("d"&i+1)=
.....
next i

Answer 4

发表过来看看，说清楚目的与要求，mfk1288@126.com

Answer 5

你想怎么循环？

追问

你给单元格A1 、A11赋值后 用问题补充的宏看看结果就知道我要的，说的话我也说的不明白。反而影响你思路。
我的要求是 当A1=123 则
第一次D1=A1,D2=D1,D3=D2,D4=D3,D5=D4,D6=D5,D7=D6,D8=D7,D9=D8,D10=D9
或者 D1至D10都等于A1
第二次 D11=A11,D12=D11……D20=D19 或者D11至D20都等于A11
……
N
就这样。