VBA 掛け算プログラム

Question

VBAでループの学習をして、定番？の掛け算プログラムを作成してみました。

1×1から9×9までですが・・・

以下のtest1()を実行すると、画像の様に、結果が横になってしまいます。
11=1 12=2 1*3=3というように。

Sub test1()
'結果が横になってしまう
    Dim i As Long
    Dim j As Long
    
        For i = 1 To 9
            For j = 1 To 9
                Cells(i, j) = i & "×" & j & "=" & i * j
            Next j
        Next i
End Sub

本当は、縦に
11=1
12=2
1*3=3としたかったので、考えた末、以下test2の様に書き換えました。

Sub test2()
    Dim i As Long
    Dim j As Long
    
        For i = 1 To 9
            For j = 1 To 9
                Cells(j, i) = i & "×" & j & "=" & i * j
            Next j
        Next i
End Sub

書き方や考え方は、合っていますでしょうか？また、他の書き方はありますでしょうか？ご教授、アドバイスをお願い致します。

Answer 1

たぶん初めて書いたプログラムで、不安なのでしょうね。

まず、結果に満足していれば問題ないです。
プログラムは何より正しい結果を出すことが大切です。

ループの使い方も問題ないです。

今回は特に問題ありませんが、１つだけ指摘するなら、インデント（字下げ）がDim とForで間をとっている点です。
Dimはメソッドの途中に書いても（現在）問題ないので、どこにでも入ってくる可能性があります。
なので、字下げか違うと今後もう少し長いメソッドを書いたときに読みづらくなるかもしれません。