當前位置:成語大全網 - 新華字典 - excel vba 內存數組按升序排序,試了幾次很困惑,哪位大俠能詳解,或者字典排序,十分感謝!

excel vba 內存數組按升序排序,試了幾次很困惑,哪位大俠能詳解,或者字典排序,十分感謝!

提供壹個比較普通的數組冒泡排序方法

Sub ABC()

arr = Array("d", "g", "v", "p", "a")

For i = 0 To UBound(arr) - 1

For j = i + 1 To UBound(arr)

If arr(i) > arr(j) Then

Temp = arr(j)

arr(j) = arr(i)

arr(i) = Temp

End If

Next

Next

[a1].Resize(1, UBound(arr) + 1) = arr

End Sub