エクセルVBAにて最終行の取得とその活用

質問

エクセルVBA初心者です。
VBAで入力行最終行を取得するのは、色々なところに載っているですが、
その行から一個下の行を全て消すのはどうしたらよいのですか？
Sub 最終行取得()
Dim r
r = Range("B4").End(xlDown)
Rows(r + 2).ClearContents　　←ここは適当です。
ちなみに　Range("a"&r+1).ClearContents
で一つしたのセルを消す事は出来ました。

回答No.3

merlionXX · ベストアンサー

No2 merlionXXです。

> 結合しているセルがある為エラーになります。

結合していれば手動でやってもクリアできないはずですよね。
どうしてそういう後だしジャンケンみたいな質問をされるのでしょうか？

結合してないのがA,C,F列で、そこだけクリアでもいいのなら
r = Range("B4").End(xlDown).Row + 1
Range("A" & r & "," & "C" & r & "," & "F" & r).ClearContents

お礼

merlionXX様回答ありがとうございました。
あと出しジャンケンみたいな質問してすいません。
自分でも結合セルが引っかかると思っていなかったもので。
今度から気をつけます。
提示してもらったコードを参考にさせてもらい解決いたしました。
（B列も結合している為、最終行の取得がうまく出来なかった為、
jam-best様の式と両方を使いました。）
最終的にはこうしました。

Dim r As Long
r = Cells(65536, 2).End(xlUp).Row + 2
Range("A" & r & "," & "C" & r & "," & "F" & r).ClearContents
End Sub

回答No.5

n-jun

n-junです。

＞また、もしだめならば、A,C,Fの行だけでも結構です。
Sub try2()
Range("B4").End(xlDown).Offset(1, -1).Range("A1,C1,F1").ClearContents
End Sub

こうゆう事ですか？

お礼

n-jun様回答ありがとうございます。
最終行の取得でうまく出来なかった為、
違う方法にて解決しました。
参考になるコードの提示ありがとうございました。

回答No.4

jam-best

B列の最終行だけ見ればいいのでしょうか？

Dim lrow As Long
lrow = Cells(65536, 2).End(xlUp).Row
Rows(lrow + 1).Delete Shift:=xlUp
End Sub
これでどうでしょうか。

お礼

jam-best様回答ありがとうございます。
Rows(lrow + 1).Delete Shift:=xlUpを使うと
列ごと削除される為表が崩れてしまいます使えませでしたが
最終行の取得は、参考にさせていただきました。

回答No.2

merlionXX

一例です。

r = Range("B4").End(xlDown).Row
Rows(r + 1).ClearContents

お礼

merlionXX様ありがとうございます。
一応出来ました。しかし
結合しているセルがある為エラーになります。
なにか良い方法はありますか？

回答No.1

n-jun

Sub try()
Range("B4").End(xlDown).Offset(1).EntireRow.ClearContents
End Sub

こうゆう感じの事ですか？

Offset(1)
Ｂ４以下最終行の１行下と言う事です。

お礼

n-jun様回答ありがとうございます。
一応出来ましたが、デバックされます。
結合セルがすぐ下にあるためエラーになります。
BとDとEとGとHは結合している為エラーになります。
これに対応したものは出来るのでしょうか？
また、もしだめならば、A,C,Fの行だけでも結構です。