VBA二维数组动态存储数据

在 VBA 中，可以使用 ReDim 语句来动态重新定义数组的大小。以下是一个示例代码，演示如何动态创建并存储数据到二维数组中：

Sub DynamicArray()

    ' 定义一个空的二维数组
    Dim myArray() As Variant
    
    ' 设置数组的大小为 3 行 2 列
    ReDim myArray(1 To 3, 1 To 2)
    
    ' 存储数据到数组中
    myArray(1, 1) = "A"
    myArray(1, 2) = "B"
    myArray(2, 1) = "C"
    myArray(2, 2) = "D"
    myArray(3, 1) = "E"
    myArray(3, 2) = "F"
    
    ' 输出数组的值
    For i = 1 To 3
        For j = 1 To 2
            Debug.Print myArray(i, j)
        Next j
    Next i

End Sub

在上面的代码中，我们首先使用 ReDim 语句定义了一个空的二维数组 myArray，并设置数组的大小为 3 行 2 列。然后，我们使用 myArray(i, j) 的形式存储数据到数组中。最后，我们使用两个 For 循环输出了数组的所有值。需要注意的是，由于我们是动态创建数组并存储数据，因此 ReDim 语句必须在存储数据之前执行。

相关问题

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

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

vba 定义动态二维数组

在VBA中定义动态二维数组可以使用ReDim语句。ReDim语句用于重新定义数组的大小和维数。

以下是定义动态二维数组的示例代码：

Dim myArray() As Variant
Dim numRows As Integer, numCols As Integer

'定义数组的行数和列数
numRows = 5
numCols = 3

'ReDim语句重新定义数组的大小和维数
ReDim myArray(1 To numRows, 1 To numCols)

'给数组赋值
myArray(1, 1) = "Apple"
myArray(1, 2) = "Banana"
myArray(1, 3) = "Cherry"
myArray(2, 1) = "Orange"
myArray(2, 2) = "Grape"
myArray(2, 3) = "Kiwi"
'...

在上面的示例代码中，首先定义了一个名为myArray的数组变量，然后使用ReDim语句将myArray数组重新定义为5行3列的二维数组。最后，给数组中的元素赋值。注意：在使用ReDim语句重新定义数组大小时，数组中原来存储的元素将会被清空。