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

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