在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`是處理動態數組的一個重要工具，能夠幫助開發者更靈活地管理數據結構。掌握好它的使用方法可以極大地提高代碼的效率和可維護性。
