求各班总分前N名的各科平均分（谢谢huang1314wei、一把小刀闯天下、褚老师）

micch

1. Sub pjf()
   
2.     'Sheet2.Activate
   
3.     arr = Sheet1.[a2].CurrentRegion
   
4.     brr = Sheet2.[c3:d18]
   
5.     Dim crr(1 To 16, 1 To 10)
   
6.     For i = 1 To 16
   
7.        j = 1: Do Until arr(j, 2) = i: j = j + 1: Loop
   
8.        For k = 4 To 13
   
9.             n = 0
   
10.             Do: n = n + 1
    
11.             crr(i, k - 3) = (crr(i, k - 3) + arr(j + n - 1, k))
    
12.             Loop Until arr(n + j - 1, 14) = brr(i, 2)
    
13.             crr(i, k - 3) = crr(i, k - 3) / n
    
14.        Next
    
15.     Next
    
16.     [e3:n18] = crr
    
17. End Sub
    

复制代码

micch

实在是不会测试公式的速度，模拟了10000行数据，公式和代码都是闪一下就得出结果了，不是练习代码真心不觉得代码有什么优势

vvw123

micch 发表于 2018-12-16 11:51

谢谢解答，祝万事如意！

vvw123

micch 发表于 2018-12-16 11:58
实在是不会测试公式的速度，模拟了10000行数据，公式和代码都是闪一下就得出结果了，不是练习代码真心不觉 ...

我是这么测试的，修改一个数据后，表格会重新计算，那个等待过程有点不耐烦。当然，单纯一个表计算是很快的，因为是一个成绩分析系统，入门都算不上，表格梳理方便还是很原始，表表相连，公式一大把。
目前这个就是例子，原本纯公式的，1000个人统计分析，容量6M多，经过“lsc900707”，褚老师等的代码，
3000个人的也就是2M多，处理速度非常快。

micch

公式一大把那肯定慢，不是这个求平均的公式慢，可能是其他地方的公式慢。我测试的是10000行10列随机数字，F9刷新，然后公式和代码看看哪个先出结果，但是几乎部分先后马上就有结果，所以分不出快慢单独average函数应该很快，offset+match函数不是数组，也挺快。
不过没关系，你的目的是解决问题，不是测试快慢，得到结果就行，我只是初学，拿你的问题练习，还得谢谢你

vvw123

micch 发表于 2018-12-16 12:08
公式一大把那肯定慢，不是这个求平均的公式慢，可能是其他地方的公式慢。我测试的是10000行10列随机数字，F ...

谢谢解惑，原来做的分析表，数组公式太多，这个是拖慢的缘故。

vvw123

micch 发表于 2018-12-16 12:08
公式一大把那肯定慢，不是这个求平均的公式慢，可能是其他地方的公式慢。我测试的是10000行10列随机数字，F ...

另外公式要解决容错问题，另外给别人发的，带公式修改后容易出错。水平有限，所以做多错多。谢谢指点

vvw123

chxw68 发表于 2018-12-16 10:55
程序执行时间0.015秒.

谢谢褚老师，小小花用完了，再次表示致以崇高的敬意！

zengwuxiaoqiang

huang1314wei 发表于 2018-12-16 09:35

这一屏幕代码,看得我眼花缭乱,神来之笔啊!

GRZ319

chxw68 发表于 2018-12-16 10:55
程序执行时间0.015秒.

速度很快，如果遇到并列名次怎样？如16班30名并列，取30名计算结果不对，怎样解决！谢谢！！