【VB】セルが空になるまで処理を繰り返したい

Excel VBAを使用してです。

列Ａにデータがずらっと入っています。
そのデータを列Ｂに、
Do while ～loop　か　Do until ～loopを使って
データが無くなるまでコピーするという処理を書きたいのです。

VB歴が浅いためひらめきません。よろしくお願いします。m(__)m

No.1 ベストアンサー 回答者： kamejiro 回答日時： 2005/11/15 11:03

例えば、B列(2列目)を1行目から順に検索し、空白セルの行が見つかったら終了する場合、

i = 1
Do Until Cells(i, 2) = ""
　(処理)
i = i + 1
Loop

とすると、良いと思いますが…。

この回答へのお礼

大変参考になりました。
どうもありがとうございました。

お礼日時：2005/11/15 11:42

No.2 回答者： Wendy02 回答日時： 2005/11/15 11:24

こんにちは。

＞データが無くなるまでコピーするという処理を書きたいのです。

VBAの練習なら別ですが、単に、こういうことではないのでしょうか？

Sub TestSample()
　Range("A1", Range("A1").End(xlDown)).Copy Range("B1")
End Sub

データの最終行までというなら、
Range("A1").End(xlDown)
　は、
Range("A65536").End(xlUp)

ということになりますが。

この回答へのお礼

大変勉強になりました。
どうもありがとうございます。

お礼日時：2005/11/15 11:41