電子書籍ギフト♪ 最大10,000円が当たる!

Excel VBAですが、A列にデータが入っています。
A列のデータが変わるまで 処理1 を実行し、変われば 処理2 を実行する。データがなくなれば終了する方法が分りません。宜しくお願いします。
i = 2
Do Until Cells(i, 1) = ""
Do Until Cells(i, 1) <> Cells(i - 1, 1)
処理1
Loop
処理2
Loop

教えて!goo グレード

A 回答 (2件)

質問文に書いてあるので合ってると思うけど。



i = 2
Do Until Cells(i, 1) = ""
Do Until Cells(i, 1) <> Cells(i - 1, 1)
処理1
i=i+1
Loop
処理2
i=i+1
Loop
って感じで「終ったらiを1つ進める」ってのさえ入れれば、だけど。
    • good
    • 2
この回答へのお礼

早速の回答ありがとうございます。
うまくいきました。
ありがとうございました。

お礼日時:2007/07/23 18:36

If Cells(i,1)="" then Exit Do



をそれぞれのループに入れてあげるのではダメでしょうか。
    • good
    • 0
この回答へのお礼

早速の回答ありがとうございました。

お礼日時:2007/07/23 18:37

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

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

教えて!goo グレード

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

人気Q&Aランキング