【ExcelVBA】for文 ネスト（入れ子）

for文の入れ子

Sub sample1()

　　Dim i As Integer

　　Dim j As Integer

　　Dim str As String

　　For i = 1 To 3

　　　　For j = 1 To 4

　　　　　　str = str & i & "年" & j & "組" & ", "

　　　　Next j

　　　　str = str & vbCrLf

　　Next i

　　MsgBox str

End Sub