[求助]：有一个排位问题想请教EXCEL高手

profeell

下面这个程序，则从网上下载的用于改进RANK函数的VBA等程序，它可以让同等名次的数值往下排列时，不留空号，但是在对较大数字，比如35000，这样大的数值进行排位时，程序值为错误值，怀疑是定义变量为INTEGER的原因，不知用什么替代它，可以实现大数的排位功能，请指教。

Function MyRank(Number As Integer, Ref As Range, Optional a = 0)
'改进后的Rank排序函数
'by http://www.officefans.net/网友 夜半传说
'加了个a参数,当a为零或默认未输时,按降序排序
'当a为1时按升序排序----by redwin
Dim MyRef As New Collection
On Error Resume Next
For Each r In Ref
MyRef.Add r.Value, CStr(r.Value)
Next
If a = 0 Then
For Each m In MyRef
If m > Number Then i = i + 1
Next
MyRank = i + 1
Else
For Each m In MyRef
If m < Number Then i = i + 1
Next
MyRank = i + 1
End If
End Function