Offsetで可視セルだけを移動したい。

質問

Offsetで可視セルだけを移動したい。
エクセル2003のマクロで、ボタンクリックで（Offsetにより）セルが一つ移動させるのですが、オートフィルターで抽出されたセル（可視セル）だけを移動するようにしたい。

抽出された値が「a」とすれば次の形で「a」だけを移動します。
（この形では、セルの表示、非表示には関係ありません）
Private Sub ボタン１_Click()
Dim i As Integer
i = 1
Do
Selection.Offset(1, 0).Select
i = i + 1
Loop Until ActiveCell.Value = "a"
End Sub

こうではなくて、セルが非表示なら飛ばすようにしたい。
おかしな質問の仕方で申し訳ありません。
質問の趣旨をおわかりいただけるでしょうか？

回答No.1

xls88

HiddenがFalseを判定すればどうでしょうか。

Sub test可視セル選択()
　　Dim i As Long
　　i = 1
　　Do Until ActiveCell.Offset(i, 0).EntireRow.Hidden = False
　　　　i = i + 1
　　Loop
　　ActiveCell.Offset(i, 0).Select
End Sub

お礼

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