在VBA（Visual Basic for Applications）编程中，数组是一种非常重要的数据结构，它允许我们存储和操作多个相同类型的数据项。然而，在实际开发过程中，我们常常会遇到一个问题：事先无法确定需要处理的数据量，或者数据量会发生变化。为了解决这个问题，VB提供了`ReDim`语句来动态调整数组的大小。而当需要保留原有数组内容时，`ReDim Preserve`就显得尤为重要了。
什么是 ReDim Preserve？
`ReDim`语句用于重新定义动态数组的大小。当我们使用`ReDim`时，默认情况下，新创建的数组元素会被初始化为默认值（例如，数值类型的数组会被设置为0，字符串类型的数组会被设置为空字符串）。然而，如果我们希望在改变数组大小的同时保留已有数据，就需要使用带有`Preserve`关键字的`ReDim`语句。`ReDim Preserve`可以在不丢失现有数据的情况下扩展或收缩数组的最后一维。
ReDim Preserve 的语法
```vba
ReDim [Preserve] 数组名(下界 To 上界)
```
- Preserve：可选参数，只有在需要保存数组中的现有数据时才需要指定。
- 数组名：已经声明过的动态数组的名字。
- 下界 To 上界：新的数组边界范围。
使用场景示例
假设你正在编写一个程序，该程序需要从用户那里接收一系列输入，并将这些输入存储在一个数组中。由于用户可能输入任意数量的数据，因此我们需要动态地调整数组的大小以适应不同的输入长度。以下是具体实现：
```vba
Sub DynamicArrayExample()
Dim userInput As String
Dim inputs() As String
Dim i As Integer
' 初始化数组
ReDim inputs(0)
Do While True
userInput = InputBox("请输入数据（输入'结束'退出）")
If userInput = "结束" Then Exit Do
' 检查是否需要扩展数组
If UBound(inputs) >= UBound(inputs, 1) Then
ReDim Preserve inputs(UBound(inputs) + 1)
End If
' 添加新输入到数组
inputs(UBound(inputs)) = userInput
Loop
' 输出所有输入的内容
For i = LBound(inputs) To UBound(inputs)
Debug.Print "输入 " & i & ": " & inputs(i)
Next i
End Sub
```
在这个例子中，我们首先创建了一个空数组`inputs()`，然后通过循环不断接收用户的输入。每当检测到数组已满时，我们使用`ReDim Preserve`来增加数组的容量，同时确保之前的所有输入都不会丢失。
注意事项
尽管`ReDim Preserve`功能强大，但它也有一些限制。首先，它只能更改数组的最后一维的大小；其次，每次调用`ReDim Preserve`都会导致内存重新分配，这可能会带来性能上的开销。因此，在设计程序时应尽量减少不必要的数组调整操作。
总之，`ReDim Preserve`是处理动态数组的一个重要工具，能够帮助开发者更灵活地管理数据结构。掌握好它的使用方法可以极大地提高代码的效率和可维护性。
