繰り返し処理(For～Next入れ子構造)

For～Next文は入れ子構造にすることができます。小学校の算数で習う九九の表を作成してみましょう。以下のプロシージャを実行すると、A1セルからI9セルの範囲に1×1=1から9×9⁼81までを表示します。

Sub Sample1()
    Dim i As Integer
    Dim j As Integer
    'セルに九九の表を作成
    For i = 1 To 9
        For j = 1 To 9
            Cells(i, j).Value = i & "×" & j & "⁼" & i * j
        Next
    Next
End Sub