エクセルで特定の列のセルに特定の文字が入っている行を非表示にする方法を教えてください。

例えば、B列2行目～100行目の○が入っている行だけをボタンひとつで一括非表示にしたいです。
画像で言うと、4,7,12,13行が非表示になってほしいです。
また○の入るセルは今後も増える予定です。

上記内容で伝わるでしょうか…
VBAは初心者で自分でも調べてみましたが、正解にたどり着けませんでした…
エクセルは2010です。
ご助力頂ければ幸いです。宜しくお願い致します。

No.4 ベストアンサー 回答者： tom04 回答日時： 2018/05/07 20:23

こんばんは！

単純にオートフィルタではダメなのでしょうか？

オートフィルタを使わない方法にしてみました。
VBAになりますが、一例です。

Sub Sample1()
Dim FoundCell As Range, FirstCell As Range
Dim myRng As Range
ActiveSheet.Rows.Hidden = False
Set FoundCell = Range("B:B").Find(what:="○", LookIn:=xlValues, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
Set myRng = FoundCell
Set FirstCell = FoundCell
Do
Set FoundCell = Range("B:B").FindNext(after:=FoundCell)
If FoundCell.Address = FirstCell.Address Then Exit Do
Set myRng = Union(myRng, FoundCell)
Loop
myRng.EntireRow.Hidden = True
Else
MsgBox "該当行なし"
End If
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ご回答ありがとうございます。
質問にオートフィルタを使わずVBAでやりたいと書くべきでしたね…

ご回答いただいたもので完璧にできました！とてもとても助かりました！
原理は全然理解できませんが、勉強して使わせて頂きます。

お礼日時：2018/05/08 13:36

No.3 回答者： mike_g 回答日時： 2018/05/07 16:26

１行目で[オートフィルタ]を設定して、セル B1 で

(空白セル)
のみを選択するのはダメよ、ダメ、ダメですか？

この回答へのお礼

ご回答ありがとうございます。
それをボタンひとつでできるようにしたいので(オートフィルタを使うのは)ダメです。

お礼日時：2018/05/08 13:27

No.2 回答者： mike_g 回答日時： 2018/05/07 16:23

》 画像で言うと、4,7,12,13行が非表示になってほしい

画像、間違っチョル！
画像が正しいなら、非表示になるのは 4,7,11,12行でしょ！

この回答へのお礼

ご回答ありがとうございます。
画像も文章も間違ってませんよ。

お礼日時：2018/05/08 13:24

No.1 回答者： 銀鱗 回答日時： 2018/05/07 16:19

Excelの標準機能を使って非表示にすることはできますか？

「”〇”が記入されているセルだけを選択してその行を非表示にする」手順です。
その手順を「記録マクロ」にしてしまえば良いですよ。
あとはボタンを設置してそのボタンにそのマクロを割り付ければいいのです。

・・・
ということで、この中で何が分からないのでしょうか。

この回答へのお礼

ご回答ありがとうございます。
○の入るセルは今後も増える予定と書いた通り
毎度毎度記録マクロをしてしまう余裕があるのでしたらここで聞くことはありません。
増えていってもボタンを押せば非表示になるようにしたかったのです。
ご理解いただけましたでしょうか。

お礼日時：2018/05/08 13:24