マクロでエクセルの行を準に削除したいのですが…(;_;)

エクセルのマクロを使って
Range("D3:E3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

Range("D4:E4").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
という風に3000個ほど順番に消していきたいのですがfor...nextを使うと

for I = 3 to 3000
　　Range("DI:EI").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
nest I
となってこれを実行するとDIのセルに飛んでしまいます。どうしたらいいのですか？教えて下さいお願いしますm(_ _)m

No.2 ベストアンサー 回答者： m_hagizo 回答日時： 2002/06/27 17:39

Iを変数として扱わないといけないのがミソですね。

これじゃダメですかねぇ。ちゃんと動くかどうかは分かりませんが、少なくともIが変数として認識されると思います。

for I = 3 to 3000
　　Range("D" & I & ":E" & I).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
next I

No.1 回答者： yuu200 回答日時： 2002/06/27 17:39

Range("D" & I & ":E" & I).Select

でよろしいでしょうか・・・？