VBA 二维数组排序

以下是VBA中二维数组排序的示例代码：

Sub sort_2D_array()
    Dim arr(1 To 3, 1 To 2) As Integer '定义一个3行2列的二维数组
    Dim i As Integer, j As Integer
    Dim temp As Integer
    
    arr(1, 1) = 3: arr(1, 2) = 2
    arr(2, 1) = 1:(2, 2) = 
    arr(3, 1) = 2: arr(3, 2) = 1
    
    '冒泡排序
    For i = 1 To 3
        For j = 1 To 2
            If arr(i, j) > arr(i, j + 1) Then
                temp = arr(i, j)
                arr(i, j) = arr(i, j + 1)
                arr(i, j + 1) = temp
            End If
        Next j
    Next i
    
    '输出排序后的二维数组
    For i = 1 To 3
        For j = 1 To 2
            Debug.Print arr(i, j)
        Next j
    Next i
End Sub

该示例代码中，我们定义了一个3行2列的二维数组arr，并对其进行了冒泡排序。排序后，我们输出了排序后的二维数组。