Excel VBA質問箱 IV

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

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


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

24581 / 76732

←次へ　｜　前へ→


	【57499】Re:データを別のセル（最終データの下）へコピーする方法

Abebobo - 08/8/28(木) 9:57 -


	引用なし

	パスワード

''VBA初心者さん　おはようございます。
'最終行の取得の仕方が解らない　ということでいいですか？
'Sub 最終行取得()　がサンプルです。
'
'Rows.Count　の説明マクロも書いておきます。
'エクセル2000しか知りませんが　Rows.Count=65536　です。
'Sub 説明()　のマクロを実行して　Ctrlキーを押しながら　↑キー　を
'押してください。　それをマクロの記録で取ると　.End(xlUp)　が出てきます。

Option Explicit

Sub 最終行取得()
Dim Last_r　　As Long
　With ActiveSheet
　　Last_r = .Range("B" & Rows.Count).End(xlUp).Row + 1
　　.Range("B" & Last_r).Select
　End With
End Sub

Sub 説明()
　With ActiveSheet
　　.Range("B" & Rows.Count).Select
　End With
End Sub

2 hits

▼

【57495】データを別のセル（最終データの下）へコピーする方法 VBA初心者 08/8/27(水) 23:35