一括で行を非表示にしたい

Question

A列に2021/1/1のような日付データがありD1に表示されている月と違う月の行は非表示にしています。
Rows(i).Hidden = True　の部分を繰り返すのではなく最後に一括で非表示にしたいのですが
つまづいてしまいましたので、どうかご教授ください。

Sub test()
Dim i As Long

For i = 6 To Cells(Rows.Count, 6).End(xlUp).Row

If Month(Cells(i, 1)) = Range("D1").Value Then

Else

Rows(i).Hidden = True

End If

Next i

End Sub

Answer 1

非表示にしたい行をunionメソッドで結合し、最後にまとめて非表示を実行する方法があります。

VBA・Excel 時短！コピペで使える複数行を高速に削除するコード

Comments

[yosida11]

回答ありがとうございます。
If Not DeleteRows Is Nothing Then DeleteRows.Delete
最後のDeleteをHidden=trueに変えたのですがうまくいきません。

[xail2222]

リンク先のコードで
DeleteRows.Delete
の箇所を
DeleteRows.EntireRow.Hidden = True
でhiddenにできましたよ。

DeleteRows.Hidden = True
ではerrorでしたね

[TanakaHiroaki]

.Delete を以下のようにするとどうなるでしょうか。
.Hidden = True

[yosida11]

ありがとうございました。
EntireRowを書けば良かったのですね。
助かりました。

[yosida11]

Tanaka様
rangeクラスのhiddenプロパティを設定できませんと出ていました。
xailさんのコードで思うような動きになりました。
Tanaka様が張ってくれたサイトはとても役に立ちました。
ありがとうございます。

[TanakaHiroaki]

EntireRow
私も勉強になりました。