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

質問

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

回答No.4

BookerL · ベストアンサー

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

＞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

＃２です。

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

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

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

補足

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

回答No.2

BookerL

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

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

noname#131542

Range("b1:b２").Delete　でなくて？これならb列だけの削除になりますが・・・。　
例えば
１１１　　２２２　　３３３
１１１　　２２２　　３３３
１１１　　２２２　　３３３
１１１　　２２２　　３３３　
というシートあったとすると
１１１　　３３３
１１１　　３３３
１１１　　２２２　　３３３
１１１　　２２２　　３３３
に変りますがこういうことでしょうか？