【Excel】複数シートのオートフィルターで一項目を選択する方法について

質問

いつも利用させて頂いております。
初心者かつ不勉強で誠に恐縮ですが、表記の件に就き、
何卒ご教授の程、宜しくお願いします。

・全社で全課分の営業成績表が100シートあり、A6、A7にオートフィルタがあります。（以下参照）
・100シートのA6のフィルタから「*」のみを選択し、指定の項目のみ表示させたいと思います。

＿＿Ａ＿＿Ｂ＿＿Ｃ＿＿Ｄ
1　
2　　　　余白
:
6＿▽＿▽＿項目＿みかん＿
7＿＊＿＃＿売上＿600＿
8＿＄＿＃＿利益＿200＿
9＿＊＿＃＿経費＿120＿
：
：
↓

全シート選択後、作業グループで作業できなかった為、
以前こちらで教えていただいたマクロを参考に、

Sub Macro1()
For Each sheet_name In Worksheets
Selection.AutoFilter Field:=1, Criteria1:="~*"
ActiveSheet.Next.Select
Next
End Sub

としてみましたが、100シートの右に、空白シートがあるのでエラーになってしまいます。
色々なサイトで調べましたが、知識が乏しい為理解できませんでした。

こちらがちゃんと作動するようなものをご教示ください。
宜しくお願いします。

回答No.2

merlionXX · ベストアンサー

要はオートフィルターが設定されている場合のみ選択すればいいんですよね？
なら、こんな感じではどうでしょうか？

Sub Macro1()
For Each sheet_name In Worksheets
sheet_name.Activate
If FilterMode Then
Selection.AutoFilter Field:=1, Criteria1:="~*"
End If
Next
End Sub

お礼

ご回答ありがとうございます。
おかげさまで色々なブックをフィルターかけることができました。
活用させて頂きます。

回答No.1

FEX2053

IF文で空白シート名を飛ばせば良いだけの話では？

Sub Macro1()
For Each sheet_name In Worksheets
IF ActiveSheet.Name<>"空白のシート名" then
Selection.AutoFilter Field:=1, Criteria1:="~*"
END IF
ActiveSheet.Next.Select
Next
End Sub

空白のシート名が一定で1枚だけじゃないと使えない話ですが。

補足

ご回答ありがとうございます。
私の説明が不十分ですいません。
実は100シートの郡の左と右に成績表とは関係ない、
数字の入ったシートがあります。
ご回答ありがとうございました。