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

質問

エクセルのマクロを使って
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 · ベストアンサー

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

Range("D" & I & ":E" & I).Select
でよろしいでしょうか・・・？