你可以改变本金数和返点率
代码如下：
Sub 返点数计算()
Dim a, b, s, f As Currency
Dim d As Integer
a = Range("D5"): b = Range("F5")
d = Range("D9")
s = a * b
If d = 1 Then
s = s
f = s
Else
For i = 2 To d
f = (a - s) * b
s = s + (a - s) * b
Next i
End If
Range("E9") = f
Range("F9") = s
End Sub
