在VBA中动态附加数组

Question

我想根据各种变量的条件追加一个带数字的数组.这是我提出的代码:我从一个空数组开始.

Sub makeArr()
Dim myArr() As Integer
If box1 = True Then
    ReDim Preserve myArr(LBound(myArr) To UBound(myArr) + 1)
    myArr(UBound(myArr)) = 1
End If

If box2 = True Then
    ReDim Preserve myArr(LBound(myArr) To UBound(myArr) + 1)
    myArr(UBound(myArr)) = 2
End If
End Sub

显然这是一个例子,所以不是最优雅的方式,但它不起作用,因为我似乎无法重新调整数组,因为它最初没有ubound或一个lbound.当我调暗它时,myArr(0 to 0)这也失败了.

有任何想法吗？

Answer 1

在myArr第一次使用数组之前,运行以下命令:

ReDim Preserve myArr(0 To 1)

然后,当您进入动态ReDim声明时,仅ReDim在满足某些条件时使用,例如If UBound(myArr) > 1 then等.

If box1 = True Then
    If UBound(myArr) > 1 Then
        ReDim Preserve myArr(LBound(myArr) To UBound(myArr) + 1)
    End If
    myArr(UBound(myArr)) = 1
End If