数组上限的变量

Question

我正在尝试构建一个数组，该数组对于不断增长的每组数据可能会有所不同。这意味着我需要一个不断增长的Ubound。

不幸的是，当我尝试使用计数器方法来确定每次我遇到一个错误“需要常量表达式”时，Ubound应该有多大。有什么想法吗？

InStr（ActiveCell.Value，“ Column”）= 0时执行

a = a + 1

ActivCell.Offset(0, 1).Select

循环

将FC（0改为a）设为Double

For i = LBound(FC) To UBound(FC)

If InStr(ActiveCell.Value, "Column") = 0 Then

    FC(i) = ActiveCell.Value

    ActiveCell.Offset(0, 1).Select

Else

    Exit For

End If

i = i + 1

下一个我

我希望有一个针对所有大小数据定制的UBound 例如，如果我有一个大小为10的数据，则a = 10是一个从0到a的存储变量，如果应该更大，则可以将向量转换为更大的值，而不必返回代码