VBA学習ツール無料配布！#30 テーマ:vbaで配列の最小・最大インデックスを取得しよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("書き込みシート")
    ' 2×3の整数型の配列を作成(最小インデックスは0)
    Dim arr(1, 2) As Integer
    Dim i As Integer
    Dim j As Integer
    Dim val As Integer
    Dim arrRng As Range: Set arrRng = ws.Range(ws.Cells(6, 2), ws.Cells(7, 4))
    ' シート「書き込みシート」をアクティベート
    ws.Activate
    ' 配列の各要素に0～5を代入
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            arr(i, j) = val
            val = val + 1
        Next j
    Next i
    ' 配列の要素をシート「書き込みシート」内のセルに入力
    ' 複数セルが代入されたRange変数の最小インデックスは1であることに注意する
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            arrRng(i + 1, j + 1).value = arr(i, j)
        Next j
    Next i
    ' メッセージボックスで完了を通知
    MsgBox "arrの要素記入を完了しました。", vbInformation
End Sub