エクセル マクロで奇数行の非表示

エクセルでマクロを用いて行の非表示をしたいのですが、
13　15　17　19　・・・・・43　45　47　の行を非表示にしたくマクロで記録しましたが、
マクロを実行すると13～47全ての行が非表示になってしまいます。
何かいい方法はないでしょうか。

よろしくお願いします。

No.1 ベストアンサー 回答者： syoyaku072 回答日時： 2011/11/06 14:22

Sub macro()

For i = 13 To 47 Step 2
Cells(i, 1).EntireRow.Hidden = True
Next

End Sub

この回答へのお礼

ありがとうございました。
勉強になりました。

お礼日時：2011/11/06 16:25

No.2 回答者： imogasi 回答日時： 2011/11/06 15:16

Sub test01()

For i = 13 To 47
If i Mod 2 <> 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub

この回答へのお礼

ありがとうございました。
勉強になりました。

お礼日時：2011/11/06 16:25