[源码]Access VBA对一维数组快速排序的函数(也适合Excel VBA)

admin

Arr为需要进行排序的一维 数组变量
Function QuickSort(Arr)
    Dim i, j
    Dim bound, t
    bound = UBound(Arr)


    For i = 0 To bound - 1
        For j = i + 1 To bound
            If Arr(i) > Arr(j) Then
                t = Arr(i)
                Arr(i) = Arr(j)
                Arr(j) = t
            End If
        Next
    Next
    QuickSort = Arr
End Function