-递增计算excel,递增计算器

使用相邻两个数相减得到一个差值，
把差值累加，然后zd除以差的个数，版结果就是平均递增量。
使用宏
或者
VBA
下面给出宏的代码
Sub
aaa()
Dim
sum
As
Single
Dim
t
As
Single
Dim
n
As
Integer
Dim
ave
As
Single
n
=
100
'假设你要计算的数有100个（A1-A100）可以权修改
For
i
=
2
To
n

t
=
Sheet1.Cells(i,
1)
-
Sheet1.Cells(i
-
1,
1)

sum
=
sum
+
t
Next
ave
=
sum
/
(n
-
1)
Sheet1.Cells(n
+
1,
1)
=
ave
End
Sub