配列の値を残したまま要素数を変更する

今回は配列の要素数の変更についてメモしておきます。配列の要素数の変更はReDimステートメントで行います。

実行プログラム

Sub Sample3_7_1()

    Dim strArray()  As String

    ReDim strArray(1) As String
    strArray(0) = "Sun"
    strArray(1) = "Mon"

    ReDim strArray(6) As String  ' 要素数を変更

End Sub

Sub Sample3_7_1()

Dim strArray() As String

ReDim strArray(1) As String

strArray(0) = "Sun"

strArray(1) = "Mon"

ReDim strArray(6) As String ' 要素数を変更

End Sub

ReDimステートメント実行前

ReDimステートメント実行後

要素数が増えたことが確認できます。
配列の値は保持されません。

配列の値を残した要素数の変更

配列の値を残すには、Preserveをオプションに指定します。

実行プログラム

Sub Sample3_7_2()

    Dim strArray()  As String

    ReDim strArray(1) As String
    strArray(0) = "Sun"
    strArray(1) = "Mon"

    ReDim Preserve strArray(6) As String  ' 要素数を変更

End Sub

Sub Sample3_7_2()

Dim strArray() As String

ReDim strArray(1) As String

strArray(0) = "Sun"

strArray(1) = "Mon"

ReDim Preserve strArray(6) As String ' 要素数を変更

End Sub

実行前

実行後