通用数组排序 - 自定义函数（支持二维或一维）修改版（含4实例）

泓()

'通用数组排序 - 自定义函数Array_Sort（支持二维或一维）---by 泓()
Function Array_Sort(Array_, Key1, Order)    '(Array_[将要排序的数组], Key1[垂直数组(y,x)中x，像表格中的哪一列作关键字], Order[=1,升序;<>1,降序])
    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

修改版
通用数组排序 - 自定义函数（支持二维或一维）.rar (18.69 KB, 下载次数: 548)

2009-7-10 09:31 上传

点击文件名下载附件

泓()

暑期：我的VBA[自学]
第一课时 排序（数组）

thtfzhaobo

恭喜完成,二维和多维基本无区别,算法建议采用论坛中讨论分析的,我昨天也自己试作了一个,6000行3列,要4秒左右,不该这么慢的,有时间考虑

泓()

算法要改。

泓()

大量数据排序 请注意 定义数据类型（包括数组） 可提速几倍

[ 本帖最后由 泓() 于 2009-7-10 23:16 编辑 ]

飞云楼主

din yi ge....

泓()

经本人测试 ：二维数组时 冒泡法 并不比 桶排序 、选择排序 差

正确定义数据类型（请自行定义） 直接影响速度

[ 本帖最后由 泓() 于 2009-7-10 23:20 编辑 ]

泓()

同样的与1楼的代码
数据类型 稍改 速度约3倍
Function Array_Sort(Array_&(), Key1&, Order&)
正确定义数据类型---速度的前提.rar (59.74 KB, 下载次数: 432)

2009-7-10 23:36 上传

点击文件名下载附件

jinsha2002

作过记号 以便学习

slyfox

占位学习{:soso_e175:}