XL VBA 动态字符串数组 - VBA

在 Excel VBA 中，动态字符串数组是非常有用的。它为我们提供了一种使用可调整大小的字符串数组的方法。在本文中，我们将介绍如何创建和使用动态字符串数组。

创建一个动态字符串数组

可以通过以下方式创建一个动态字符串数组：

Dim dynamicStringArray() As String

这条语句声明了一个名为 dynamicStringArray 的动态字符串数组。

添加元素到动态字符串数组中

动态字符串数组可以使用 ReDim 语句调整大小。可以使用以下语句来将元素添加到数组中：

ReDim Preserve dynamicStringArray(0 To 2)
dynamicStringArray(0) = "String 1"
dynamicStringArray(1) = "String 2"
dynamicStringArray(2) = "String 3"

这将数组的大小调整为 3，并将 3 个字符串添加到数组中。请注意，在 ReDim 语句中使用 Preserve 关键字以保留数组中的现有元素。

动态增加动态字符串数组的大小

如果需要添加更多的元素到动态字符串数组中，可以使用以下语句再次调整数组的大小：

ReDim Preserve dynamicStringArray(0 To 5)
dynamicStringArray(3) = "String 4"
dynamicStringArray(4) = "String 5"
dynamicStringArray(5) = "String 6"

这将数组的大小调整为 6，并向其中添加另外 3 个字符串。注意，我们需要再次使用 Preserve 关键字，以保留数组中现有的元素。

使用动态字符串数组

一旦元素被添加到动态字符串数组中，我们可以使用循环来遍历它们。

以下是一个遍历数组元素并输出所有元素的示例：

For i = 0 To UBound(dynamicStringArray)
    MsgBox dynamicStringArray(i)
Next i

在此示例中，我们通过循环遍历数组中的所有元素，并使用 MsgBox 函数分别输出它们。

结论

在 Excel VBA 中使用动态字符串数组可以使代码更紧凑，同时还可以减少使用固定大小数组时需要的代码量。本文介绍了如何创建和使用动态字符串数组，以及如何使用 ReDim 语句调整数组的大小。