色フィルターをかけた状態で、数値を条件抽出はできないのでしょうか？

エクセルのフィルター機能について、質問させてください。

シートの各セルに数値を入力した表があります。
一部のセルが赤色に塗り潰しされています。

例えば、ある列（例：A列）のセルに入力された数値が３以上かつ、そのセルが赤色に塗り潰しされたセルの行だけを抽出したいのですが、

色フィルターで赤色に塗り潰しされたセルの行だけは条件抽出できますが、
かつ、各セルに入力された数値データ（３以上）を同時に条件抽出ができません。

色フィルターをかけた状態で、さらにそのセルのデータを（数字データ）を条件抽出って、できないのでしょうか？

エクセルのバージョンは２０１６です。

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/08/31 20:45

こんばんは！

確かに色フィルタと数値フィルタの併用はできないようですね。
苦肉の策ですが、最終列の右となりの列にオートフィルタ用の列を設け、
VBAで条件に一致する行にフラグを立て、その列をキーにフィルタをかける方法はどうでしょうか？

Sub Sample1()
Dim i As Long, lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A").DisplayFormat.Interior.ColorIndex = 3 And Cells(i, "A") >= 3 Then
Cells(i, lastCol) = 1
End If
Next i
Columns(lastCol).AutoFilter field:=1, Criteria1:=1
End Sub

以上のマクロを実行するとA列の塗りつぶしが「赤」で「3以上」のセルだけが表示されます。m(_ _)m

この回答へのお礼

有難う御座いました。

お礼日時：2017/09/01 11:54

No.2 回答者： mike_g 回答日時： 2017/09/01 09:43

「フィルター機能」は、２種類ありますよね。

貴方が仰っているのは[オートフィルタ]ですね。
赤が貴方の気分次第で着色されたものでなく、Excel にも理解できる条件に適う(所謂[条件付き書式]用に数式化出来る)のであれば、[フィルタオプションの設定]でお茶の子サイサイです。