エクセル 連番が途切れているところに空白行を入れる

1
2
3
4
6
～
3980
3982
～
4000といったように続いているのですが，
この4と６や3980と3982の連番が途切れいている間に空白行をいれたいのです．
単体のセルではなく，1行全てに空白を挿入したいのです．

可能でしょうか？

詳しい方，よろしくお願い致しますm(__)m

質問者からの補足コメント

• ご質問ありがとうございます．
  順番に回答させて頂きます．
  
  ①マクロを使って頂いても問題ありませんm(__)m
  ②タイトル行はあります．
  ③対象列は複数ありますが、先程の連番のデータを基準として、同じ行に空白を入れたいのです．
  ④複数行挿入致します．
  
  言葉足らずの質問で，失礼致しました．

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/12/01 12:30

• 回答ありがとうございますm(__)m
  
  データが大量過ぎて、つらいです
  
  すみませんm(__)m

  No.2の回答に寄せられた補足コメントです。 補足日時：2016/12/01 12:36

No.3 ベストアンサー 回答者： 銀鱗 回答日時： 2016/12/01 13:03

連番とそれに関するデータが横に並んでいるだけと言う状況なら、

自分だったら他のシートに連続した連番をA列に作成して、その連番と等しい連番のデータを参照して表示させるかな。
その場合、元のデータで抜けている連番は参照するデータが抜けることになるけどね。

データのない行が邪魔なら、
　オートフィルタで空白のある行だけを表示させて
　ジャンプで表示しているセル（アクティブ セル）だけを選択し
　一度に削除（DELキーを押す）
するだけで綺麗になります。

下の図のSheet2のB1セルには
　=IFERROR(VLOOKUP(A1,Sheet1!A:B,2,0))
と数式を入れ、必要な行までコピーしています。

この回答へのお礼

ありがとうございます！

出来ました！

本当にありがとうございますm(__)m

お礼日時：2016/12/01 14:26

No.5 回答者： tatsu99 回答日時： 2016/12/01 13:09

連番のデータは、何列にありますか。

A列ですか？

No.4 回答者： 銀鱗 回答日時： 2016/12/01 13:06

数式に間違いがありましたので訂正します。

誤　=IFERROR(VLOOKUP(A1,Sheet1!A:B,2,0))
正　=IFERROR(VLOOKUP(A1,Sheet1!A:B,2,0),"")

No.2 回答者： ren-yuki5048 回答日時： 2016/12/01 12:29

回答の内容が間違っていたらすみません。

その場合、空白上を入れたいところの１つ下の行番号（１番左にある数字）の上で右クリックをして「挿入」をすれば１行全てに空白を挿入できると思います。
なので、4と6の間に入れるには6の行の行番号の上で右クリック「挿入」で、
4と6の間に一行入れられるはずです。

No.1 回答者： GooUserラック 回答日時： 2016/12/01 12:14

① マクロ（ＶＢＡ）を使っても良いですか？

② タイトル行はありますか？
③ 対象列はどこですか？
④ 複数途切れている場合（50,53のような場合）は複数行挿入するのでしょうか？