vba按字典多条件统计分组班级平均分

chxw68

1. 代码错误。

复制代码

chxw68

代码速度太慢，故删除。

lcmphy

chxw68 发表于 2022-11-18 17:25
修改了结果表格格式。

非常感谢chxw68的多次帮助！
经过测试，数据达到3万多或者6万多，学校达到几十所，运行代码r = .Cells(.Rows.Count, 1).End(xlUp).Row出错，可能字典不是这里的强项。数据只有几千人，可以很好的达到需要的效果，比用公式要强很多倍！把学校换成班级，也非常适合学校统计班级各科平均分。

lcmphy

非常感谢chxw68的多次帮助！
经过测试，可能是字典不适合大量数据统计，人数达到几万人学校达到几十所的时候，第10行代码运行出错。数据为几千人，可以很好的达到需要的效果，把学校换成班级，也可以很好的统计班级平均分。

chxw68

lcmphy 发表于 2022-11-18 19:18
非常感谢chxw68的多次帮助！
经过测试，可能是字典不适合大量数据统计，人数达到几万人学校达到几十所的时 ...

把第二行的%换成&

chxw68

lcmphy 发表于 2022-11-18 19:18
非常感谢chxw68的多次帮助！
经过测试，可能是字典不适合大量数据统计，人数达到几万人学校达到几十所的时 ...

学生数一般不超过32000人吧？

lcmphy

chxw68 发表于 2022-11-18 20:08
学生数一般不超过32000人吧？

统计本校成绩只有一千多人。新高考采用赋分制，必须参加大型联考，联考人数会超过32000人，十万左右的比较多，按物理方向与历史方向分开，物理方向有六七万。

lcmphy

chxw68 发表于 2022-11-18 20:08
把第二行的%换成&

学习了！这么一改，想起来了原来是数据类型定义的原因，不是字典不适合大量数据。经过测试，学生人数61000能正常运行，随机核对一个数据，运算结果也没问题。预先按学校排序了，运行时间比较长，有两三分钟，可能循环语句调用函数可能时间短一点。谢谢chxw68的耐心解答！

chxw68

lcmphy 发表于 2022-11-18 21:10
学习了！这么一改，想起来了原来是数据类型定义的原因，不是字典不适合大量数据。经过测试，学生人数6100 ...

那你就循环语句调用函数吧！

lcmphy

chxw68 发表于 2022-11-18 22:14
那你就循环语句调用函数吧！

谢谢啦！我只是猜想，用词不妥，数据量大，时间长点是必然的。时间长点都是电脑完成，比一科一科统计方便多了。