[已解决]最后十格均值

陈瑞云

最后十格均值

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2015-12-28 16:00

=SUM(OFFSET(E205,COUNT(E206:E244)-9,,10,1))/10
=SUM(OFFSET(H205,COUNT(H206:H227)-9,,10,1))/10
我給你答了三個題了，你一個最佳答案都不給我評啊．

跳转到最佳答案楼层

LAOHT

最后十格均值.rar (12.85 KB, 下载次数: 6)

2015-12-28 15:57 上传

点击文件名下载附件

sry660

1. Sub 最后10个均值()
   
2. Dim arr, i&, Sum#
   
3. arr = Range("e206:e" & Cells(Rows.Count, "e").End(xlUp).Row)
   
4. For i = UBound(arr) To UBound(arr) - 9 Step -1
   
5.     Sum = Sum + arr(i, 1)
   
6. Next
   
7. [f206:f1000].ClearContents
   
8. [f206] = Sum / 10
   
9. End Sub

复制代码

心正意诚身修

=SUM(OFFSET(E205,COUNT(E206:E244)-9,,10,1))/10
=SUM(OFFSET(H205,COUNT(H206:H227)-9,,10,1))/10
我給你答了三個題了，你一個最佳答案都不給我評啊．

SYKLGSWYT