Function my_rank(n1 As Integer, n2 As Integer) As Integer
Dim s, i As Integer
Dim flag As Integer
Dim arr() As Integer
ReDim arr(n2)
For j = 1 To n2
s = 0
For i = 9 To 63
s = Sheets("成绩页").Cells(j + 3, i) + s
Next
arr(j) = s
Next
flag = 0
For i = 1 To n2
If arr(i) > arr(n1) Then
flag = flag + 1
End If
Next
my_rank = flag + 1
End Function
Excel——my_rank()
最新推荐文章于 2021-01-18 21:37:39 发布