エクセルにてデーターセルに任意の空白行を素早く挿入するには？

質問

例として下記のような生産進行表があり、

　　　Ａ　　　　　Ｂ　　　　Ｃ　　　　　Ｄ　　　　　Ｆ　　　　Ｇ
１　車種　　　台数　パーツ１　パーツ２　パーツ３　パーツ４
２　ムーヴ　　１００　　　○　　　　○　　　　○　　　　○
３　タント　　１５０　　　　○　　　　○　　　　○　　　　○
４　ミ　ラ　　　５０　　　　○　　　　○　　　　○　　　　○
５　ライフ　　２００　　　　○　　　　○　　　　○　　　　○
↓　アルト　　１５０　　　○　　　　○　　　　○　　　　○
のような形で構成されており、車種に対応したパーツ１～４はVLOOKUP関数で取得できるのですが、各車種（ムーヴ～アルト）データーセルの行間に備考記入用の空白行を（４～６行）追加する必要が出てきました。上記表を下記のような形に早く行うにはどうすればよいでしょうか?
　車種データーは２００～３００位あります。1行づっ行挿入は時間が掛かり、また、事前に空白行を設けて、別紙にVLOOUP関数の検索値として=シート１！$A$2(ムーヴ）=シート！$A$3(タント）のような参照を取るのも時間が掛かります。どうすれば、下記の様な形に一括して早く簡単に出来る方法があれば、教えていただけないでしょうか?VBAなのでしょうか？関数なのでしょうか?

１　車種　　　台数　　　パーツ１　パーツ２　パーツ３　パーツ４

　　空白行４挿入

２　ムーヴ　　１００　　　○　　　　○　　　　○　　　　○

　　空白行４挿入

３　タント　　１５０　　　○　　　　○　　　　○　　　　○

　　空白行４挿入

４　ミ　ラ　　　５０　　　○　　　　○　　　　○　　　　○

　　空白行４挿入　

５　ライフ　　２００　　　○　　　　○　　　　○　　　　○

　　空白行４挿入

↓　アルト　　１５０　　　○　　　　○　　　　○　　　　○

回答No.2

zap35 · ベストアンサー

REDOという手もあるでしょうが、マクロが簡単と思います。
マクロはALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT＋F8を押してマクロ一覧からマクロ名を選択します。

Sub Macro5()
Dim idx As Long
　For idx = ActiveSheet.Range("a65536").End(xlUp).Row - 1 To 1 Step -1
　　ActiveSheet.Cells(idx, 1).Offset(1, 0).Resize(4, 1).EntireRow.Insert shift:=xlDown
　Next idx
End Sub

実行前にブックは必ず保存してくださいね。

お礼

回答有難うございます。マクロはあまりよく知らないのですが、コード構文をペーストして出来るか試してみます。早速の回答すみませんでした。

補足

昨日は回答有難うございました。ご指導いただいた標準モジュールをファイルに保存し、実行しましたら、思い通りの結果が一瞬に出て、正確に再現しました。
　補足の欄を利用し、再度、お礼申し上げます。回答者様のおかげで、仕事がスムーズにできるようになりました。
　本当に有難うございました。

回答No.3

mshr1962

#1です。判りにくかったかな？
　　　Ａ　　　　　Ｂ　　　　Ｃ　　　　　Ｄ　　　　　Ｆ　　　　Ｇ　　Ｈ
１　車種　　　台数　パーツ１　パーツ２　パーツ３　パーツ４　　１
２　ムーヴ　　１００　　　○　　　　○　　　　○　　　　○　　　２
３　タント　　１５０　　　　○　　　　○　　　　○　　　　○　　　３
４　ミ　ラ　　　５０　　　　○　　　　○　　　　○　　　　○　　　４
５　ライフ　　２００　　　　○　　　　○　　　　○　　　　○　　　５
↓　アルト　　１５０　　　○　　　　○　　　　○　　　　○　　　６
としてＧ列の２から６をコピーして、G7以降に4回貼り付けてから
「データ」「並び替え」でG列を昇順に並び替えると
１　車種　　　台数　パーツ１　パーツ２　パーツ３　パーツ４　　１
２　ムーヴ　　１００　　　○　　　　○　　　　○　　　　○　　　２
３　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　２
４　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　２
５　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　２
６　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　２
７　タント　　１５０　　　　○　　　　○　　　　○　　　　○　　　３
８　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　３
９　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　３
のようになります。

回答No.1

mshr1962

空いてる列に、1行目の項目に1と入力して
Ctrlを押しながらフィルコピーで連番を作成する。
2から最後の行までをコピーして4回貼り付けてその列で並べ替えする。
最後に今の列を削除で完成

これ以外だとマクロですね。
最後の行から4行ずつ増やすようにLOOPを作成すれば出来ます。

お礼

回答有難うございます。よく分からないですが、回答を参考にこれからトライしてみます。有難うございました。