複数列に同じ条件で一括でフィルタをかける方法

質問

現在添付ファイルのような表をつかって作業をしています。

列は１か月分続きますが、作業は１週間ごとに区切って行っています。
１週間のうち、１回目の返品をオレンジ色、２回目の返品を青色。
１回しか返品がなかった場合は色づけなしで区別しています。
はじめは色づけする作業から始まります。

1日ずつ空白セルのみ・空白セル以外でフィルタをかけては解除しての繰り返しで
よくわからなくなることもしばしばあります（笑）

この作業の中で複数の列を空白なしでフィルタをかけることがあるのですが
日数が増えてくると1日ずつフィルタをかけるのが大変になってくるので
一回でできる方法はありませんでしょうか？
（【例】1～3列目を一度に空白セルのみ表示というフィルタをかける）
複数列に同じ条件で一括でフィルタをかける方法があれば知りたいです。

よろしくお願いいたします。

回答No.2

kon555 · ベストアンサー

マクロで対応するしかないですね
A1が表に含まれていると仮定して組んでみました。オートフィルタをオンにしてから使ってください。

「空白なし」と「空白のみ」は選択した範囲のオートフィルタを設定します。
「表示」は全セルを表示させます。フィルタ以外で非表示化されている行・列も表示してしまうので注意して下さい。

　なお表がA1以外から始まっている場合、Range("A1").AutoFilter～　の"A1"を表内のセルの位置に書き換えてください。
　添付の図の範囲であれば　Range("H1").AutoFilter　となります

Sub 空白なし()
Dim i As Long
For i = Selection(1).Column To Selection(Selection.Count).Column
　Range("A1").AutoFilter Field:=i, Criteria1:="<>"
Next
End Sub

Sub 空白のみ()
Dim i As Long
For i = Selection(1).Column To Selection(Selection.Count).Column
　Range("A1").AutoFilter Field:=i, Criteria1:="="
Next
End Sub

Sub 表示()
If ActiveSheet.FilterMode = True Then
　ActiveSheet.ShowAllData
End If
End Sub

お礼

先程試したみたところ、無事処理することができました！
大変助かりました。
ありがとうございました。

補足

ご回答頂きありがとうございます。

今通勤途中で実際試していないのでなんとも言えませんが
マクロ内にある
Range("A1").AutoFilter Field:=i,
というのは、A列のみと言う意味でしょうか？
仮にH列～J列を空白のみに…となったとしても
H列～J列を選択してこのマクロを実行すれば
いいんでしょうか？

マクロについてはほとんど素人なので
見当違いな質問であれば申し訳ありません。
よろしくお願いします。

回答No.1

aokii

複数列に同じ条件で一括でフィルタをかける方法はありません。

お礼

ご回答頂きありがとうございます。

やはりマクロを組むしか方法はないようですね。。
ありがとうございました。