マーク入力セルがある行は非表示

質問

Excelシート１～１０行のうち1.3.7.9行のD列にIF関数により"●"が入力されています。
"●"の1.3.7.9行をVBAコード入力で非表示にならないでしょうか。解る方、宜しくお願いたします。

回答No.1

tom04 · ベストアンサー

こんばんは！
手っ取り早いのはオートフィルタを使用する方法ですが、
今回の質問の場合はデータ数が少ないので、For～Nextでやってみました。

Sub 非表示()
Dim i As Long
For i = 1 To 10
If Cells(i, "D") = "●" Then
Rows(i).Hidden = True
End If
Next i
End Sub

※　再表示も必要だと思います。手作業でやっても簡単にできますが、
この際ですので再表示のコードもついでに・・・

Sub 再表示()
ActiveSheet.Rows.Hidden = False
End Sub

こんなんではどうでしょうか？m（_ _）m

お礼

有難うございます。ちょっと応用して実用に生かしました大変助かりました。