Excel VBA 陣列快速排序教學與範例
自行定義快速排序演算法 VBA 巨集函數，處理各種陣列排序問題。
在 Excel VBA 中並沒有提供陣列排序的函數可用，如果想要對陣列的元素進行排序，可以自己定義一個快速排序演算法函數來處理。另外對於資料量比較小的情況，也可以考慮簡單的泡沫排序法，這個可以參考 VBA 泡沫排序教學。
快速排序 VBA 巨集函數
以下是一段根據速排序演算法所實作的排序函數：' 快速排序函數
Public Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)
Dim pivot As Variant
Dim tmpSwap As Variant
Dim tmpLow As Long
Dim tmpHi As Long
tmpLow = inLow
tmpHi = inHi
pivot = vArray((inLow + inHi) 2)
While (tmpLow <= tmpHi)
While (vArray(tmpLow) < pivot And tmpLow < inHi)
tmpLow = tmpLow + 1
Wend
While (pivot < vArray(tmpHi) And tmpHi > inLow)
tmpHi = tmpHi - 1
Wend
If (tmpLow <= tmpHi) Then
tmpSwap = vArray(tmpLow)
vArray(tmpLow) = vArray(tmpHi)
vArray(tmpHi) = tmpSwap
tmpLow = tmpLow + 1
tmpHi = tmpHi - 1
End If
Wend
If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi
End Sub這個 QuickSort 函數的使用方式為：
QuickSort 陣列, 索引下限值, 索引上限值最常見的用法是用 LBound 與 UBound 自動算出陣列索引的上下限， 傳給 QuickSort 排序整個陣列：
QuickSort arr, LBound(arr), UBound(arr)
數值陣列排序
以下是一個單的排序數值應用範例：Sub Test()
' 建立測試用陣列
Dim arr As Variant
arr = Array(2, 5, 4, 1, 3)
' 對陣列進行排序
QuickSort arr, LBound(arr), UBound(arr)
' 輸出結果
For i = LBound(arr) To UBound(arr)
Debug.Print "元素 " & i & " = " & arr(i)
Next i
End Sub在這段程式碼當中，當我們呼叫完 QuickSort 函數之後，arr 陣列中的元素就會變成排序好的狀態，然後我們再用一個 For 迴圈配合 Debug.Print 輸出陣列的內容，執行值記得要打開「及時運算視窗」（快速鍵為 Ctrl + g），這樣才能看到輸出的結果。
VBA 數值陣列排序
文字陣列排序
這一個 QuickSort 函數並沒有限制陣列的資料型態，如果陣列的元素是文字，它就會依照字母順序排序：Sub Test()
' 建立測試用陣列
Dim arr As Variant
arr = Array("Red", "Yellow", "Green", "Blue")
' 對陣列進行排序
QuickSort arr, LBound(arr), UBound(arr)
' 輸出結果
For i = LBound(arr) To UBound(arr)
Debug.Print "元素 " & i & " = " & arr(i)
Next i
End Sub執行的結果如下：
VBA 文字陣列排序參考資料：Stack Overflow