vba如何在数组中加数据

在VBA（Visual Basic for Applications）中，向数组中添加数据可以通过多种方式实现。以下是一些常见的方法：

1. 使用 `ReDim` 语句扩展数组大小

在声明数组时，你可以使用 `ReDim` 语句来增加数组的大小。

```vba

Dim myArray() As Integer

ReDim myArray(1 To 10) ' 初始化数组，大小为10

' 向数组中添加数据

myArray(5) = 50

' 如果需要，可以再次调整数组大小

ReDim Preserve myArray(1 To 20) ' 保留现有数据，扩展数组到20

myArray(15) = 150

```

2. 使用 `Array` 函数创建数组

你也可以使用 `Array` 函数来创建数组，并使用 `ReDim` 或 `ReDim Preserve` 来调整大小。

```vba

Dim myArray() As Integer

myArray = Array(1, 2, 3, 4, 5) ' 创建一个包含5个元素的数组

' 向数组中添加数据

ReDim Preserve myArray(1 To UBound(myArray) + 5)

myArray(UBound(myArray)) = 10

```

3. 使用 `LBound` 和 `UBound` 函数

使用 `LBound` 和 `UBound` 函数来获取数组的当前边界，并相应地调整。

```vba

Dim myArray() As Integer

ReDim myArray(1 To 10) ' 初始化数组，大小为10

' 向数组中添加数据

myArray(5) = 50

' 获取当前数组大小

Dim currentSize As Integer

currentSize = UBound(myArray) LBound(myArray) + 1

' 扩展数组

ReDim Preserve myArray(1 To currentSize + 5)

myArray(currentSize + 4) = 100

```

注意事项

当使用 `ReDim Preserve` 时，数组的大小可以增加，但元素的值将被保留。如果尝试减小数组的大小，则可能丢失数据。

每次使用 `ReDim` 语句时，数组的内容都会被重置。如果你希望保留现有的数据，请使用 `ReDim Preserve`。