質問: excelマクロ:オートフィルタ3つ以上の条件 添付の画像を使って質問させて頂きます。 バージョンは2010です。 お客様名 a,b,c,d,e 以外のお客様名を抽出するようにマクロを組みたいのですが activesheet.range("$a$1:$d$15").autofilter field:=2, criteria1:= _ "<"&">&"a", operator:=xlor, criteria2:="<"&">&"b"" の様に考えましたが一つの列に3つ以上の条件では対応できないことが分かりました。 添付の画像は実際使用している表を簡素化しているため お客様名が少ないですが、実際は多様なお客様名があります。 その中で特定した5社以外のお客様の情報を抽出したいです。 宜しくお願い致します。
回答: こんばんは! a・b・c・d・e 「に等しい」でオートフィルタをかけるのは簡単ですが、 今回はそれ以外というコトですので・・・ 安直な方法ですが作業列を1列使ってその列だけでオートフィルタをかけてみました。 sub sample1() dim lastrow as long lastrow = cells(rows.count, "a").end(xlup).row if lastrow > 1 then range("e:e").insert range(cells(2, "e"), cells(lastrow, "e")).formula = _ "=if(or(b2=""a"",b2=""b"",b2=""c"",b2=""d"",b2=""e""),"""",1)" range("a1").currentregion.autofilter field:=5, criteria1:=1 end if end sub ※ 手を動かしてやることを単純にコードにしただけです。m(_ _)m