つらつら Excel VBA

私の備忘録です。

Excel VBA 動的配列

Dim var_list As Variant, cnt As Integer

cnt = 0

'配列の要素追加
If cnt = 0 Then

    ReDim var_list(0)
Else
    ReDim Preserve var_list(UBound(var_list) + 1)
End If
var_list(UBound(var_list)) = "データ"
cnt = cnt + 1

 

補足

・ReDim 配列の再定義。例)a(30,20,ココ)一番後ろしか再定義できない。

Preserveキーワードをつけるとデータが消えない。

・Ubound 配列の最大要素番号を返す。