Excel VBAで動的配列を完全マスター！ReDimとPreserveの使い方・注意点を徹底解説【初心者向け】

「Excel VBAで配列を使いたいけど、データ量が変わるときはどうすればいいの？」

そんな疑問を解決するのが、動的配列です！この記事では、動的配列を使う際の基本ルールから、ReDimステートメントを活用したサイズ変更の方法、エラーを防ぐコツまでを初心者向けに丁寧に解説します。これを読めば、動的配列を使った効率的なデータ処理ができるようになりますよ！

(練習用ファイル付)増強改訂版　できるイラストで学ぶ入社1年目からのExcel VBA (できるイラストで学ぶシリーズ)

インプレス

¥2,288 （2024/12/20 13:08時点 | Amazon調べ）

Amazon

楽天市場

ポチップ

1. 動的配列とは？

動的配列とは、プログラム実行中にサイズを変更できる配列のことです。固定サイズの配列と異なり、データ量が変化する状況に柔軟に対応できます。

2. 動的配列の宣言方法

動的配列を宣言するには、以下のように配列のサイズを指定せずに宣言します。

Dim myArray() As String

1	Dim myArray() As String

サイズを指定する場合は、ReDimステートメントを使用します。

3. ReDimステートメントで配列サイズを変更

基本の使い方

配列のサイズを設定するには、次のコードを使用します。

ReDim myArray(1 To 5)

1	ReDim myArray(1 To 5)

これにより、myArrayは5つの要素を持つ配列に変わります。

サイズを再設定する

配列のサイズを再設定する場合も、ReDimを使います。

ReDim myArray(1 To 10)

1	ReDim myArray(1 To 10)

ただし、この操作では元の配列データが失われる点に注意が必要です。

4. データを保持するには「Preserve」を使用

データを保持しながらサイズを変更するには、Preserveキーワードを使います。

ReDim Preserve myArray(1 To 10)

1	ReDim Preserve myArray(1 To 10)

Preserveを使う際の注意点：

配列の最後の次元のみサイズ変更が可能です。

例: 2次元配列の場合

ReDim Preserve myArray(1 To 3, 1 To 10)

1	ReDim Preserve myArray(1 To 3, 1 To 10)

5. 実用例

データを動的に追加

次のコードは、ユーザー入力に応じて配列を動的に拡張する例です。

Sub DynamicArrayExample()
    Dim myArray() As String
    Dim i As Integer
    Dim inputValue As String

    i = 0
    Do
        inputValue = InputBox("値を入力してください (キャンセルで終了):")
        If inputValue = "" Then Exit Do

        i = i + 1
        ReDim Preserve myArray(1 To i)
        myArray(i) = inputValue
    Loop

    ' 結果をシートに出力
    For i = LBound(myArray) To UBound(myArray)
        Cells(i, 1).Value = myArray(i)
    Next i
End Sub

Sub DynamicArrayExample()

Dim myArray() As String

Dim i As Integer

Dim inputValue As String

i = 0

inputValue = InputBox("値を入力してください (キャンセルで終了):")

If inputValue = "" Then Exit Do

i = i + 1

ReDim Preserve myArray(1 To i)

myArray(i) = inputValue

Loop

' 結果をシートに出力

For i = LBound(myArray) To UBound(myArray)

Cells(i, 1).Value = myArray(i)

Next i

End Sub

条件に応じた配列のフィルタリング

動的配列を使って条件を満たすデータだけを保存する方法です。

Sub FilterDynamicArray()
    Dim numbers() As Integer
    Dim filtered() As Integer
    Dim i As Integer, j As Integer

    ' 元の配列を定義
    numbers = Array(10, 25, 30, 15, 50)

    ' 条件に合う要素を保存
    j = 0
    For i = LBound(numbers) To UBound(numbers)
        If numbers(i) > 20 Then
            j = j + 1
            ReDim Preserve filtered(1 To j)
            filtered(j) = numbers(i)
        End If
    Next i

    ' 結果を出力
    For i = LBound(filtered) To UBound(filtered)
        Debug.Print filtered(i)
    Next i
End Sub