vba二维数组取一行

在VBA中，我们可以使用二维数组来存储和处理多个数据。如果想要从一个二维数组中取出其中的一行数据，可以通过以下步骤实现：

首先，我们需要定义一个二维数组并初始化。例如，我们定义一个名为arr的二维数组，并给它赋值如下：

Dim arr(1 to 3, 1 to 4) As Variant
arr(1,1) = 1
arr(1,2) = 2
arr(1,3) = 3
arr(1,4) = 4
arr(2,1) = 5
arr(2,2) = 6
arr(2,3) = 7
arr(2,4) = 8
arr(3,1) = 9
arr(3,2) = 10
arr(3,3) = 11
arr(3,4) = 12

接着，我们可以使用一个变量来存储要取出的行号。例如，我们要取出第2行的数据，则定义一个整型变量rowNum，并赋值为2。

Dim rowNum As Integer
rowNum = 2

然后，我们可以使用一个一维数组来存储取出的行数据。首先，定义一个一维数组，其大小与列数相同。然后，使用一个循环将要取出的行的数据复制到一维数组中。例如，我们定义一个名为result的一维数组，并将第rowNum行的数据复制到result中。

Dim result(1 to 4) As Variant
For i = 1 To 4
    result(i) = arr(rowNum, i)
Next

最后，我们可以通过遍历一维数组来访问取出的行数据。例如，我们可以使用一个循环输出result中的数据。

For i = 1 To 4
    Debug.Print result(i)
Next

通过以上步骤，我们可以从一个二维数组中取出指定的一行数据，并将其存储在一个一维数组中进行进一步的处理或输出。