VBA 九九の表を作る
Sub 九九()
Dim i As Integer
Dim n As Integer
For i = 1 To 9
For n = 1 To 9
Cells(i, n).Value = i * n
Next n
Next i
End Sub
Sub 九九()
Dim i As Integer
Dim n As Integer
For i = 1 To 9
For n = 1 To 9
Cells(i, n).Value = i * n
Next n
Next i
End Sub