hidden後一つ下のセルへ移動

質問

初めて質問します。

Windows2000、VB6.0、excel97

VBまたはVBAでのexcel操作で、hiddenした個所を飛ばして下のセルへ移動したいのですが、VBまたはVBAでどうすれば良いでしょうか？誰か教えてください。
お願いします。

例：セルA1～セルA20のうち、セルA4、A5、A10がhiddenされている場合、セルA1から順に表示されているセルだけをactive（選択）にする方法

回答No.1

akey · ベストアンサー

たとえば

Sub test()
Dim c As Variant
For Each c In Range("A1:A20")
If Rows(c.Row).Hidden = False Then
c.Select
MsgBox "セル" & c.Address & "を選択しています"
End If
Next c
End Sub

というようなことでしょうか？
はずしていたらごめんなさい。

お礼

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

また助けてください。

回答No.2

imogasi

Sub test01()
Worksheets("sheet1").Activate
For i = 1 To 7
If Rows(i).Hidden Then
Else
MsgBox i
Cells(i, 1).Select
End If
Next i
End Sub
私の場合は第３行目をHiddenにして実行すると
１，２，４，５，６，７と表示しましたので
納得できた次第です。
Rows(i).Hidden =TRUE Thenでも可。
実質は＃１のご回答と同じですが。

お礼

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

また助けてください！