vba 数组增加元素

要在VBA中向数组添加元素，您需要使用Redim语句来重新调整数组的大小。以下是一个简单的示例：

Dim myArray() As Integer
ReDim myArray(4)

' 添加元素
myArray(0) = 1
myArray(1) = 2
myArray(2) = 3
myArray(3) = 4

' 重新调整数组大小以添加另一个元素
ReDim Preserve myArray(5)
myArray(4) = 5
myArray(5) = 6

在这个示例中，我们首先声明了一个名为“myArray”的整数数组，并使用Redim语句将其大小设置为4。然后，我们将四个元素添加到数组中。接下来，我们使用Redim语句和“Preserve”关键字重新调整数组的大小，以便我们可以添加两个额外的元素。请注意，我们必须使用“Preserve”关键字来保留数组中现有元素的值。否则，重新调整大小将导致数组中的所有元素被删除并替换为默认值。