在VBA中向变量列表/数组添加元素

Dim myArray() As Integer
ReDim Preserve myArray(5) ' 声明一个大小为5的数组
myArray(0) = 1
myArray(1) = 2
myArray(2) = 3
myArray(3) = 4
myArray(4) = 5

ReDim Preserve myArray(10) ' 增加数组的大小为10，并保留现有元素
myArray(5) = 6
myArray(6) = 7
' 继续添加其他元素

Dim myArray() As Integer
ReDim myArray(5) ' 声明一个大小为5的数组
myArray(0) = 1
myArray(1) = 2
myArray(2) = 3
myArray(3) = 4
myArray(4) = 5
' 继续添加其他元素

Dim myArray() As Integer
Dim i As Integer

ReDim myArray(5) ' 声明一个大小为5的数组

For i = 0 To 4
    myArray(i) = i + 1
Next i
' 继续添加其他元素

Dim myArray() As String
Dim myString As String

myString = "apple,banana,orange"
myArray = Split(myString, ",") ' 将字符串分割为数组

' 向数组中添加元素
ReDim Preserve myArray(UBound(myArray) + 1)
myArray(UBound(myArray)) = "grape"

myString = Join(myArray, ",") ' 将数组合并为字符串