往一个数组内新增一条数据vba代码实现

下面是往一个数组内新增一条数据的VBA代码实现：

Sub AddToArray()
    Dim myArray() As String '定义一个字符串类型的数组
    ReDim Preserve myArray(0) '初始化数组，大小为0
    myArray(0) = "Hello" '给数组第一个元素赋值
    ReDim Preserve myArray(1) '数组大小加1
    myArray(1) = "World" '给数组第二个元素赋值
    '打印数组元素
    For i = LBound(myArray) To UBound(myArray)
        Debug.Print myArray(i)
    Next i
End Sub

上述代码中，通过 ReDim Preserve 语句可以在不改变数组中已有元素的前提下增加数组的大小，从而实现向数组中新增一条数据。在本例中，首先将数组大小初始化为0，然后通过 ReDim Preserve 语句将数组大小增加为1，接着给数组第一个元素赋值，再次使用 ReDim Preserve 语句将数组大小增加为2，并给数组第二个元素赋值。最后，通过循环打印数组元素，验证新数据已成功添加到数组中