VBA Array関数の使い方徹底解説！1次元配列・２次元配列の操作をマスターしよう

Sub DeclareArray()
    Dim arr As Variant
    arr = Array(1, 2, 3, 4, 5)
End Sub

Sub ExtractArrayElements()
    Dim arr As Variant
    arr = Array(1, 2, 3, 4, 5)

    '// 配列の各要素を取り出して表示
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        Debug.Print "arr(" & i & ") = " & arr(i)
    Next i
End Sub

Sub DeclareTwoDimArray()
    Dim arr As Variant
    arr = Array(Array(1, 2, 3), Array(4, 5, 6))
End Sub

Sub DeclareTwoDimArrayWithDim()
    Dim arr(1, 2) As Long
    arr(0, 0) = 1
    arr(0, 1) = 2
    arr(0, 2) = 3
    arr(1, 0) = 4
    arr(1, 1) = 5
    arr(1, 2) = 6
End Sub

Sub ExtractTwoDimArrayElements()
    Dim arr As Variant
    arr = Array(Array(1, 2, 3), Array(4, 5, 6))

    '// 配列の各要素を取り出して表示
    Dim i As Long, j As Long

    For i = LBound(arr) To UBound(arr)   '// 行の範囲を決定
        For j = LBound(arr(i)) To UBound(arr(i))   '// 列の範囲を決定
            Debug.Print "arr(" & i & ", " & j & ") = " & arr(i)(j)
        Next j
    Next i
End Sub

Sub AddElementToArray()
    '// 初期配列をArray関数で作成
    Dim arr As Variant
    arr = Array("A", "B", "C")

    '// 配列のサイズを拡張して要素を追加（既存データを保持）
    ReDim Preserve arr(UBound(arr) + 1)  '// 配列サイズを1つ拡張
    arr(UBound(arr)) = "D"  ' 新しい要素を追加

    '// 配列の各要素を表示
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        Debug.Print "arr(" & i & ") = " & arr(i)
    Next i
End Sub

Sub RemoveElementFromArray()
    '// 初期配列をArray関数で作成
    Dim arr As Variant
    arr = Array("A", "B", "C", "D")

    '// 削除したい要素（ここでは "B"）のインデックスを見つける
    Dim i As Long, j As Long
    Dim newArr() As Variant
    ReDim newArr(0 To UBound(arr) - 1)  '// 新しい配列を1つ小さく作成

    j = 0
    For i = LBound(arr) To UBound(arr)
        If arr(i) <> "B" Then  '// 削除対象以外の要素を新しい配列にコピー
            newArr(j) = arr(i)
            j = j + 1
        End If
    Next i

    '// 元の配列を新しい配列に置き換える
    arr = newArr

    '// 新しい配列の各要素を表示
    For i = LBound(arr) To UBound(arr)
        Debug.Print "arr(" & i & ") = " & arr(i)
    Next i
End Sub

Sub ArrayWithVariant()
    Dim arr As Variant
    arr = Array(1, 2, 3)

    '// 配列の各要素を表示
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        Debug.Print "arr(" & i & ") = " & arr(i)
    Next i
End Sub

Sub ZeroBasedArray()
    Dim arr As Variant
    arr = Array("A", "B", "C")
    
    '// 配列の各要素を表示
    Debug.Print "arr(0) = " & arr(0) ' A
    Debug.Print "arr(1) = " & arr(1) ' B
    Debug.Print "arr(2) = " & arr(2) ' C
End Sub

Sub UseArray()
    Dim arr As Variant
    Dim element As Variant
    arr = Array(1, 2, 3, 4, 5)
    
    '// 配列の各要素をDebug.Printで表示
    For Each element In arr
        Debug.Print element
    Next element
    
    '// 配列をシートに一括で転送（縦に並べる）
    Range("A1:A5").Value = Application.WorksheetFunction.Transpose(arr)
End Sub

Sub CreateAndExtractTwoDimArray()
    Dim arr As Variant
    Dim newArr() As Variant
    Dim i As Long, j As Long

    '// 2次元配列をArray関数で作成
    arr = Array(Array(1, 2, 3), Array(4, 5, 6))

    '// 新しい2次元配列を作成（1から始まる配列のため、サイズを+1）
    ReDim newArr(1 To UBound(arr) + 1, 1 To UBound(arr(0)) + 1)

    '// 値を新しい配列に移しつつ、Debug.Printで出力
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr(i)) To UBound(arr(i))
            newArr(i + 1, j + 1) = arr(i)(j)
            Debug.Print "newArr(" & i + 1 & "," & j + 1 & ") = " & newArr(i + 1, j + 1)
        Next j
    Next i

    '// 2次元配列をシートに一括で転送
    Range(Cells(1, 1), Cells(UBound(newArr, 1), UBound(newArr, 2))).Value = newArr
