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

みんなのQ&A
4,000万人が利用！最大級のQ&Aコミュニティ
専門家のQ&A
みんなの悩みに専門家が回答します
企業のQ&A
みんなの悩みを企業が解決するQ&A
著名人のQ&A
話題の著名人が教えてくれる自分磨きのQ&A
+OKWave
話題のテーマに特化したQ&Aコミュニティ
Why OKWave
Q&AをとおしてOKWaveが実現したいこと
法人のお客様
CRM・販売支援等、法人向けサービス多数
もっと見る
ヘルプ
新規会員登録
ログイン

動画に投票して3000円が当たる！

総ありがとう 4,459万

詳細
検索

-PR-

困ってます
2005-11-15 10:46:43
質問No.1780105

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

閲覧数43818
ありがとう数12
気になる数0
回答数2

sineminna

Excel VBAを使用してです。

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

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

通報する

回答数2
気になる数0

回答する
気になる
「気になる」をクリックで
回答がついた時に通知でお知らせします

Aみんなの回答（全2件）

質問者が選んだベストアンサー

2005-11-15 11:03:24
回答No.1

kamejiro

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

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

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

通報する

回答ページへ移動する

お礼コメント

sineminna

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

投稿日時 - 2005-11-15 11:42:06

同意数1(1-0)
ありがとう数0

そう思う！
ありがとう
なるほど、役に立ったなど
感じた思いを「ありがとう」で
伝えてください

-PR-

その他の回答（全1件）

全ての回答を全文表示

全ての回答を短縮表示

並び替え (
新着順 |
回答順 |
同意数順 )

2005-11-15 11:24:26
回答No.2

Wendy02

こんにちは。＞データが無くなるまでコピーするという処理を書きたいのです。 VBAの練習なら別ですが、単に、こういうことではないのでしょうか？ Sub TestSample() 　Range("A1", Range("A1").End(xlDown)).Copy Range("B1") End Sub データの最終行ま ...続きを読む

こんにちは。

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

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

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

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

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

通報する

回答ページへ移動する

回答ページへ移動する (お礼あり)

お礼コメント

sineminna

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

投稿日時 - 2005-11-15 11:41:30

同意数0(0-0)
ありがとう数1

そう思う！

ありがとう

なるほど、役に立ったなど
感じた思いを「ありがとう」で
伝えてください

回答数2
気になる数0

回答する
気になる
「気になる」をクリックで
回答がついた時に通知でお知らせします

ありがとう数9

ありがとう
なるほど、役に立ったなど
感じた思いを「ありがとう」で
伝えてください

質問する
知りたいこと、悩んでいることを
投稿してみましょう