セル位置について

質問

最近行の位置についてっていうので質問が載ってましたが、
気になったので、私も質問をしたいことがあります。
検索するとよく見るソースですが、
Range("A65536").End(xlUp).Offset(1, 0).Activate
上記をやることにより、データが入っていない行をアクティブにしますが、行挿入などでデータが増えていく中で、
上記をつかって、ある分岐の値を見て、そのセルをアクティブにする
簡単な方法はないでしょうか。

（例）
001 atai1 2
002 atai2 1
003 atai3 1
.
.
,

上記のようにどんどんデータが増えていく中でC列の値を見て
1だった場合はスキップして1以外の値がみつかったら
そのセルをアクティブにするっていう処理をやりたいのですが．．

回答No.1

merlionXX · ベストアンサー

選択するのはC列のセルなんですね？
では

Sub test01()
Cells(Rows.Count, "C").End(xlUp).Select
Do While Selection.Value = 1
Selection.Offset(-1, 0).Select
Loop
End Sub

> Range("A65536").End(xlUp)

エクセル2007から行数が飛躍的に増えましたのでCells(Rows.Count, "C").End(xlUp)にしてみました。これならどのバージョンでも対応できますので。

回答No.2

fujillin

C列の入力最下行から見ていって、1以外の値（未入力も含む）のセルを選択します。
ただし、1行目まで1が入っている場合はC1が選択されます。
（C0を選択するとエラーになるので回避の意味）
ご希望と違う部分については、適当にアレンジしてください。

Set r = Range("C65536").End(xlUp)
While (r.Value = 1) And (r.Row > 1)
　Set r = r.Offset(-1, 0)
Wend
r.Select