最終行から指定行までの削除

VBAで、表のB列の最終行からB列の91行目までの行削除するマクロを作りたいのですが、うまくいきません。

No.4 ベストアンサー 回答者： BookerL 回答日時： 2010/12/04 14:46

　補足を見ましたが、やはりよくわかりません。

＞12行目から30行目までしかデーターを入力しなければ、31行目から91行目までの行を削除したい

ということですが、この場合、最初の質問の「B列の最終行からB列の91行目まで」の「最終行」とはどの行のことでしょうか。「データの最終」という意味なら、３０行目が最終行になりますが、３０行目を削除するのはまずいですね。

　データが何行目まで入力されているかを調べ、最終行の次の行から９１行目までを削除するなら、

Sub test()
Dim REnd As Integer

REnd = Range("B12").End(xlDown).Row + 1
Range(Cells(REnd, 2), Cells(91, 2)).EntireRow.Delete
End Sub

みたいなことでしょうか。

　試すときは、当然ですが、バックアップを取って試してください。

No.3 回答者： BookerL 回答日時： 2010/12/04 11:54

　＃２です。

　質問をよく読むと、「行削除」とありました。

　Ｂ列の最終行が 500行だとすると、行ないたいことは、B91:B500 のセル範囲だけを削除するのではなく、91行目から500行目までを削除したい、ということでしょうか。

　先の回答は、セル範囲だけを削除するものです。

この回答への補足

B列の12行目から91行目にかけてデーターを入力し92行目に合計が出るような表を作っています。
例えば、12行目から30行目までしかデーターを入力しなければ、31行目から91行目までの行を削除したいのですが。
すいません説明が不足していました。

補足日時：2010/12/04 13:09

No.2 回答者： BookerL 回答日時： 2010/12/04 11:50

　どううまくいかないのかがわかりませんが、

Sub test()
Dim REnd As Long

REnd = Range("B65536").End(xlUp).Row
Range(Cells(91, 2), Cells(REnd, 2)).Delete Shift:=xlUp
End Sub

みたいなのではだめですか。

削除したあと、左へシフトなら

.Delete Shift:=xlUp　のところを　.Delete Shift:=xlToLeft　とします。

あるいは、「削除」というのがデータ消去のことであれば、

.Delete Shift:=xlUp　のところを　.ClearContents　とします。

No.1 回答者： shornet 回答日時： 2010/12/04 11:23

Range("b1:b２").Delete　でなくて？これならb列だけの削除になりますが・・・。

　
例えば
１１１　　２２２　　３３３
１１１　　２２２　　３３３
１１１　　２２２　　３３３
１１１　　２２２　　３３３　
というシートあったとすると
１１１　　３３３
１１１　　３３３
１１１　　２２２　　３３３
１１１　　２２２　　３３３
に変りますがこういうことでしょうか？