VBA内存二维数组对象的多key稳定排序算法

aoe1981 · 发表于 2019-10-5 20:00

PLINQ 发表于 2015-12-5 22:13
我没看代码，这个其实很好理解
比如有一张按学号序列的成绩表原始数据，现在要按照总成绩降序排序，分数相 ...

事实上，您不应该指望原有数据的任何一列来实现“稳定”的排序，尤其当排序是基于“快速排序”这样的不稳定排序算法时。因为，不见得每张二维数据表中如具有唯一性特点的“学号”列是有序的，如果原始提供的二维数表中像“学号”这样的列本身是无序的话，我想只能依靠给原有数据记录重新编号的办法，即新增“序号”列，才能保证实现与“原有数据表”一样的“稳定”，这样，就人为地增加了具有唯一性值的“列”和排序的字段key。

我的疑问恰在于人们为什么不选择以稳定的“归并排序”为基础，而非要采用“快排”，归并虽然很多时候确实比快速排序慢一些，但不会退化，当然，据说“快速排序”退化的可能性微乎其微。不过，我依然觉得，以归并为基础的二维数表多key排序应该还是有前景的。

哈哈，只是一些纸上谈兵的揣度。

aoe1981 · 发表于 2019-10-6 16:08

“但是，默认工作表排序方法一次只能使用3个key、所以如果有较多key需要排序时，
可以使用VBA循环代码，一次排1列，逆序循环排序后得到结果。”

时代在进步，工作表排序功能越来越强大了……

用vba做“二维数据表排序”，真是需要好好考量。如果是学习狂，写写代码练练手，就不需要权衡了。这也是我再次打算练手的衡量因素，向女侠表示敬意啊。

aoe1981 · 发表于 2019-10-6 20:49

也做了一个附件，并且发现了一个问题，您与我都没有解决的问题：
http://club.excelhome.net/forum. ... 39&pid=10105266

乾坤若木 · 发表于 2019-10-30 17:28

谢谢分享！楼主辛苦了！

大猫不吃鱼 · 发表于 2020-2-18 23:32

谢谢大神分享

q3698995 · 发表于 2020-8-12 22:46

希望加入自定义排序规则功能。

小草8 · 发表于 2021-1-6 11:18

很强大，学习中。

luckyisland · 发表于 2022-3-14 18:22

在此深表敬意。（抄袭代码就是致敬！呵呵。）

luckyisland · 发表于 2022-3-17 15:11

经测试，中文排序有误？

前进者 · 发表于 2022-4-8 07:23

标记一下，需要时再学习!

		自动登录	找回密码
密码			免费注册

[原创] VBA内存二维数组对象的多key稳定排序算法