End Sub

Sub AddElementToArray()
    Dim arr As Variant
    arr = Array(1, 2, 3)

    '// 配列のサイズを拡張して要素を追加（既存データを保持）
    ReDim Preserve arr(UBound(arr) + 1)
    arr(UBound(arr)) = 4  ' 新しい要素を追加

    '// 配列の各要素をDebug.Printで表示
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i

    '// 配列をシートに一括で転送（縦に並べる）
    Range("A1:A4").Value = Application.WorksheetFunction.Transpose(arr)
End Sub

Sub RemoveElementFromArray()
    Dim arr As Variant
    arr = Array(1, 2, 3, 4)

    '// 削除したい要素（ここでは2番目の "2"）を除外するために新しい配列を作成
    Dim newArr() As Variant
    Dim i As Long, j As Long
    ReDim newArr(UBound(arr) - 1)  '// 新しい配列を1つ小さく作成

    j = 0
    For i = LBound(arr) To UBound(arr)
        If arr(i) <> 2 Then  '// 削除する要素以外を新しい配列にコピー
            newArr(j) = arr(i)
            j = j + 1
        End If
    Next i

    '// 新しい配列の各要素をDebug.Printで表示
    For i = LBound(newArr) To UBound(newArr)
        Debug.Print newArr(i)
    Next i

    '// 新しい配列をシートに一括で転送
    Range("A1:A3").Value = Application.WorksheetFunction.Transpose(newArr)
End Sub

Sub AddElementToTwoDimArray()
    Dim arr As Variant
    arr = Array(Array(1, 2, 3), Array(4, 5, 6))

    '// 新しい要素を追加するために行を増やす
    Dim newArr() As Variant
    Dim i As Long

    '// 2次元配列として新しい行を追加
    ReDim newArr(LBound(arr) To UBound(arr) + 1, LBound(arr(0)) To UBound(arr(0)))

    '// 既存の行を新しい配列にコピー
    Dim j As Long
    
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr(i)) To UBound(arr(i))
            newArr(i, j) = arr(i)(j)
        Next j
    Next i

    '// 新しい行を追加
    For j = LBound(arr(0)) To UBound(arr(0))
        newArr(UBound(arr) + 1, j) = 7 + j  '// 新しい行 (7, 8, 9) を追加
    Next j

    '// 新しい配列の各要素をDebug.Printで表示
    For i = LBound(newArr) To UBound(newArr)
        For j = LBound(newArr, 2) To UBound(newArr, 2)
            Debug.Print newArr(i, j)
        Next j
    Next i

    '// 新しい2次元配列をシートに一括で転送
    Range(Cells(1, 1), Cells(UBound(newArr, 1) + 1, UBound(newArr, 2) + 1)).Value = newArr
End Sub

Sub RemoveElementFromTwoDimArray()
    Dim arr As Variant
    arr = Array(Array(1, 2, 3), Array(4, 5, 6)) '// 2次元配列の作成

    '// 2次元配列から特定の行を削除する（ここでは2番目の行を削除）
    Dim newArr() As Variant
    Dim i As Long, j As Long
    
    ' 新しい2次元配列を作成（行数を1減らす）
    ReDim newArr(LBound(arr) To UBound(arr) - 1, LBound(arr(0)) To UBound(arr(0)))

    j = 0
    For i = LBound(arr) To UBound(arr)
        If i <> 1 Then  '// 削除する行以外を新しい配列にコピー
            Dim k As Long
            For k = LBound(arr(i)) To UBound(arr(i))
                newArr(j, k) = arr(i)(k)  ' 新しい2次元配列にデータをコピー
            Next k
            j = j + 1
        End If
    Next i

    '// 新しい配列の各要素をDebug.Printで表示
    For i = LBound(newArr, 1) To UBound(newArr, 1)
        For j = LBound(newArr, 2) To UBound(newArr, 2)
            Debug.Print newArr(i, j)
        Next j
    Next i

    '// 新しい2次元配列をシートに一括で転送
    Range(Cells(1, 1), Cells(UBound(newArr, 1) + 1, UBound(newArr, 2) + 1)).Value = newArr
End Sub