名次顺位排序法

EXCEL江湖

查阅了很多关于排序法的资料，但还是不能写出关于顺位法的代码，请论坛中的高人帮助！万分感谢！要求都在附件里。 单项顺位排序.rar (14.06 KB, 下载次数: 38)

2014-8-7 14:47 上传

点击文件名下载附件

在实际操作中，裁判的数量为奇数个，3、5、7、9、11、13等。最大名次可以自由设定！谢谢！

香川群子

把规则理解了问题也就解决了。

EXCEL江湖

香川群子老师，您好！规则基本能够理解，但是关于计算排序的东西对我还是太难，请您多帮忙！在群里看了您的很多关于算法的问题，您的代码即少效率又很高，但有点难懂，也许是我的基础太差的原因，还请您多指点，谢谢！

EXCEL江湖

请坛里的高手帮忙看看！谢谢！

香川群子

写了自定义函数解决。

① 区域数组公式用法： （只需输入数据区域一个参数）
1. 选中第1个输出单元格，输入 =rk([范围])  如：=rk(B6:F11)
2. 然后全选数据区域对应行数大小的多行单列区域，Ctrl+Shift+Cr数组三键即可。


② 独立单元格公式用法： （需输入数据区域，以及输出序号 2个参数）
单元格输入 =rk([范围],[序号]) 即可

序号可以改为 Row(A1) 就可以下拉复制使用了。
但此时数据区域必须绝对引用，如=rk($B$6:$F$11,ROW(A1))



…………
另外一个函数=f([单行区域],[总人数]) 是用来显示排序计算结果信息的。
不需要在工作表中使用。但在工作表中列出，便于观察结果是否正确。

香川群子

s3_3h08s33f3_23333

排序规则：
1. 过半时档次，即正好过半时的分值
   位置在首个s和第一个下划线_之间的内容 如 s3_ 表示过半时最大档位分值=3

   此项为第一优先排序项
  

2. 过半+1时的档次分值  
   位置在第一个下划线_之后h之前的内容 如 s3_3h 表示过半+1时档位分值=3

   此项为第二优先排序项


3. 过半时的档次分值累计和h  
   位置在h之后第2个s之前的内容 如 s3_3h08s

   此项为第三排序项
  

4. 过半以后的档次分值顺位  
   位置在第2个s之后，f之前的内容 如 s3_3h08s33f

   此项为第4排序项

5. 第1个裁判给的档次分值  
   位置在f之后，第2个下划线_之前的内容 如 s3_3h08s33f3_

   此项为第5排序项

6. 第2个下划线_之后的内容，是所有裁判分值的从小到大排序结果，供参考。

按前面5个排序项就能足够区分名次了。

呵呵。

裁判数增加、人数增加以后的测试，请楼主自己做一下。看结果是否正确。



  

香川群子

此问题的难度，还在于对规则的正确理解上。

如能正确理解，则按规则以及顺序逐项计算，最后按计算结果一次性比较排序即可。

考虑到数值的15位限制，所以最后用文本字符串来输出结果。

EXCEL江湖

首先感谢香川群子老师的热心帮助！努力学习您的代码，但还是有些困难，在测试7个裁判时排序出错。
因平时工作时有大量的数据要处理时，公式会显得有一些慢，能否直接VBA生成计算结果和小分，就如范例一样，谢谢!

香川群子

EXCEL江湖 发表于 2014-8-8 16:57
首先感谢香川群子老师的热心帮助！努力学习您的代码，但还是有些困难，在测试7个裁判时排序出错。
因平时工 ...

你把出错的上个附件啊，同时说明一下错误在哪里。

香川群子

EXCEL江湖 发表于 2014-8-8 16:57
首先感谢香川群子老师的热心帮助！努力学习您的代码，但还是有些困难，在测试7个裁判时排序出错。
因平时工 ...

VBA自定义公式计算不会慢。

公式比按钮更灵活。