arrays - 変数配列VBAに値を追加する

Question

fortableを持つをループしようとしています。私のループが呼び出されたものを見つけたら、私は彼を未知のサイズの配列に追加したいと思います。column"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) は、配列内の最後の有効な要素を提供します。