分校别分级组分班别的成绩表，如何用VBA实现计算中国式排名？

gdyuanjin

zxsea_7426 发表于 2022-11-30 10:28
重新写了一个。
不用公式了，公式不是中国式排名.

能把文档或者公式上传吗？谢谢！

zxsea_7426

审核还没有通过:

Sub 新test()
    t = Timer
    Dim 成绩 As Integer
    Set d = CreateObject("scripting.dictionary")
    With Sheets("成绩表")
        .[a1].CurrentRegion.Offset(1, 7).ClearContents
        ar = .[a1].CurrentRegion.Resize(, 11)
        '==========总分
        For i = 2 To UBound(ar)
            ar(i, 8) = ar(i, 5) + ar(i, 6) + ar(i, 7)

            If Not d.exists(ar(i, 1) & ar(i, 2) & ar(i, 3)) Then    '同校同年级同班[即班内]
                Set d(ar(i, 1) & ar(i, 2) & ar(i, 3)) = CreateObject("scripting.dictionary")
            End If
            If Not d.exists(ar(i, 1) & ar(i, 2)) Then    '同校同年级[即同校同级]
                Set d(ar(i, 1) & ar(i, 2)) = CreateObject("scripting.dictionary")
            End If
            If Not d.exists(ar(i, 2)) Then      '不分学校[不同校同级]
                Set d(ar(i, 2)) = CreateObject("scripting.dictionary")
            End If
            d(ar(i, 2))(ar(i, 8)) = ""
            d(ar(i, 1) & ar(i, 2) & ar(i, 3))(ar(i, 8)) = ""
            d(ar(i, 1) & ar(i, 2))(ar(i, 8)) = ""
        Next i
        
        For i = 2 To UBound(ar)
            成绩 = ar(i, 8)
            ar(i, 9) = 排名(成绩, d(ar(i, 1) & ar(i, 2) & ar(i, 3)).keys)
            ar(i, 10) = 排名(成绩, d(ar(i, 1) & ar(i, 2)).keys)
            ar(i, 11) = 排名(成绩, d(ar(i, 2)).keys)
        Next i
        .[a1].Resize(UBound(ar), UBound(ar, 2)) = ar
    End With
    MsgBox "运行完毕，共计耗时：" & Format(Timer - t, "0.0000") & "秒"
End Sub

Function 排名(N1 As Integer, N2 As Variant)
    For Each nn In N2
        If nn >= N1 Then pm = pm + 1
    Next
    排名 = pm
End Function

zxsea_7426

还是直接上附件吧。文字审核好慢的

huarong7984

清风竹- 发表于 2022-11-29 17:32
请看附件。

你好，请问如何修改代码，以使对姓名或其他关键词进行排序，结果仍正确？，因为所发代码排序后，结果就不正确了

zxsea_7426

huarong7984 发表于 2022-11-30 12:12
你好，请问如何修改代码，以使对姓名或其他关键词进行排序，结果仍正确？，因为所发代码排序后，结果就不 ...

把所有关键字一起放入排序数据区就可以啊。2楼只是把部分数据拿出排序列，只是提取排序的数据源，不是目标源

huarong7984

zxsea_7426 发表于 2022-11-30 12:30
把所有关键字一起放入排序数据区就可以啊。2楼只是把部分数据拿出排序列，只是提取排序的数据源，不是目 ...

哦，知道了，谢谢你

gdyuanjin

zxsea_7426 发表于 2022-11-30 11:45
还是直接上附件吧。文字审核好慢的

如果总分中有小数点的话，又会取整来进行排名或排名不准确了，这个怎么解决呢？

清风竹-

gdyuanjin 发表于 2022-11-29 23:13
谢谢，我查看了下数据，这是西式排名，能不能帮忙改成中国式排名？即同分并列，下一个分数+1名这样，再次 ...

中式排名。

清风竹-

huarong7984 发表于 2022-11-30 12:12
你好，请问如何修改代码，以使对姓名或其他关键词进行排序，结果仍正确？，因为所发代码排序后，结果就不 ...

请上传文件。并说明需求。

huarong7984

清风竹- 发表于 2022-11-30 18:10
请上传文件。并说明需求。

清风竹大师：谢谢您。是我选错了排序区域造成，您是对的！再次感谢指教与帮助！