マクロ練習問題3 (二重ループの練習) メモ
Sub 練習問題3()
Dim i As long
Dim j As long
For i = 2 To 11
For j = 2 To 11
Cells(i,j) = Cells(i,1)*Cells(1,i)
Next
Next
End Sub
Sub 練習問題3()
Dim i As long
Dim j As long
For i = 2 To 11
For j = 2 To 11
Cells(i,j) = Cells(i,1)*Cells(1,i)
Next
Next
End Sub