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 質問
【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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
34635 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free