エクセルのマクロ Range("A1").End(xlDown).rowで列を削除

Ａ列の一番下のデータの次の行から
Ｆ列の一番下のデータの行まで削除したいのですが
Rows(" & Range("A1").End(xlDown).row+1 & ":" & Range("F1").End(xlDown).Row & ").Delete Shift:=xlUp
でうまくいきません
どうすればいいのですか？

No.2 ベストアンサー 回答者： taka_s777 回答日時： 2008/02/28 12:58

Rows(Range("A1").End(xlDown).Row + 1 & ":" & Range("F1").End(xlDown).Row).Delete Shift:=xlUp

でどうでしょうか。
Rows()内の最初と最後の("&～&")が不用かと…。

ちなみにxlDownだと途中に空欄があった場合、最下行は取得できません。
xlUpを使ったほうがより確実だと思いますよ。

Aend = Cells(Rows.Count, 1).End(xlUp).Row + 1
Fend = Cells(Rows.Count, 6).End(xlUp).Row
If Aend <= Fend Then Rows(Aend & ":" & Fend).Delete Shift:=xlUp

この回答へのお礼

ありがとうございます
できました
そんな単純なことだったんだ

お礼日時：2008/02/28 13:37

No.1 回答者： himajin555 回答日時： 2008/02/28 12:44

Range("A1").End(xlDown).Offset(1).Range("A1:F1").EntireRow.Delete

では？