5列で50まで文字をいれていきたい

Question

以下のコードは5列で50まで数値を入れたいと思い書いたのですが、何も変わりません。
どうすればいいですか？
＊Excelにはデータは何も入っていません。

Option Explicit

Sub 演習4()

Dim s As Worksheet
Set s = ThisWorkbook.Worksheets(2)
Dim cnt As Integer: cnt = 1
Dim i As Integer: i = 0
Dim j As Integer: j = 1

With s
    Do While .Cells(i + 1, 1) = ""
        
        If cnt = 50 Then Exit Do
        i = i + 1
        
        Do While j = 5
            
            .Cells(i, j) = cnt
            cnt = cnt + 1
            j = j + 1
        
        Loop
    Loop
End With

End Sub

Comments

[m.ts10806]

コードはマークダウンのcode機能を利用してご提示ください。
また、Debug.printなどでデバッグしてみましたか？
「何も変わりません」とはどういうことでしょう？

[L4zy]

オーバーフローします。
cntをプラス1してるのに表示すると毎回1になります。
なぜでしょうか？

[m.ts10806]

外出先のため、後程回答はしますがマークダウンの対応だけ質問編集して、やっておいてください

[tatsu99]

「5列で50まで数値を入れたい」とは、どういう結果になればよいのですか。
期待する結果を画像で提示してください。

Answer 1

どうすればいいですか？

上手く行かない時は、ステップインで1行づつ実行し、
ローカルウィンドウで各変数の値を確認してみてください。

Do While j = 5

jの値が5の間はループ

だから、j=1　の時点ではじかれます。

5を越えたら次の行
50になったら終わり
ならば、
Loop Until cnt = 50
のように、Untilで表現した方が読みやすくないですか？

Sub 演習4()

    Dim s As Worksheet: Set s = ThisWorkbook.Worksheets(2)
    Dim cnt As Integer
    Dim i As Integer
    Dim j As Integer

    Do
        i = i + 1
        j = 1
        Do
            cnt = cnt + 1
            s.Cells(i, j).Value = cnt
            j = j + 1
        Loop Until j > 5
    Loop Until cnt = 50
End Sub

終りが50とはっきりしてるので、
For～Nextの方がもっと読みやすくなると思います

Sub test()
    Dim i As Long
    Dim r As Range
    
    Set r = Worksheets("Sheet2").Cells.Resize(, 5)　’5列で
    For i = 1 To 50　　　　　　　　　　　　　　　　　　’1から50まで
        r.Cells(i).Value = i
    Next
End Sub

Answer 2

こういうことですか？

Option Explicit

Sub 演習4()

    Dim s As Worksheet
    Set s = ThisWorkbook.Worksheets(2)
    Dim cnt As Integer: cnt = 1
    Dim i As Integer: i = 0
    Dim j As Integer: j = 1

    With s
        Do While .Cells(i + 1, 1) = ""

            If cnt >= 50 Then Exit Do
            i = i + 1
            j = 1
            Do While j <= 5

                .Cells(i, j) = cnt
                cnt = cnt + 1
                j = j + 1

            Loop
        Loop
    End With
End Sub