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

VBA万岁

发现一个问题，有时候必须在该函数中相应的数组值前加“val“函数才能正常运行，否则，系统会将数字按字符一样排序。

VBA万岁

即，上述代码有时需改为如下：

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 Val(Array_(j, Key1)) < Val(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 Val(Array_(j, Key1)) > Val(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

VBA万岁

VBA万岁 发表于 2014-4-20 13:05
发现一个问题，有时候必须在该函数中相应的数组值前加“val“函数才能正常运行，否则，系统会将数字按字符一 ...

示例可见如下链接中36楼以后的帖子。
http://club.excelhome.net/thread-1112316-4-1.html

yzgx201

占位{:soso_e175:}

weiyingde

泓() 发表于 2009-7-10 23:36
同样的与1楼的代码
数据类型 稍改 速度约3倍
Function Array_Sort(Array_&(), Key1&, Order&)

很好，可惜我不能变通，出问题了，请帮我看看。

weiyingde

泓() 发表于 2009-7-10 23:36
同样的与1楼的代码
数据类型 稍改 速度约3倍
Function Array_Sort(Array_&(), Key1&, Order&)

请帮我看看，谢谢你！！
http://club.excelhome.net/thread-1449250-1-1.html

qinnengbuzhuo

学习呀，学习