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