Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9934 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24728】最終レコードの値に移動するには？ takenokotaro 05/5/6(金) 13:50 質問[未読]
【24729】Re:最終レコードの値に移動するには？ 小僧 05/5/6(金) 14:15 発言[未読]
【24733】Re:最終レコードの値に移動するには？ YN61 05/5/6(金) 15:22 発言[未読]
【24798】Re:最終レコードの値に移動するには？ takenokotaro 05/5/10(火) 22:48 お礼[未読]
【24728】最終レコードの値に移動するには？
質問  takenokotaro  - 05/5/6(金) 13:50 -
引用なし
パスワード
   こんにちは。
初歩的な質問で申し訳ありませんがどなたかご協力ください。
マクロである列にあるデータの最終レコードの値にセルを移動させたいのですが
なかなかうまくいきません。助けていただける方がおりましたら宜しくお願い致します。
（最終レコードはその都度変わります）
【24729】Re:最終レコードの値に移動するには？
発言  小僧  - 05/5/6(金) 14:15 -
引用なし
パスワード
   ▼takenokotaro さん：
こんにちは。

ヘルプでEnd プロパティを参照してみてください。

過去ログの
[#19808]
も参考になると思います。

難しいようでしたら再度の質問をお待ちしてます。
【24733】Re:最終レコードの値に移動するには？
発言  YN61  - 05/5/6(金) 15:22 -
引用なし
パスワード
   ▼takenokotaro さん：

こんにちは、A列で、しています

Sub test1()
　 Range("A65536").End(xlUp).Select
End Sub

Sub Test2()
　 Dim i
　　　i = Cells(Rows.Count, 1).End(xlUp).Row
　　 MsgBox "最終行は、" & i
End Sub

意味を取り違えていましたら御免なさい
【24798】Re:最終レコードの値に移動するには？
お礼  takenokotaro  - 05/5/10(火) 22:48 -
引用なし
パスワード
   皆さんご解答ありがとうございました。助かりました。
またの機会がありましたら宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9934 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free