在VBA中，你可以使用多種方法對(duì)數(shù)組進(jìn)行排序。以下是一些常見(jiàn)的方法：

使用`Sort`方法

VBA中的`Sort`方法可以很容易地對(duì)數(shù)組進(jìn)行排序。以下是一個(gè)例子：

```vba

Sub SortArray()

Dim arr() As Integer

arr = Array(5, 2, 9, 1, 5, 6)

Call Sort(arr)

' 打印排序后的數(shù)組

Dim i As Integer

For i = LBound(arr) To UBound(arr)

Debug.Print arr(i)

Next i

End Sub

Sub Sort(ByRef arr() As Variant)

Dim i As Long, j As Long, temp As Variant

Dim n As Long

n = UBound(arr) LBound(arr) + 1

For i = 1 To n 1

For j = i + 1 To n

If arr(i) > arr(j) Then

temp = arr(i)

arr(i) = arr(j)

arr(j) = temp

End If

Next j

Next i

End Sub

```

使用`WorksheetFunction.Sort`方法

你也可以使用Excel工作表函數(shù)`Sort`來(lái)對(duì)數(shù)組進(jìn)行排序：

```vba

Sub SortArrayUsingWorksheetFunction()

Dim arr() As Integer

arr = Array(5, 2, 9, 1, 5, 6)

Call WorksheetFunction.Sort(arr, 1, 1, 1, 1, xlAscending)

' 打印排序后的數(shù)組

Dim i As Integer

For i = LBound(arr) To UBound(arr)

Debug.Print arr(i)

Next i

End Sub

```

使用`Array.Sort`方法

從VBA 5.0開(kāi)始，你可以使用`Array.Sort`方法來(lái)對(duì)數(shù)組進(jìn)行排序：

```vba

Sub SortArrayUsingArraySort()

Dim arr() As Integer

arr = Array(5, 2, 9, 1, 5, 6)

Call Array.Sort(arr)

' 打印排序后的數(shù)組

Dim i As Integer

For i = LBound(arr) To UBound(arr)

Debug.Print arr(i)

Next i

End Sub

```

這些方法都可以用來(lái)對(duì)數(shù)組進(jìn)行排序。你可以根據(jù)需要選擇最適合你的方法。