【マクロ】データが１つもない行を削除する

質問

添付した画像のようなファイルがあります。
この表の中で、データが一つもない行は削除して、上詰めにするマクロを実行したいです。
また、このシートの表は１１行で終わっていますが、
他のシートは２５行目で終わっていたりとバラバラです。
すべてのシートでこの処理を行いたいと思っていますので、
他のシートで処理を行ってもエラーのでないマクロを教えていただけたら幸いです。

ちなみに、
・各シートに表はひとつづつ。
・各シートの表の開始セルは同じ。
・全シートに対して一気に処理を行いたい。←指定した処理をすべてのシートで行うマクロは作成済なので大丈夫です。

回答No.3

chie65535 · ベストアンサー

＞すると
＞c = Cells(l, Columns.Count).End(xlToLeft).Column
＞がエラーになり、実行できません。

きちんと当方で動作確認して正常に動いているモノを、訳も判らずイジクリ回すから、そうなります。

＞までを貼り付けてみましたが、そうするとマクロを実行できないため、

当方が書いたルーチンは「マクロとして呼び出すモノではない」です。

「他のマクロからcall文を使って呼びなさい」と書いたのに、それに従わないなら、貴方に教えるのはもうやめます。言う事を聞かない者に教え続ける義理はありませんから。

＞あと、表の１列目が空欄の場合に行を削除したいわけではなく、その行のすべての列にデータがない場合にその行を削除したいです。

これを読んで「何も理解してない」って事が、よ～～～～く判りました。申し訳ありませんが、もう見捨てます。

当方が書いたルーチンは、ちゃんと「その行のすべての列にデータがない場合に『のみ』、その行を削除する」ようになっていますが、それを疑うなら、もう知りません。当方の事を疑うような者に教える義理はありませんから。

もうこれ以上この質問には回答しませんので、自力で頑張って下さい。見捨てます。

お礼

私の拙い質問に対し、丁寧に教えて下さったのに、
こちらの勉強不足のため、不愉快な思いをさせてしまい、失礼いたしました。
初めてのマクロであること、仕事で頼まれた作業であるため、
焦ってしまい失礼な返事をしてしまいました。
大変申し訳ありません。