質問: "*" & textbox2.value & "*" rg.advancedfilter action:=xlfiltercopy, criteriarange:=.range("b1:c2"), _ copytorange:=.range("a3"), unique:=false .range("1:2").delete end with end sub 何をどうすれば、正しく抽出できるのでしょうか? お教えいただけると嬉しいです。 よろしくお願いいたします。
回答: 「正常に条件を入れる分には問題なく動く」とのことですが、本当ですか? advancedfilter の criteriarange が、b1:c2 となっていますが、前段のコードを見る限り a1:c2 が正しいような気がします。ちょっとやってみて下さい。 間違っていたらゴメンナサイ。