2重のDo～Loopは？

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

No.1 ベストアンサー 回答者： chie65536 回答日時： 2007/07/23 17:35

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

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を１つ進める」ってのさえ入れれば、だけど。

この回答へのお礼

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

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

No.2 回答者： KG_ 回答日時： 2007/07/23 17:38

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

をそれぞれのループに入れてあげるのではダメでしょうか。

この回答へのお礼

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

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