VBA application.rank按班排名与按级排名

yuheduo

高手们写的用application.large排名的我看不懂，自己写一个用application.rank排名。抛出来见笑啦
Sub 按级排名按班排名()
    Dim Rng1 As Range, Rng2 As Range, d1 As Object, d2 As Object, rngall As Range
    Set d1 = CreateObject("Scripting.Dictionary")
'    Set d2 = CreateObject("Scripting.Dictionary")
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        If Not d1.exists(arr(i, 2)) Then
            Set d1(arr(i, 2)) = Cells(i, 3)
        Else
            Set d1(arr(i, 2)) = Union(d1(arr(i, 2)), Cells(i, 3))
        End If
    Next i
    For j = 0 To d1.Count - 1
        For Each rr In d1.items()(j)
            Cells(rr.Row, 4) = Application.Rank(rr, d1.items()(j), 0)
        Next
        If rngall Is Nothing Then
            Set rngall = d1.items()(j)
        Else
            Set rngall = Union(rngall, d1.items()(j))
        End If
    Next
    For Each in_all In rngall
        Cells(in_all.Row, 5) = Application.Rank(in_all, rngall, 0)
    Next
End Sub


高手们写的那个比较好一点，是中国式排名，我用rank。有点如1、2、2、4这样的情况，有空再理解高手们的代码

heshize08

感谢分享 新手学习学习

hb-yy

学习了学习了

cai2532

这个排名实例很有用，谢谢。