VBA 中可以使用内置的快速排序算法来排序数组,例如下面的代码:
Sub SortArray()
Dim arr() As Variant
arr = Array(8, 4, 1, 5, 9, 3)
Call QuickSort(arr, LBound(arr), UBound(arr))
Debug.Print Join(arr, ", ")
End Sub
Private Sub QuickSort(arr() As Variant, ByVal low As Long, ByVal high As Long)
Dim pivot As Variant