统计每科前十名数据

aman1516 · 发表于 2022-5-21 17:49

cui26896 发表于 2022-5-21 17:02
仔细研究过三位老师的代码，准提部林老师给出的结果是正确的结果。思路也非常好，化繁为简。避开复杂的二维 ...

中国式排名，前10人同前10名是不同的概念
若是前10名（同分同名），将其中两句代码改下即可：
      j = 0 '加一句，j 初始化
      For i = 2 To r
         'If .Cells(i, c) <> .Cells(i - 1, c) Then j = i - 1
         'If i > 11 And .Cells(i, c) <> .Cells(11, c) Then Exit For
         If .Cells(i, c) <> .Cells(i - 1, c) Then j = j + 1
         If j > 10 Then Exit For
         k = k + 1
         ar(k, 1) = .Cells(1, c): ar(k, 2) = .Cells(i, 1): ar(k, 3) = .Cells(i, 2): ar(k, 4) = .Cells(i, c): ar(k, 5) = j
      Next

aman1516 · 发表于 2022-5-21 17:57

详见附件：

单科前十名II.rar (82.76 KB, 下载次数: 15)

cui26896 · 发表于 2022-5-21 18:53

aman1516 发表于 2022-5-21 17:49
中国式排名，前10人同前10名是不同的概念
若是前10名（同分同名），将其中两句代码改下即可：
...

做过的排序多是无重复的，不知道还有中式排名和美式排名的区别，报歉了！

aman1516 · 发表于 2022-5-21 19:30

cui26896 发表于 2022-5-21 18:53
做过的排序多是无重复的，不知道还有中式排名和美式排名的区别，报歉了！

不管那种方式排名，只要是能达到想要的结果就行了
成绩排名，我也是向 chxw68 老师学习的

chxw68 · 发表于 2022-5-21 21:08

aman1516 发表于 2022-5-21 19:30
不管那种方式排名，只要是能达到想要的结果就行了
成绩排名，我也是向 chxw68 老师学习的

你已经超过我了，向你学习！

cui26896 · 发表于 2022-5-21 22:47

又细做了一下，用归并排序还不如老师的VBA Sort快，快速排序要快一点点，ADO SQL排序转数组输出比归并还要慢一点。

chxw68 · 发表于 2022-5-21 23:16

这个不是奥运百米赛，没必要去纠结那一两秒。

cui26896 · 发表于 2022-5-22 07:05

chxw68 发表于 2022-5-21 23:16
这个不是奥运百米赛，没必要去纠结那一两秒。

主要考虑如果是数据较大的情况，应当采取哪一种方式。

chxw68 · 发表于 2022-5-22 07:25

cui26896 发表于 2022-5-22 07:05
主要考虑如果是数据较大的情况，应当采取哪一种方式。

就事论事，成绩分析的数据能有多大？

vvw123 · 发表于 2022-5-22 08:43

chxw68 发表于 2022-5-22 07:25
就事论事，成绩分析的数据能有多大？

有道理，顶多就一个县区的拿来分析一下。市级以上的VBA恐怕不合适了

		自动登录	找回密码
密码			免费注册

[求助] 统计每科前十名数据

评分