vba二维动态数组赋值

定义二维动态数组时，可以使用 `ReDim` 语句动态改变数组的大小，然后使用双重循环遍历数组的每个元素，给每个元素赋值。以下是一个示例代码：

Dim arr() As Integer
Dim i As Long, j As Long

ReDim arr(1 To 3, 1 To 4)

For i = 1 To 3
    For j = 1 To 4
        arr(i, j) = i * j
    Next j
Next i

在上面的示例中，我们声明了一个名为 `arr` 的二维整数数组，并定义为动态数组。我们使用 `ReDim` 语句为其分配了 3 行 4 列的空间。然后使用双重循环遍历数组的每个元素，使用 `i` 和 `j` 分别表示当前元素所在的行和列，然后通过 `i * j` 的计算结果给每个元素赋值。

需要注意的是，当使用 `ReDim` 改变数组大小时，原来的数组元素会被清空，所以需要重新赋值。如果需要保留原来的数组元素，可以使用 `Preserve` 关键字，例如：

ReDim Preserve arr(1 To 4, 1 To 4)

在上面的示例中，我们使用 `Preserve` 关键字来保留原来的数组元素。这样，只会增加数组的行数，列数不变，原来的元素会被保留下来。

相关问题

VBA二维数组整行赋值

在VBA中，可以通过循环来逐个赋值二维数组的每个元素，但是这样比较麻烦。如果想要整行赋值一个二维数组，可以使用VBA提供的内置函数`Array()`来快速实现。例如：

Dim myArray(1 To 3, 1 To 3) As Integer
myArray(1) = Array(1, 2, 3)
myArray(2) = Array(4, 5, 6)
myArray(3) = Array(7, 8, 9)

上面的代码将一个3行3列的整数类型的二维数组赋值为一个按行赋值的数组。其中，`Array(1, 2, 3)`代表第一行的元素，`Array(4, 5, 6)`代表第二行的元素，`Array(7, 8, 9)`代表第三行的元素。

需要注意的是，`Array()`函数返回的是一个一维数组，所以在使用时需要加上行数的下标来指定赋值的行。

VBA 二维数组整行赋值

你可以使用 VBA 中的 For 循环语句和数组的赋值语句来整行赋值一个二维数组。以下是一个示例代码：

Dim arr(1 To 3, 1 To 5) As String ' 定义一个 3 行 5 列的字符串数组
Dim i As Integer, j As Integer

' 假设要将第二行赋值为 "a", "b", "c", "d", "e"
For j = 1 To 5 ' 遍历第二行的每一列
  arr(2, j) = Chr(j + 96) ' 将对应列赋值为字母 a 到 e
Next j

上述代码中，我们定义了一个 3 行 5 列的字符串数组 `arr`，然后使用 For 循环遍历第二行的每一列，并将其赋值为对应的字母。你可以根据需要修改代码来适应你的具体情况。