エクセルのマクロについての質問お願いいたします。

質問

エクセルのマクロについての質問お願いいたします。
コピーについてお願いいたします。
Ａ列に文字（文章）が１行目から１５０行ぐらいや２０００行ぐらいなど文字があります。この行の間には空白の行もあります。
Range("A1:A2000").Copyこちらですと最終行の以下の空白行もコピーするので困っております。
例えば、文字が１０００行までで終わっていたら、１０００行までコピーする方法をどうぞご教授ください。

回答No.2

kmetu · ベストアンサー

Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy

とかいかがですか

お礼

ありがとうございます。
助かりました。また機会がありましたらよろしくお願いいたします。

回答No.1

layy

「ＥＸＣＥＬでお仕事」のサイトにて
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html
Excelが認知している最終行を取得する。

サンプルがあります。参考になるかと思います。