VBA中使用动态数组

在VBA中，可以使用动态数组来动态地存储和处理数据。动态数组的大小可以根据需要进行调整，以适应不同的数据量。

以下是一个使用动态数组的VBA示例：

Dim n As Integer
n = 0
Dim MyStr() As String

For i = 1 To Sheet1.UsedRange.Rows.Count
    For j = 1 To Sheet1.UsedRange.Columns.Count
        n = n + 1
        ReDim Preserve MyStr(n) '给动态数组重定义一个实际的大小
        MyStr(n - 1) = Sheet1.Cells(i, j).Value '存到动态数组里去
    Next j
Next i

For Each MyArray In MyStr
    MsgBox "数组的值是" & MyArray
Next

上述代码中，我们首先声明了一个整型变量n，并将其初始化为0。然后，我们声明了一个动态字符串数组MyStr。接下来，我们使用两个嵌套的循环遍历Sheet1中的所有单元格，并将每个单元格的值存储到动态数组MyStr中。在每次循环中，我们使用ReDim Preserve语句来重新定义动态数组的大小，以便能够容纳新的值。最后，我们使用For Each循环遍历动态数组MyStr，并使用MsgBox函数显示数组中的每个值。

相关问题

VBA 如何使用动态数组

在 VBA 中，动态数组是一种可以根据需要自动调整大小的数组。使用动态数组可以在编写代码时更加灵活和方便。

要声明动态数组，可以使用 ReDim 语句：

Dim myArray() As Integer

请注意，这里没有指定数组的大小。在需要时，可以使用 ReDim 语句来调整数组的大小：

ReDim myArray(10) ' 数组大小为 11

可以使用 UBound 函数来获取数组的上限：

Dim upperBound As Integer
upperBound = UBound(myArray)

要向动态数组添加元素，可以使用以下代码：

ReDim Preserve myArray(11) ' 数组大小增加到 12
myArray(11) = 42 ' 添加新元素

请注意，这里使用了 Preserve 关键字，以便保留数组中的现有元素。

希望这个回答能够帮到你！

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` 关键字来保留原来的数组元素。这样，只会增加数组的行数，列数不变，原来的元素会被保留下来。