怎么在excel中快速实现c1=(b2-b1)/b1,c2=(b3-b2)/b2,c3=(b4-b3)/b3.

如何在excel中快速实现c1=(b2-b1)/b1,c2=(b3-b2)/b2,c3=(b4-b3)/b3.......
如题，急

------解决方案--------------------------------------------------------
附加的VB宏代码如下：
Dim iIndex As Integer
Dim strRangeC As String
Dim strRangeCX As String

For iIndex = 2 To 3355
strRangeC = "D " + CStr(iIndex)

Range(strRangeC).Select
ActiveCell.FormulaR1C1 = "=(RC[-2]-R[-1]C[-2])/R[-1]C[-2] "
Next