二维数组排序，可与range.sort媲美

mjzxlmg · 发表于 2012-2-3 11:50

能否写个类似RANK函数的自定义函数，要求能在数组中操作？
EXCEL的有些函数太牛逼了，硬要在单元格中操作。

Zamyi · 发表于 2012-2-3 14:43

人形电脑天使心发表于 2012-2-3 10:23
二分法

http://baike.baidu.com/view/115472.htm

那只是处理一维数组。现在在思考多关键字的排序。

liucqa · 发表于 2012-2-3 15:41

不公开代码，就说说原理吧

Zamyi · 发表于 2012-2-3 16:29

本帖最后由 Zamyi 于 2012-2-3 16:40 编辑

liucqa 发表于 2012-2-3 15:41
不公开代码，就说说原理吧

源码已上传。这类型本来感兴趣的不多。一个Key速度已经相当，两个稍慢，三个更复杂。

yaozong · 发表于 2012-2-3 16:36

Zamyi 发表于 2012-2-3 16:29
源码已上传。这类型本来感兴趣的不多。

谢谢楼主分享。

excelhomeljch · 发表于 2012-2-3 16:39

Zamyi 发表于 2012-2-3 16:29
源码已上传。这类型本来感兴趣的不多。

谢谢分享
想请问一下,这个很像快速排序,特意用中间位置值作为基准值,是有什么含义吗?
我想如果不用递归可能还有提速的空间

liucqa · 发表于 2012-2-3 21:59

嗯，略微介绍一下原理吧

Zamyi · 发表于 2012-2-6 09:37

已经可以对多Key排序，速度不慢。

Zamyi · 发表于 2012-2-6 16:20

liucqa 发表于 2012-2-3 21:59
嗯，略微介绍一下原理吧

原理很简单，建立一个记录行的一维数组，整个排序只是对这个记录行数组进行排序，最后根据记录位置重排数组。一个Key相当于一个一维数组的排序，二个Key是根据各个节点进行多次排序，最后一次重组。

灰袍法师 · 发表于 2012-2-6 20:54

本帖最后由灰袍法师于 2012-2-7 08:15 编辑

排序测试用几万条数据，都是看不出什么差别的，反正都不会超过0.x秒。

100万就比较明显了

我的电脑5万x10，耗时0.27秒
改为100万x10，耗时8.29秒
改为 100万x1，耗时2.30秒，
改为 100万x1，而且用7位长度的随机整数,耗时3.80秒

嗯，比我的慢了一半以上，这个差距跟我的七种快速排序对比的VBA排序贴里面，最慢和最快的快速排序差异基本一致。
http://club.excelhome.net/thread-661033-1-1.html
即使不作复杂的优化，我还是建议不要简单地取 * 0.5 作为中位分割值，用 * rand 就安全一些，至少可以防止人为破坏。
人为构造一个未排序的坏数组干掉快速排序很容易，不过实际用到的数据有多少能够干掉最简单的快速排序，还真是不知道。

Zamyi的dll可以排序多关键字多列数据，比我的实用多了。

我的dll最讨厌的地方是：
VS2010开发，VB的变体类型跟 EXCEL2003的变体类型不兼容，所以我的附件至少要在 excel2007 + .Net 2.0 以上才能运行
否则运行结果VBA无法识别（数据倒是已经导入VBA了，但是显示是无法识别的变体类型，shit。）
另外，导入导出耗时太长，我怀疑直接在VB里面访问工作表，应该比导入VBA里面的数组要快得多，懒得再试了。

两个快速排序的单列排序速度对比.rar (59.59 KB, 下载次数: 390)

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

[原创] 二维数组排序，可与range.sort媲美

最新热点 /1