VBA 在运行时添加到数组

在VBA编程中，经常会涉及到处理数组的操作。有时候，我们需要在程序运行的过程中动态地向数组中添加元素。这种需求在实际的开发中非常常见，因此我们需要掌握相应的技巧和方法。

Sub AddElementToArray()
    Dim myArray() As Variant
    Dim i As Integer
    
    ' 初始化数组
    ReDim myArray(0 To 2)
    
    ' 向数组中添加元素
    For i = 0 To UBound(myArray)
        myArray(i) = i + 1
    Next i
    
    ' 输出数组元素
    For i = 0 To UBound(myArray)
        Debug.Print myArray(i)
    Next i
End Sub

Sub AddStringToArray()
    Dim myArray() As String
    Dim i As Integer
    
    ' 初始化数组
    ReDim myArray(0 To 2)
    
    ' 向数组中添加元素
    myArray(0) = "Hello"
    myArray(1) = "World"
    myArray(2) = "VBA"
    
    ' 输出数组元素
    For i = 0 To UBound(myArray)
        Debug.Print myArray(i)
    Next i
End Sub