VBA　使えるソースコード

Sub 九九() Dim i As IntegerDim n As Integer For i = 1 To 9 For n = 1 To 9 Cells(i, n).Value = i * n Next nNext i End Sub