[[20160620221023]] 『同一注文番号をトリガーにループ処理をしたい』(Azuma) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『同一注文番号をトリガーにループ処理をしたい』(Azuma)

    1   2   3   4 

a   156   東京  パナ

b   921   東京  東芝

c   921   東京  日立

d   333   大阪  その他

e   333   大阪  その他

こういったセル並びをしているcsvからデータを参照するマクロを組んでいます。
「1」の行に注文番号が入り、列をまたいで同注番が出ることはありません。
その上で

1. 先頭行に処理(1)、処理(2)を行う
2. 2行目の注文番号が上と同じなら処理(1)をスキップし処理(2)を行う
3. 3行目の注文番号が上と同じなら... 

以降、上の行と異なるまでループ継続(最大50回)

4. n行目の注文番号が上と異なれば処理(1)、処理(2)を行う
5. n+1行目の注文番号が上と同じなら処理(1)をスキップし処理(2)を行う
6. n+2行目の注文番号が上と同じなら... 

再度、上の行と異なるまでループ継続(最大50回)

こういう繰り返し処理を組みたいですが
「上の行と異なるまでループ継続」した上で次にループを始める
「上と異なったのでループを終えたセル」この場合は「n」行目を求める方法が思いつきません。

よろしくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


2行目以降は、

>注文番号が上と異なれば処理(1)、処理(2)を行う

 For i = 2 To Cells(1, 1).End(xlDown).Row
    If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
        処理1
    End If
    処理2
 Next

(マナ) 2016/06/20(月) 23:43


上手く処理が出来たようです。

ありがとう御座います!

(Azuma) 2016/06/23(木) 08:58


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.