将值添加到变量数组VBA

Question

我试图循环通过一个table有一个columnfor "customers" and "dollar amount".如果我的循环找到一个customer被调用的"greg" or "henry"我想将他添加"dollar amount"到一个未知大小的数组.

有人可以帮帮我吗？

Answer 1

如果未知大小,表示元素数量未知,则可以使用动态数组.

Dim aArray() As Single ' or whatever data type you wish to use
ReDim aArray(1 To 1) As Single
If strFirstName = "henry" Then
    aArray(UBound(aArray)) = 123.45
    ReDim Preserve aArray(1 To UBound(aArray) + 1) As Single
End If

如果数组没有标注尺寸,则Ubound(aArray)会抛出错误,因此我们首先向其添加一个元素.这使我们在文本末尾留下了一个空元素,因此您的代码应该考虑到这一点.aArray(Ubound(aArray)-1)将为您提供数组中的最后一个有效元素.