分类：电脑/网络-软件-办公软件
问题：用RANK函数对学生成绩排名的问题虽然用RANK实现的同分同名次 
虽然用RANK实现的同分同名次的功能，但紧接着的名次不是下一个数 字，而是跳了一个 。比如有两个相同的分数80分，用RANK排名都为20名。79分的从道理上讲是21名。但得出来的是22名。怎么解决这个问题，
79分的排名是21名？
回答：第一步：定义函数
"工具"--->"宏"--->"宏..."
输入宏名 ：MYRank "创建"
用下面的代码全部替换掉原来的代码
Function MyRank(Number As Integer, Ref As Range)
    Dim MyRef As New Collection
    On Error Resume Next
    For Each r In Ref
        MyRef.Add r.Value, CStr(r.Value)
    Next
    For Each m In MyRef
        If m > Number Then i = i + 1
    Next
    MyRank = i + 1
End Function
"调试"--->"编译VBAProject" 
第二步：引用自定义函数
=MyRank(D2,D1:D8)
使用方法和Rank函数一样