Excel VBA質問箱 IV

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

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


34631 / 76734 ←次へ | 前へ→

【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 を加算しなければ良いのです。

1 hits

【47306】最終行を取得消去 おっと 07/3/7(水) 20:58 質問
【47309】Re:最終行を取得消去 Kein 07/3/7(水) 22:00 回答
【47328】Re:最終行を取得消去 Kein 07/3/8(木) 1:38 発言
【47341】Re:最終行を取得消去 おっと 07/3/8(木) 15:10 お礼
【47311】Re:最終行を取得消去 ponpon 07/3/7(水) 22:05 発言
【47313】Re:最終行を取得消去 ponpon 07/3/7(水) 22:10 発言
【47319】Re:最終行を取得消去 ウッシ 07/3/7(水) 22:34 発言
【47312】Re:最終行を取得消去 ウッシ 07/3/7(水) 22:09 回答
【47327】Re:最終行を取得消去 おっと 07/3/8(木) 0:14 お礼

34631 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free