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 回答日時： 2008/08/16 23:56

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

この回答へのお礼

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

お礼日時：2008/08/17 00:58