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函数显示数组中的每个值。