用VBA如何排序数组？

foxlandy

就没有什么不借用EXCEL 自身功能的纯vba的方法么

VBA2010

绝对的菜鸟来此小憩一会儿，发现高手真多！希望N年以后可以像你们一样。

彭希仁

Sub 排序(arr, XX As Long, yy As Long, arr1)    '合并式排序法
    Dim z As Long
    Dim j As Long
    Dim x As Long
    Dim Y As Long
    Dim jj As Long
    Dim i As Long
    Dim temp
    z = yy - XX + 1
    If z = 1 Then Exit Sub
    x = Fix(z / 2)
    Call 排序(arr, XX, XX + x - 1, arr1)
    Call 排序(arr, XX + x, yy, arr1)
    If arr(XX + x - 1) <= arr(XX + x) Then Exit Sub  '
    For i = XX To XX + x - 1
        arr1(i) = arr(i)
    Next i
    j = XX + x
    jj = XX - 1
    For i = XX To XX + x - 1
        For j = j To yy
            If arr(j) >= arr1(i) Then Exit For
            jj = jj + 1
            arr(jj) = arr(j)
        Next j
        jj = jj + 1
        arr(jj) = arr1(i)
    Next i
End Sub

laoyebin

唉，才看到这等好贴，狼版的代码实在太经典了，再拜一下

laojiu369

各位的代码都非常好，收藏学习了！{:soso_e179:}

lzqmsy

留个记号,值得学习

lujkhua

northwolves 发表于 2009-5-22 13:09
根据你的特殊数据，可以这样实现：

此代码思路非常新颖，受教了

lujkhua

northwolves 发表于 2009-5-22 17:20
其实，循环也可省去的：

我去，大开眼界啊！