限定しりとり

2重のDo～Loopは？

解決済

  • 質問者：nonnbee
  • 質問日時：
  • 回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (2件)

No.1ベストアンサー

  • 回答者： chie65536
  • 回答日時：

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



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を１つ進める」ってのさえ入れれば、だけど。
    • good
    • 2
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2007/07/23 18:36

No.2

  • 回答者： KG_
  • 回答日時：

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



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

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

通報する
お礼日時：2007/07/23 18:37

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

Q質問する（無料）

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

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

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

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報