excelオートフィルタの検索条件をセルに入力したい

質問

以下のようなexcelのリストがあるとします。

　　　　Ａ　　　　　　　Ｂ　　　　Ｃ～
１　佐藤・鈴木　　Ａタイプ
２　田中・山田　　Ｂタイプ
３　　佐藤　　　　　Ａタイプ
４　　田中　　　　　Ｃタイプ
５　山田・鈴木　　Ｃタイプ

Ａ列の"田"が含まれる行を抽出したい場合
オートフィルタをかけ、オプションの抽出条件の指定で
"田"を含む、で検索すれば良い、というのはわかります。
ですが、この動作をもうちょっと簡単にできないかと思っています。
具体的には、以下のようにセルに入力して検索・抽出するとはできないでしょうか。

　　　　Ａ　　　　　　　Ｂ　　　　Ｃ～
１　　　田
２
３
４　　　Ａ　　　　　　　Ｂ　　　　Ｃ～
６　田中・山田　　Ｂタイプ
８　　田中　　　　　Ｃタイプ
９　山田・鈴木　　Ｃタイプ
（1、２行目＝検索用　３行目＝空き　４行目以降＝リスト）

過去の質問で、同じようにセルに入力して抽出する方法を
聞いていた方がいらっしゃったので参考にしようと思ったのですが
方法がVBAを使ったもので、VBAの知識がまったく無いために
さっぱり理解することができませんでした。

何か良い方法がありましたら教えていただけないでしょうか。

回答No.2

imogasi · ベストアンサー

関数でもできるのでご参考に。（imogasi方式）
データ例　A1:B6に
Ａ Ｂ
佐藤・鈴木 Ａタイプ
田中・山田 Ｂタイプ
佐藤 Ａタイプ
田中 Ｃタイプ
山田・鈴木 Ｃタイプ
E1に「田」の字を入れておく。
C2に
=IF(ISERROR(FIND($E$1,A2)),"",MAX($C$1:C1)+1)
C3:C6に式を複写する。C2:C6は
空白
1
空白
2
3
E3に
=INDEX($A$1:$B$6,MATCH(ROW()-2,$C$1:$C$6,0),COLUMN()-4)
と入れてF3に複写。
E3:F3を範囲指定し、F3に＋ハンドルを出しF3まで引っ張る。
結果
田中・山田 Ｂタイプ
田中 Ｃタイプ
山田・鈴木 Ｃタイプ
C列、E列、F列は別の列へ変えられる。別シートにも替えられる。
ただし式のセル指定・範囲指定、マイナスする値　を変えなければなりません。

お礼

関数でもできるのですね～
早速試してみたところ、検索ワード入力後即結果表示と、
やりたかった動きが得られました。
表示させるためのスペースが必要なため、別シートに表示させる方法や
Ａ列だけでなくＢ列、Ｃ列でも検索できる方法を探さねばなりませんが、
その辺は自分でもできそうです。
とても助かりました。
どうもありがとうございました。

回答No.1

papayuka

タイトル行を加えて、ワイルドカードをつかって

１　氏名
２　*田*
３
４　氏名　
５　佐藤・鈴木
６　佐藤
７　田中
８　山田・鈴木

のようにして、セルＡ４以下のリスト内を選択した状態で、

データ－フィルタ－フィルタオプションの設定で
リスト範囲　：A4以下のリスト範囲
検索条件範囲　：$A$1:$A$2

で抽出されます。
データ－フィルタ－全て表示で戻ります。

お礼

フィルタオプションの設定も使ってみたりしたのですが、
選択した範囲が外れてしまって何度も再設定しなければならなかったり
前後に**を入れねばならなかったりと、
残念ながら手間の面ではオートフィルタとあまり変わりませんでした。
回答どうもありがとうございました。