VBA「10行追加するたびに1行空ける」

VBA

出力結果としてはこうなります

これだけならフィルハンドで出来るよ!と教えていただく

VBAばっかりやっていて、フィルハンドで出来ると知りませんでした💦
はるさん、ありがとうございます!m(__)m

実際にやってみると出来ました

M列がフィルハンドです。
なのでこれだけやるならVBAは必要ないのですが、VBAで作成する応用が効きますのでコードを紹介しておきます。

コードを2つ作りました。出力結果は同じです。

1つ目のコード

Sub issueTableID()

    Dim i, tableID, pointer As Long
    tableID = 1
    pointer = 0
    
    
    For x = 1 To 10 Step 1
        For i = 1 To 10 Step 1
            Cells(pointer + i, 2).Value = tableID
            tableID = tableID + 1
        Next i
        pointer = pointer + 11
    Next x

End Sub

2つ目のコード

Sub makeTable()

    Dim i, x As Long
    i = 1
    x = 1
        
    Cells(x, 2).Value = i
        
        While i <= 100
                    
            i = i + 1
            x = x + 1
            
            Cells(x, 2).Value = i
            
            If i Mod 10 = 0 Then
                x = x + 1
            End If
        Wend
    
End Sub

両方とも簡素に書いていますので、実際に実装する時は注意してください。