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

質問

Excel VBAを使用してです。

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

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

回答No.1

kamejiro · ベストアンサー

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

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

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

お礼

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

回答No.2

Wendy02

こんにちは。

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

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

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

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

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

お礼

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