VBA

VBA　ReDim関数について　～関数の解説と使用例～

ENGINEER.CLUB編集部

• 最終更新日:2023/1/6

VBAで一度作成した配列の要素数を処理の途中で変更や追加したいと思ったことはありませんか？ReDim関数では、要素数や次元数の変更など、配列の操作ができます。ここでは、多く使われる処理について説明していきます。

１．Redim関数について

１-１．ReDim関数とは

ReDim関数は、動的配列の要素数、次元数を変更できる関数です。

１-２．ReDim関数の構文

ReDim Preserve [変更する変数名]([配列変数の次元数]) AS [変数のデータ型]

２．ReDim関数の使用例

２-１．基本的な使用例

２-１-１．要素数を変更

下記の例では、要素数を定義していない配列Arryを、要素数を5に変更しています。

Sub sample01()
    Dim Arry() As String
    
    ReDim Arry(5)

End Sub

変更前：

変更後：

２-１-２．次元数を変更

下記の例では、1次元配列Arryを2次元配列に変更しています。

Sub sample02()
    Dim Arry As Variant
    
    '配列を作成
    ReDim Arry(2)
    
    '次元を変更
    ReDim Arry(2, 3)

End Sub

変更前：

変更後：

２-２．特殊な書き方をする場合

２-２-１．配列の中身を保持したまま要素数を変更する

Preserveを使うと、配列の値を保持した状態で要素数を変更できます。

Sub sample03()
    Dim Arry As Variant
    
    '配列を作成
    ReDim Arry(2)
    
    Arry(0) = 0
    Arry(1) = 1
    Arry(2) = 2
    
    '要素数を変更
    ReDim Preserve Arry(3)

End Sub

変更前：

変更後：

３．ReDim関数の特殊な使い方

３-１．データ型の変更

変更元がVariant型の変数のみ可能

Sub sample04()
    Dim Arry As Variant
    
    'データ型をVariantからStringへ変更
    ReDim Arry(2) As String

End Sub

変更前：

変更後：

３-２．配列の初期化

要素数を変更することで、配列を初期化することができます。

Sub sample05()
    Dim Arry As Variant
    
    '配列を作成
    ReDim Arry(2)
    
    Arry(0) = 0
    Arry(1) = 1
    Arry(2) = 2
    
    '要素数を変更
    ReDim Arry(3)

End Sub

変更前：

変更後：値が初期化されて「Empty 値」になります。

３-３．Preserveを使用する際の注意

３-３-１．変更できる要素数は、下限（一番右側の値）のみ有効

それ以外を変更しようとすると、エラーになります。

Sub sample05()
    Dim Arry As Variant
    
    '配列を作成
    ReDim Arry(2, 3)
    
    '要素数を変更
'    ReDim Preserve Arry(3, 5)     ‘←1つ目の値を変更しているのでエラーが発生
    ReDim Preserve Arry(2, 5)

End Sub

４．最後に

ReDim関数は、配列の要素数や次元を変更するだけではなく、初期化等も行える関数です。うまく利用して、配列を活用していきましょう。