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

Zamyi · 发表于 2012-2-2 11:33

本帖最后由 Zamyi 于 2012-2-6 09:50 编辑

Sort.rar (17 KB, 下载次数: 370) 二维数组排序，只有泓写过一个：http://club.excelhome.net/forum.php?mod=viewthread&tid=457747，但速度明显不行。写了一个，在07版下测试，速度相当，但只支持一个关键字。代码暂不公开。
源码：

排序(VBA).rar (15.59 KB, 下载次数: 814)
2012年2月6日更新
本次更新对原来进行优化，增加多关键字排序。07版下以正数或浮点数据排序，50000*10数组，KEY三个，结果将近快一倍，文本的稍慢。range.sort只支持三个关键字，二维数组不限制。

win2009 · 发表于 2012-2-2 11:51

本帖最后由 win2009 于 2012-2-2 11:53 编辑

找不到工程或库，哈哈

Dim Z As New Zamyi_Sort

复制代码

Zamyi · 发表于 2012-2-2 14:07

win2009 发表于 2012-2-2 11:51
找不到工程或库，哈哈

工具——引用——浏览，选择Zamyi_Sort.dll。

香川群子 · 发表于 2012-2-2 22:41

本帖最后由香川群子于 2012-2-2 22:51 编辑

http://club.excelhome.net/thread-766196-1-1.html

我在这个帖子中，也有过尝试。

最后完成的对于VBA内存数组对象进行排序的代码如下：

需要排序的二维数组x()，数组总列数m，指定排序第n列，排序方式s（s=0时，Z-A排序，s=1时A-Z排序），
以及是否有标题行h，这样一共是4个参数

Sub szpx(x(), m, n, s, h)
For i = LBound(x) + h To UBound(x)
If x(i, n) = "" Then p = p & "," & i
Next
If p <> "" Then
y = x
k = h
For j = LBound(x) + h To UBound(x)
If x(j, n) <> "" Then
k = k + 1
For l = 1 To m
y(k, l) = x(j, l)
Next
End If
Next
q = Split(p, ",")
b = UBound(q)
For j = 1 To b
k = k + 1
For l = 1 To m
y(k, l) = x(q(j), l)
Next
Next
x = y
End If
For i = LBound(x) + h To UBound(x) - b
t = x(i, n)
p = "," & i
For j = i + 1 To UBound(x) - b
If s = 0 And t > x(j, n) Then
t = x(j, n)
p = "," & j
ElseIf s = 1 And t < x(j, n) Then
t = x(j, n)
p = "," & j
ElseIf t = x(j, n) Then
p = p & "," & j
End If
Next
q = Split(p, ",")
c = UBound(q)
y = x
For j = 1 To c
For l = 1 To m
y(i + j - 1, l) = x(q(j), l)
Next
x(q(j), n) = ""
Next
k = i + c
For j = i To UBound(x) - b
If x(j, n) = "" Then
If c = 1 Then Exit For Else c = c - 1
Else
For l = 1 To m
y(k, l) = x(j, l)
Next
k = k + 1
End If
Next
x = y
Next
End Sub

复制代码

香川群子 · 发表于 2012-2-2 22:49

排序过程代码中，首先对第n列中，值为空白的那些行，一律排到最后（模仿Excel排序规则，空格行到最后。）

接着，依次搜寻比较最大值（s参数=0时，Z-A排序），或最小值（s参数=1时，A-Z排序）
并记录、更新得到所有符合最大值条件的行的序号……

这个处理方式，似乎是我独自创立的吧。可以高效处理同类元素。

……

最后，在按此做法循环遍历。

香川群子 · 发表于 2012-2-2 23:02

二维数组的列数m，可以按照数组第二维下标最大值m=ubound(x,2)来直接得到，

但是，或许有时候直接指定也是一种需要，
因其作用，是可以直接在VBA过程中，对于对象数组指定参与排序的列数范围……

excelhomeljch · 发表于 2012-2-2 23:03

支持,谢谢分享,希望最后可以公开源码,让新手学习一下.

Zamyi · 发表于 2012-2-3 09:02

香川群子发表于 2012-2-2 22:41
http://club.excelhome.net/thread-766196-1-1.html

我在这个帖子中，也有过尝试。

哦，原来香群子也写过。不过，速度比泓还差，比我的慢200倍。

香川群子 · 发表于 2012-2-3 10:17

Zamyi 发表于 2012-2-3 09:02
哦，原来香群子也写过。不过，速度比泓还差，比我的慢200倍。

嗯.

当时写这个VBA内存二维数组排序代码时，行数100行以内……所以后来就优化啥都没有做

…………

如果排序中使用希尔排序代码，大概速度可以提高10倍。

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

二分法

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

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

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

点评

评分

评分