如何在VBA中对数组中的每一行单独排序？

Dim arr(1 To 3, 1 To 5) As Integer
arr(1, 1) = 3
arr(1, 2) = 1
arr(1, 3) = 2
arr(1, 4) = 5
arr(1, 5) = 4

arr(2, 1) = 9
arr(2, 2) = 7
arr(2, 3) = 8
arr(2, 4) = 6
arr(2, 5) = 10

arr(3, 1) = 15
arr(3, 2) = 13
arr(3, 3) = 11
arr(3, 4) = 14
arr(3, 5) = 12

Dim i As Integer
For i = LBound(arr, 1) To UBound(arr, 1)
    ' 使用Sort方法对每一行进行排序
    Call SortArray(arr, i)
Next i

Sub SortArray(arr() As Variant, row As Integer)
    Dim sortArr As Variant
    Dim i As Integer
    
    ' 将指定行的数据复制到一个新数组中
    ReDim sortArr(1 To UBound(arr, 2))
    For i = LBound(arr, 2) To UBound(arr, 2)
        sortArr(i) = arr(row, i)
    Next i
    
    ' 使用VBA的Sort方法对新数组进行排序
    Call VBA.Sort(sortArr)
    
    ' 将排序后的结果复制回原数组的指定行
    For i = LBound(arr, 2) To UBound(arr, 2)
        arr(row, i) = sortArr(i)
    Next i
End Sub