本帖最后由 猴子下山了 于 2021-7-6 15:10 编辑
@
beachum 是这种效果不?
Sub test()
Dim i
i = 1
Do While Range("b" & i) <> ""
If i = 1 Then
Range("c" & i) = ([B1] - [B1]) / [B1] * 100
Else
Range("c" & i) = (Range("b" & i) - Range("b" & i - 1)) / Range("b" & i - 1) * 100
End If
i = i + 1
Loop
End Sub