エクセルVBA(マクロ)一定の行数毎に行を挿入

こんにちは、シバマメです!

数百、数千、数万の長ーいエクセルの表で、

一定行数ごとに、行を挿入して見やすくするための

便利なコードを紹介させていただきます。

例えば、下記みたいな表の場合に使えます。

３年分の商品の販売数量をまとめた表ですね。

ちょっとみずらいですね…

アイテムごとに行を挿入できると見やすくなりますね！

でも、これが１００個の商品だったりすると、

手作業で行を挿入するのは、気が遠くなります(T_T)

使い方の手順

下記のコードを、個人用マクロブックに保存しましょう。
[個人用マクロブックの作成方法]
対象のエクセル表を開いた状態でマクロを実行します。
F5 or ▶ボタンで実行
実行すると、インプットボックスが出てきますので、
何行目から開始するのか？
何行おきに空白行をいれるのか？
を入力してください。

Sub InsertColumn()


    Dim i As Integer
    Dim StartCol As Long
    Dim MaxRow As Long
    Dim InsertCol As Long
    
    StartCol = InputBox("何行目から開始ですか？")
    InsertCol = InputBox("何行ごとに空白行を挿入しますか？")
    
    MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
     
     
      For i = 1 To MaxRow - 1 / InsertCol
   
        Rows(StartCol).Insert
 
        StartCol = StartCol + InsertCol + 1
   
      Next i


End Sub