求助大师提供含中文二维数组排序代码

鄂龙蒙 · 发表于 2016-10-23 21:52

求助大师提供含中文二维数组排序代码，能在内存中排序，有实例最好。谢谢！

yjh_27 · 发表于 2016-10-23 21:56

站内搜索，有现成的。

CC例例 · 发表于 2016-10-23 22:02

这是收藏的二维数组排序函数。

'通用数组排序 - 自定义函数Array_Sort
'(Array_[将要排序的数组], Key1[垂直数组(y,x)中x，像表格中的哪一列作关键字], Order[=1,升序;<>1,降序])
Function Array_Sort(Array_, Key1, Order)
Dim t, x&, y&, i&, j&, k&, xx&, yy&, tt&, AD&
For i = 1 To 60
On Error Resume Next
Err.Clear
tt = UBound(Array_, i)
If Err.Number = 9 Then AD = i - 1: Exit For 'AD,数组维数
Next
If AD = 2 Then
If Not (Key1 >= LBound(Array_, 2) And Key1 <= UBound(Array_, 2)) Then Exit Function
ElseIf AD = 1 Then
Array_ = Application.Transpose(Array_)
Key1 = 1
Else
Exit Function
End If
y = LBound(Array_, 1): x = LBound(Array_, 2)
yy = UBound(Array_): xx = UBound(Array_, 2)
If Order = 1 Then '升序
For i = y To yy - 1
For j = i + 1 To yy
If Array_(j, Key1) < Array_(i, Key1) Then '冒泡排序法
For k = x To xx
t = Array_(j, k): Array_(j, k) = Array_(i, k): Array_(i, k) = t
Next
End If
Next
Next
Else '降序
For i = y To yy - 1
For j = i + 1 To yy
If Array_(j, Key1) > Array_(i, Key1) Then
For k = x To xx
t = Array_(j, k): Array_(j, k) = Array_(i, k): Array_(i, k) = t
Next
End If
Next
Next
End If
If AD = 2 Then Array_Sort = Array_ Else Array_Sort = Application.Transpose(Array_)
End Function

复制代码

鄂龙蒙 · 发表于 2016-10-23 22:10

CC例例发表于 2016-10-23 22:02
这是收藏的二维数组排序函数。

Array_Sort(arr,3,1)
这样用为什么不行，提示少等于？谢谢！

CC例例 · 发表于 2016-10-23 22:22

这是数组排序，Array_Sort函数输出时也是数组。例：arr = Array_Sort(arr,3,1)

lsc900707 · 发表于 2016-10-23 22:30

鄂龙蒙 · 发表于 2016-10-24 08:52

lsc900707 发表于 2016-10-23 22:30
http://club.excelhome.net/forum.php?mod=attachment&aid=MTg1MjY2MXxmYzFjYjRmZnwxNDc3MjMyOTY2fDMzNjY2M ...

我要的是含有中文的数组排序，不过还是要谢谢您！

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

[求助] 求助大师提供含中文二维数组排序代码