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

質問

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

よろしくお願いします。

回答No.1

noname#146604 · ベストアンサー

Sub macro()

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

End Sub

お礼

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

回答No.2

imogasi

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

お礼

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