【VBA入門】ループ処理で配列、二次元配列を操作する方法

この記事を読むのに必要な時間は約 8 分です。

ループ処理で配列を操作する方法です。

配列にも、１次元配列や２次元以上の配列があります。
１次元配列は、数字が一直線に並んでいるところを想像してもらえれば分かりやすいかもしれません。
２次元配列は、カレンダーやエクセルの表などが相当します。

１次元でも２次元でも、For-Nextのループ処理で対応できます。
For-Nextの使い方はこちらの記事も参考にしてみてくださいね。

それでは、ループ処理で配列を操作する方法です。

配列の要素数を確認する

For文でループして配列を操作するなら、インデックス番号がドコからドコまであるのか確認する必要があります。

確認には、UBound関数、LBound関数を使います。

UBound関数：最大のインデックス番号を返す
LBound関数：最小のインデックス番号を返す

UBound関数、LBound関数の使い方

UBound関数、LBound関数の引数は次のようになります。

UBound(arrayname [ ,dimension ] )
LBound(arrayname [ ,dimension ] )

１次元配列の場合は２つ目の引数を省略できますが、２次元配列以上なら指定が必要です。

配列()という配列があったとすると、次のようにインデックス番号を取得できます。

iMax=UBound(配列)

iMin=UBound(配列)

２次元配列の場合、どうなるんでしょうか。

配列(a, b)があったとすると、

'１次元目 aの要素数
iMax1=UBound(配列,1)

iMin1=UBound(配列,1)

'２次元目 bの要素数
iMax2=UBound(配列,2)

iMin2=UBound(配列,2)

のように書きます。
２つ目の引数が、どの次元なのかを表すわけです。

１次元配列から、For～Next文でループして値を取り出す

サンプルプログラムです。

配列sTestArray()にSplit関数で値を入れて、For～Nextでループし値を取り出します。

Option Explicit

Public Sub testArray1()
    
    Dim sTestArray() As String
    Dim lCnt As Long
    
    sTestArray = Split("東京 茨城 神奈川 栃木 千葉 群馬 山梨 埼玉", " ")
         
    For lCnt = LBound(sTestArray) To UBound(sTestArray)
        
        Debug.Print sTestArray(lCnt)
    
    Next lCnt
    
End Sub

実行結果がこちらです。

VBA_ループ処理で配列、二次元配列を操作する方法

Split関数の使い方については、こちらの記事

【VBA入門】配列に値を格納する方法３つ

の３番目のところを参考にしてくださいね。

２次元配列から値を取り出す

１次元配列のときはループも１つでした。

ところが２次元配列になると、１次元目用のループと２次元目用のループが必要になります。
ループ処理の中にループ処理を入れて、二重ループさせるわけです。

二重にループさせる

まずはサンプルプログラムをご覧ください。

Public Sub testArray2()
    
    Dim lCntX As Long
    Dim lCntY As Long
    Dim vArr As Variant
        
    vArr = Sheets("Sheet1").Range("B2:H6")

    'For lCntY = 1 To 5
    For lCntY = LBound(vArr, 1) To UBound(vArr, 1)
    
        'For lCntX = 1 To 7
        For lCntX = LBound(vArr, 2) To UBound(vArr, 2)
        
            Debug.Print vArr(lCntY, lCntX)
    
        Next lCntX
    Next lCntY
    
End Sub

２次元配列vArrは、エクセルシートからRangeでとってきています。

VBA_ループ処理で配列、二次元配列を操作する方法