Criteriaであいまい検索
列番号:3を指定します
Sub 性別フィルタ_女性() Selection.AutoFilter Field:=3, Criteria1:="=女", Operator:=xlAnd End Sub Sub 性別フィルタ_男性() Selection.AutoFilter Field:=3, Criteria1:="=男", Operator:=xlAnd End Sub Sub 全ての性別() Selection.AutoFilter Field:=3 End Sub