在VBA中，可以使用ReDim Preserve語句給數組添加值。
以下是一個示例代碼，演示如何給數組添加值：
Sub AddValueToArray()
Dim myArray() As Integer
Dim i As Integer
' 初始化數組
ReDim myArray(0) As Integer
' 添加值到數組中
For i = 1 To 5
ReDim Preserve myArray(i) As Integer
myArray(i) = i
Next i
' 打印數組中的值
For i = 1 To UBound(myArray)
MsgBox myArray(i)
Next i
End Sub
在上面的代碼中，首先使用ReDim語句初始化了一個空的數組myArray，然后使用ReDim Preserve語句在每次循環中將數組的大小增加1，并給新添加的元素賦值。最后，使用UBound函數獲取數組的上限，并通過循環打印數組中的值。
請注意，使用ReDim Preserve語句來改變數組的大小會導致系統重新分配內存，因此在處理大量數據時可能會影響性能。如果需要頻繁地添加值到數組中，建議使用集合對象（如Collection）或者動態數組（如ArrayList）來代替數組。
