如题所述
要根据学生的考试成绩计算下排名，直接用Excel中内置的函数RANK，结果如下：
有两位同学为并列第四，可之后就直接第六名了，第五名不见了，这并不符合我们的习惯，从小到大，每次考试后并列的名次很常见，可是不会缺少一个中间的名次。
怎么解决上述问题呢?
参加过我函数培训班的同学写这个公式应该不成问题：=SUMPRODUCT(($B$2:$B$20>=B2)/(COUNTIF($B$2:$B$20,$B$2:$B$20)))懂数组的基础，知道其中套路的话，这公式也不难理解。
如果你会VBA的话，写个自定义函数，以后就可以这样了：
或者复制下面的代码，另存为加载宏，需要的时候加载下，不需要的时候取消加载，这也是极好的。
代码如下：
‘rng1 代表需要排名的单元格，rng2代表排名区域Function crank(rng1 As Range, rng2 As Range) Dim arr, brr(), crr(), m&, i& arr = rng2 m = UBound(arr) ReDim brr(1 To m), crr(1 To m) For i = 1 To m brr(i) = Application.CountIf(rng2, arr(i, 1)) Next For i = 1 To m If rng1.Value <= arr(i, 1) Then crr(i) = 1 / brr(i) Else crr(i) = 0 End If Next crank = Application.Sum(crr)End Function
有两位同学为并列第四，可之后就直接第六名了，第五名不见了，这并不符合我们的习惯，从小到大，每次考试后并列的名次很常见，可是不会缺少一个中间的名次。
怎么解决上述问题呢?
参加过我函数培训班的同学写这个公式应该不成问题：=SUMPRODUCT(($B$2:$B$20>=B2)/(COUNTIF($B$2:$B$20,$B$2:$B$20)))懂数组的基础，知道其中套路的话，这公式也不难理解。
如果你会VBA的话，写个自定义函数，以后就可以这样了：
或者复制下面的代码，另存为加载宏，需要的时候加载下，不需要的时候取消加载，这也是极好的。
代码如下：
‘rng1 代表需要排名的单元格，rng2代表排名区域Function crank(rng1 As Range, rng2 As Range) Dim arr, brr(), crr(), m&, i& arr = rng2 m = UBound(arr) ReDim brr(1 To m), crr(1 To m) For i = 1 To m brr(i) = Application.CountIf(rng2, arr(i, 1)) Next For i = 1 To m If rng1.Value <= arr(i, 1) Then crr(i) = 1 / brr(i) Else crr(i) = 0 End If Next crank = Application.Sum(crr)End Function
温馨提示：答案为网友推荐，仅供参考
