vba 二维数组多列排序算法

VBA 中可以使用简单的冒泡排序算法对二维数组中的多列进行排序。下面是一个例子：

Sub SortArray(arr As Variant, col As Long)
    Dim i As Long, j As Long, temp As Variant
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = i + 1 To UBound(arr, 1)
            If arr(i, col) > arr(j, col) Then
                temp = arr(i, col)
                arr(i, col) = arr(j, col)
                arr(j, col) = temp
            End If
        Next j
    Next i
End Sub

上面的代码中，arr 参数是要排序的二维数组，col 参数是要排序的列。