高校问答出版社代理商授权书:关于execl的一个比较复杂的算法
来源：百度文库 编辑：高校问答 时间：2024/04/28 02:14:56
在execl中，A列有若干的数据，现将a2的数减去a1的数，a3减去a2的数，以此类推，并将所得的结果的绝对值相加，求平均数。
求怎样编写程序？？
求怎样编写程序？？
例如A列有6个数，把结果存在D10中
Sub jspj()
Sum = 0
For i = 1 To 6
j = i + 1
ls = Range(\"A\" & j).Value - Range(\"A\" & i).Value
Sum = Sum + Abs(ls)
Next i
Range(\"d10\").Value = Sum / (i - 1)
End Sub