[[20150701172344]]　『loopで条件設定がわからない』（トア）　ページの最後に飛ぶ

『loopで条件設定がわからない』（トア）

お世話になっております。

酷く初歩的な質問で申し訳ないのです。
VBAを勉強中で、do ~loopを使用しようと思ったのですが、条件判定の抜け方がよくわかりませんでした。

A列にデータがあり、
いくつかのグループ化できる値で、それを上から見ていって、
値が変わる場所で抜けたいのですが、変わった後の処理で終わってしまいます。

A列　AAAABBBBCCCCCCDDDDEEEE（データはA1からA2、A3と列方向のデータ）

これをAAAAのA4セルで終わりたいのですが、A5セルのBを一つ処理してしまいます。

実際に行いたいのは、AAAA、BBBB、CCCCCC、DDDD、EEEEと
それぞれのグループでシートを作り分けていきたいのですが、
それ以前のループの処理でわからなくなってしまいました。

テスト用にA列をB列に貼り付けするように書いてみると
Sub test()

Dim hantei As String
Dim i As Long

 hantei = Cells(1, 1)
 i = 1

  Do Until Cells(1, 1) <> hantei

     hantei = Cells(i, 1).Value
     Cells(i, 2).Value = hantei
      i = i + 1

  Loop
End Sub

これをすると、Bの始まりまでコピーされてしまいます。
untilを後ろにしたり、条件を=、whileに変えても同じ結果でした。

理解不足なだけなんですが、どうすれば希望通りになりますでしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

    Do Until Cells(1, 1) <> hantei
        Cells(i, 2).Value = hantei
        i = i + 1
        hantei = Cells(i, 1).Value
    Loop
（???） 2015/07/01(水) 18:02

???様

お世話になっております。

一行、位置が違うだけだったなんて・・・

お恥ずかしい限りです。

ありがとうございました。

精進します。
（トア） 2015/07/03(金) 12:58

コメント返信：

[ 一覧(最新更新順) ]

[[20150701172344]] 『loopで条件設定がわからない』（トア） ページの最後に飛ぶ

[[20150701172344]]　『loopで条件設定がわからない』（トア）　ページの最後に飛ぶ