vba 動的配列の要素がなくなってしまう現象について

Question

以下のようなコードでmyArrayC()という動的配列にString型の要素をいれていき、のちにその配列を用いて別の処理を行いたいのですが、配列内の要素が消えて？（なくなって？）しまいます。原因がわかりません。

i = 1

For Each c In Range(Cells(9, 5), Cells(9, lColumn))
    If c.Value = "採点せず" Then
        ReDim myArrayC(i) As String
        myArrayC(i) = Cells(10, c.Column).Value
        debug.Print myArrayC(i)
        i = i + 1
    End If
Next
Debug.Print myArrayC(1)

コード中にある一回目の「Debug.Print」ではしっかりと要素がイミディエイトウインドウに出てくるのですが、２回目（For～Nextの外）の「Debug.Print」では空白が出てきてしまいます。このことから、myArrayC()の要素が消えてしまったと勝手に決めつけているのですが、原因がわかりません。ぜひ、理由を教えてもらえればと思います。

Answer 1

既存の配列のデータを保持するには、ReDim Preserveを使ってください。
ReDim ステートメント (VBA) | Microsoft Docs

Comments

[m_m_0824]

迅速な回答ありがとうございます。無事、問題が解決しました。ありがとうございました。