検行の非表示をマクロで。

質問

初めまして、よろしくお願いします。
　Ａ１０からＡ３０までに入力されている値（未入力部分あり）と同じ値が入力されている、Ａ１００からＡ４００までの全行（ＡからＩＶまで）が表示され、Ａ１０からＡ３０までの値が入力されていないＡ１００からＡ４００までの行は非表示にされるマクロを教えて頂きたく、お願いします。

　例）

Ａ１０に３を入力していて、マクロを実行すれば、
　　　　　　　　　　　　　　　　　Ａ　　　　Ｂ　　　　Ｃ　　・・・・・・
未表示行ー＞　１００　　　　　２
表示行　ー＞　 １０１　　　　　３
未表示行ー＞　１０２　　　　　４
　　　　　　　　　　・
　　　　　　　　　　・

回答No.2

tom04 · ベストアンサー

こんばんは！

こういうことですかね？

Sub test()
Dim i As Long
For i = 100 To 400
If WorksheetFunction.CountIf(Range(Cells(10, 1), Cells(30, 1)), Cells(i, 1)) = 0 Then
Rows(i).Hidden = True
End If
Next i
End Sub

外していたらごめんなさいね。m(__)m

お礼

回答ありがとうございます。うまくできました。大変助かりました。回答を頂、大変恐縮ですが、続けて二度目を実行するときに、再びすべてを表示させる必要があることに気づき、非表示を実行する前にすべてを再表示させるマクロを頭に追加していただければ完璧でした。

回答No.1

nagomitei

質問の文章がよくわかりませんが、
一行づつ該当するかどうか判定して非表示にしたいなら
Rows("100:100").EntireRow.Hidden = True (100は行番号）とすれば非表示になります。

お礼

回答ありがとうございます。
　こちらの質問に問題があったようで、大変失礼しました。回答を参考にさせていただきたいと思います。