VBA循环功能始终返回1

Question

这是我的函数，我想创建一个函数来计算数字的排名，但它总是在排名中返回1。如何修复它，并在启动前添加“ N / A”。

Function Ranking(Score As Double) As Integer

    Dim count As Integer

    Range("C6").Value = "N/A"
    Ranking = 1      

    For count = 1 To num_of_students
        If student_records(count, 3) > Score Then
            Ranking = Ranking + 1      
        Else   
            Exit For
        End If
    Next

    Range("C6").Value = Ranking

End Function