[[20200610233207]]　『オートフィルターの含む条件での抽出』（かんか）　ページの最後に飛ぶ

『オートフィルターの含む条件での抽出』（かんか）

3つの条件でオートフィルターをかけるマクロなんですが、条件のうちの1つをC3セルの値を含む条件にしたいのですがなかなかうまくいきません。
下記コードのどこがおかしいのでしょうか？

Dim myAry As Variant
myAry = Array("*" & Range("C3").Value & "*", "=", "共通")
Sheets("sheets2").Select

Selection.AutoFilter field:=1, Criteria1:=myAry, Operator:=xlFilterValues

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

うまくいかないの何がうまくいかないなのか記載いただかないと判断が非常に難しいです。

疑わしい箇所と根本的な箇所としては

１．疑わしい箇所
シート名
Sheets("sheets2").Select
"Sheet2"ではなく"Sheets2"ですか？

セレクションの範囲
Selection.AutoFilter
で適切に範囲が取れていますか？

２．根本的な箇所
Excelのオートフィルタは複数（3つ以上？）の条件でフィルタかけするとき、ワイルドカード検索はできない仕様だったと記憶しております。
そのため"*" & Range("C3").Value & "*"を含む場合、配列で指定することは原則としてできません。
（高橋） 2020/06/11(木) 01:15

失礼しました。
sheet1のC3セルの値を含む条件でオートフィルターをかけたいのですが、かかりません。
例えばsheet1C3セルの値が[あああ]だったら、sheet2のC列のセルに[あああ]と[あああ・いいい]でオートフィルターかけたいです。
複数条件の時は無理なんですね。
（かんか） 2020/06/11(木) 07:46

＞myAry = Array("*" & Range("C3").Value & "*", "=", "共通")

"="は、何を意図していますか。

（マナ） 2020/06/11(木) 07:54

オートフィルタでできないければ、フィルタオプションを使うとよいです。

（マナ） 2020/06/11(木) 08:00

"="は、空白を意図しています。
（かんか） 2020/06/11(木) 21:52

では、フィルタオプションを使うとよいです。

（マナ） 2020/06/12(金) 17:48

コメント返信：

[ 一覧(最新更新順) ]

[[20200610233207]] 『オートフィルターの含む条件での抽出』（かんか） ページの最後に飛ぶ

[[20200610233207]]　『オートフィルターの含む条件での抽出』（かんか）　ページの最後に飛ぶ