【初月無料キャンペーン中】gooドクター

Excel VBAを使用してです。

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

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

gooドクター

A 回答 (2件)

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



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

とすると、良いと思いますが…。
    • good
    • 2
この回答へのお礼

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

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

こんにちは。



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

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

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

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

ということになりますが。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング