VBA取出二维数组的一维

如果要取出一个二维数组的一维，可以使用VBA中的For循环，遍历该二维数组的某一行或某一列。以下是一个示例代码：

Sub Get1DArray()
    Dim arr(1 To 3, 1 To 2) As Integer '这里定义一个3行2列的二维数组
    arr(1, 1) = 1
    arr(1, 2) = 2
    arr(2, 1) = 3
    arr(2, 2) = 4
    arr(3, 1) = 5
    arr(3, 2) = 6
    
    Dim i As Integer
    Dim result(1 To 3) As Integer '这里定义一个1维数组，长度为3
    For i = 1 To 3
        result(i) = arr(i, 1) '这里只取出二维数组的第一列，赋值给1维数组
    Next i
    '输出结果
    For i = 1 To 3
        Debug.Print result(i)
    Next i
End Sub

上述代码定义了一个3行2列的二维数组，然后取出了该二维数组的第一列，赋值给一个长度为3的1维数组，并输出了结果。如果要取出其他行或其他列，只需修改代码中的数组下标即可。