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

gdyuanjin

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

清风竹-

请看附件。

哒哒哒是的撒多

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

厉害厉害厉害厉害

yanglinzi

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

厉害，思路好，速度快

gdyuanjin

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

谢谢，我查看了下数据，这是西式排名，能不能帮忙改成中国式排名？即同分并列，下一个分数+1名这样，再次感谢您！

zxsea_7426

公式版一:常规排名


公式版二:中国式排名


2楼不同校同级排名做厉不同校不同级的了。

gdyuanjin

zxsea_7426 发表于 2022-11-30 00:25
公式版一:常规排名

第一个图班内同分并列，并列几个人，并列名次前少几-1

第二个图，同校同级同分并列，并列几个人，并列名次前少几-1




第三个图，不同校同级同分并列，并列几个人，并列名次前少几-1，如最高分2个人并列，只有2个第2名，没有第1名


还望大神再修改一下，谢谢！！

zxsea_7426

重新写了一个。
不用公式了，公式不是中国式排名.

zxsea_7426

Sub 新test()
    t = Timer
    Dim 成绩 As Integer
    Set d = CreateObject("scripting.dictionary")
    With Sheets("成绩表2")
        .[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

不同校同级排名

同校同级排名

班内排名