エクセル2003のVBAに関する質問です。

ある列(範囲の指定はある。たとえば、200行とか)に、連続した行になっているデータを貼り付けたときに、データのはいっている最後の行を簡単に割り出すVBAかマクロか(関数でもいいですけど)というのはあるのでしょうか? ループでその範囲をスキャンすればできるのですが、もっと簡単な方法がありそうです。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2007/07/20 00:13:02
  • 終了:2007/07/25 08:22:36

回答(3件)

id:castiron No.1

castiron回答回数418ベストアンサー獲得回数302007/07/20 00:19:19

ポイント27pt

こういうことではないですか?

=INDEX(A:A,COUNT(A:A))

これだとA列の最終行で貼り付けたセルの最終行かどうか分かりませんが

http://q.hatena.ne.jp/1184857979

id:F-15X No.2

F-15X回答回数111ベストアンサー獲得回数132007/07/20 00:26:36

ポイント27pt

SpecialCellsを使います。

SpecialCellsの対象はRengeオブジェクトです。


シート中の最後のセル位置は次のように求められます。

'行位置

Debug.Print ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

'列位置

Debug.Print ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column


選択された範囲でのセル位置は次のように求められます。

Debug.Print Selection.SpecialCells(xlCellTypeLastCell).Row

Debug.Print Selection.SpecialCells(xlCellTypeLastCell).Column

id:freemann No.3

freemann回答回数309ベストアンサー獲得回数502007/07/20 01:16:41

ポイント26pt

Range("A1").End(xlDown).Select

でもいけますよ。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html

id:isogaya

これがよさげですね。ありがとうございます。

2007/07/20 08:07:16

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません