Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34635 / 76738

←次へ　｜　前へ→


	【47309】Re:最終行を取得消去

Kein - 07/3/7(水) 22:00 -


	引用なし

	パスワード

D列の最終入力行は、Range("D65536").End(xlUp).Row で取得できます。
Offset(1) すると「一つ下の空白セル」になるので、その質問では
どちらを指定したいのか良く分からないのですが、いちおう一つ下とすると

Sub 余消し()
　 Dim GetR As Long

　 GetR = Range("D65536").End(xlUp).Row + 1
　 If GetR >= 30 Or GetR <= 480 Then
　　　Range("C" & GetR & ":C480").ClearContents
　 End If
End Sub

というコードになります。最終入力行に合わせるなら、当然～.Row + 1 の
ところで 1 を加算しなければ良いのです。

0 hits

▼

【47306】最終行を取得消去 おっと 07/3/7(水) 20:58