作者：绿色风
分类：
时间：2022-08-17
浏览：108
楼主
悟空师弟 |
Q：如何用VBA自定义中国式排名的函数？即1、2、2、3、4……这样不计重复的排名。
A：代码如下：- Function ZGrank(qy As Range, z As Range)
- Dim qy2 As Range
- Dim uu As Integer
- y = z
- For Each z In qy
- uu = uu + 1
- If z >= y Then
- Set qy2 = qy.Range("A1").Resize(uu, 1)
- If Application.WorksheetFunction.CountIf(qy2, z) < 2 Then
- ZGrank = ZGrank + 1
- End If
- End If
- Next z
- End Function
函数说明：
1、函数名：ZGrank （有两个参数） ；
2、参数1（qy)：即需要排名的区域；
3、参数2（z）：即需要排名的数值所在单元格。
函数用法：（用法与EXCEL自带的工作表函数RANK用法基本相同）
函数优点：方便使用
函数缺点： （期待VBA高手写出更好的中国式排名的自定义函数）
1、没有升、降序功能；
2、文本型数值以文本参与排名而不是以数值参与排名，如文本型数值 1 排名时被视为比数值型 9^9 还要大。
详见附件：
 如何用VBA自定义中国式排名的函数？.rar
|
2楼
kevinchengcw |
学习一下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一