Excel中如果能有这个函数,中国式排名就很简单了!
时间:2023-08-04 23:23:33
要根据学生的考试成绩计算下排名,直接用Excel中内置的函数RANK,结果如下:
![Excel中如果能有这个函数,中国式排名就很简单了!](https://img.aspxhome.com/file/2023/0/a157040_0.png)
有两位同学为并列第四,可之后就直接第六名了,第五名不见了,这并不符合我们的习惯,从小到大,每次考试后并列的名次很常见,可是不会缺少一个中间的名次。
怎么解决上述问题呢?
参加过我函数培训班的同学写这个公式应该不成问题:=SUMPRODUCT(($B$2:$B$20>=B2)/(COUNTIF($B$2:$B$20,$B$2:$B$20)))懂数组的基础,知道其中套路的话,这公式也不难理解。
如果你会VBA的话,写个自定义函数,以后就可以这样了:
![Excel中如果能有这个函数,中国式排名就很简单了!](https://img.aspxhome.com/file/2023/0/a157040_1.gif)
或者复制下面的代码,另存为加载宏,需要的时候加载下,不需要的时候取消加载,这也是极好的。
代码如下:
‘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
标签:rank函数,rank函数怎么用,rank函数的使用方法,rank函数的用法,rank排名函数,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
怎样把程序从任务栏去除?怎样把程序添加到任务栏?
2022-04-07 21:45:57
![](https://img.aspxhome.com/file/2023/30/a263035_0s.jpg)
WORD中的邮件合并功能来快速制作通知书
2023-11-29 16:48:37
![](https://img.aspxhome.com/file/2023/7/18047_0s.jpg)
Win10系统怎么设置开机登录时不显示欢迎使用 Windows10登录时跳过欢迎屏幕的设置方法
2023-12-24 17:57:05
![](https://img.aspxhome.com/file/2023/28/a246647_0s.jpg)
excel 保留前面N行Table.FirstN/Table.RemoveLastN(Power Query 之 M 语言)
2022-02-17 06:10:22
![](https://img.aspxhome.com/file/2023/0/a161450_0s.png)
Win7浏览器提示“确实允许此网页访问剪贴板吗”怎么办?
2022-08-05 20:19:13
![](https://img.aspxhome.com/file/2023/27/a230882_0s.jpg)
Adobe Media Encoder CC 2019 for Mac如何创建自定义预设
2023-05-02 00:38:03
![](https://img.aspxhome.com/file/2023/6/a213346_0s.jpeg)
PPT演示文稿的应用-如何用PPT做倒计时
2023-10-06 08:57:23
A8处理器怎么样_A8评测、跑分、参数、相关手机及报价
2023-04-12 11:46:16
![](https://img.aspxhome.com/file/2023/3/a297509_0s.jpg)
Hub Keyboard输入法怎么用
2023-03-31 06:22:46
如何启用新款iMac 2021 的彩色Hello屏幕保护程序?
2023-11-13 10:15:28
![](https://img.aspxhome.com/file/2023/5/a206755_0s.gif)
Word2016 出现"此功能看似已中断 并需要修复"问题怎么办?
2023-11-12 11:03:48
![](https://img.aspxhome.com/file/2023/4/17864_0s.png)
excel打印显示不全怎么解决
2022-10-01 04:38:54
![](https://img.aspxhome.com/file/2023/3/a156853_0s.png)
win7怎么隐藏任务栏?win7系统隐藏任务栏的方法
2022-03-09 11:55:38
![](https://img.aspxhome.com/file/2023/28/a245492_0s.jpg)
Win10如何安装360软件?
2023-09-28 05:32:41
![](https://img.aspxhome.com/file/2023/5/a316642_0s.png)
有原彩显示功能就一定是原装屏吗?
2022-07-16 08:16:04
![](https://img.aspxhome.com/file/2023/9/a195479_0s.jpg)
Win10如何删除wps网盘?Win10删除wps网盘的方法
2022-12-16 06:36:48
![](https://img.aspxhome.com/file/2023/0/52480_0s.jpg)
Excel 2019数值排序的3个函数使用概述
2022-10-07 13:18:31
Windows7系统中放大镜的使用和快捷键介绍
2022-11-05 20:32:18
![](https://img.aspxhome.com/file/2023/29/a257591_0s.jpg)
Excel表格怎么设置打印放大
2023-07-04 16:58:20
u盘启动盘怎么进入PE_u盘启动盘进入PE系统教程
2022-07-16 02:06:57
![](https://img.aspxhome.com/file/2023/2/a286533_0s.jpg)