スキルアップ・問題解決なら、モーグにおまかせ！

行いたいことの例は、
 
D列とE列には、
両列とも数値が入っている場合と、両列とも数値が入っていない場合のみとなります。
 
D2：E50　のセル範囲のいて、行が空白の場合、上に詰めて削除していくだけのプログラムを組みたいです。
 
Q＆Aで見当たらなく、こちらに投稿させて頂きました。
 
どうぞよろしくお願いいたします。
 
なお、EXELLは2004バージョンを使用しております。
 
 

「エクセル VBA 空白行削除」でWEB検索すればサンプルコードがいくらでも見つかります。
 
それらを参考にまずはコードを作成してみてください。

ヒント
  
行の挿入／削除
を実行する場合は、
上から検索するのではなく、
下から検索します。
 
セル範囲：C2:E50
とキメウチで考えると、作成したマクロは1回のみ実行となります。
次回、実行する時には、セル範囲を変更する必要があります。
１回だけの処理ならば、コードでにゃんでいる間に、手作業で対応できますよね・・・
 
複数実行する可能性があるならば、セル範囲を汎用化する検討しましょう。
 
With Range("D2:E50")
    For Rx = .Ros.COunt To 2 Step -1
        If 空白セル Then
          削除
        End If
    Nexr
End With
 
マクロの記録で、
挿入／削除
を実行すれば、コードが作成できます。
若干のカスタマイズは必要ですが、
頑張ってみましょう。

はい、ありがとうございました。
参考にさせていただき、自力でやってみたいと思います。