飛び飛びに存在する空白行を削除するには?

Question 64.99 Previous Next
詳細は こちら こんにちは、いつもお世話になっています。
500連発のNo.193(データの入っていない行を調べて選択する・・・)を参考に、表内のとびとびに存在する無データ行(データの入っていないセルの行)を全て削除したいのですが、なかなかうまくいきません。 良い方法があればお教え下さい。 どうか、宜しくお願いします。
Answer   Copyright (C) 2004.2.16 永井善王
500連発193番より 拙(共)著 「ExcelVBAマクロ 500連発」 をご愛読ありがとうございます。
あなたが参考にされている 「データの入っていない行を調べて選択する(罫線ある表)」 と題するサンプル193番は、 右図のように、罫線がある表の末尾に何行かある空白行の先頭セルを選択するためのマクロです。
飛び飛びに空白行があるシート


それに対して、
あなたが処理したい表は、空白行が飛び飛びにあるということと、193番を参考にされているので恐らく罫線がある表だろうということしか分かっていません。

以後の回答をわかりやすくご説明するために左上図のシートによって進めます。 ご了承ください。


並べ替え後 「無データ行(…)を全て削除したい」 ということですが、具体的には左下図のようになればよいのでしょうか?

そうだとすれば、マクロを使わなくても、Excelの一般機能にある [並べ替え] で実現できます。
左下図は A列(No.)を第1キーに指定して、昇順に並べ替えしました。

もしかして、意味の取り違えでおかしな回答になっていましたら、改めてご連絡ください。

Excel VBA Macro