excel vba データリストからの抽出

質問

excel vbaで、以下のような事をしたいと思っています。

【sheet1】データ
　　A　 B C D E　
１　あ　い　う　え　お
２　か　き　く　け　こ
３　あ　き　く　せ　そ
４　さ　 し　す せ　そ
５　あ　し　す　け　こ

【sheet2】検索　A1を検索条件セルにする　※検索キーはsheet1のA列に登場するテキストのみです。
　　A　 B　 C　 D　 E
１　あ　い　う　え　お
２　　　き　く　せ　そ
３　　 　し　す　け　こ
４
５

※A２、A３に"あ"と表示されてしまってもよいのですが、
　出来れば表示なしが望ましいです。

sheet2のA１は、sheet3に、sheet1のA列に登場したテキストをデータとしてリストしておき、
「データの入力規則」でリストから選択できるようにしようと考えています。

説明が下手でうまく伝わらないかも知れませんが、うまいやり方があれば
どうかご教示下さい。

宜しくお願い致します。

回答No.1

keithin

シート２のシート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　if target.address <> "$A$1" then exit sub
　if target = "" then exit sub

　application.enableevents = false
　range("B:E").clearcontents
　with worksheets("Sheet1")
　　.autofiltermode = false
　　.range("1:1").insert
　　.range("A:A").autofilter field:=1, criteria1:=target.value
　　.range("B2:E65536").copy destination:=range("B1")
　　.autofiltermode = false
　　.range("1:1").delete shift:=xlshiftup
　end with
　application.enableevents = true
end sub

ファイルメニューから終了してエクセルに戻る
Ａ１セルに取り付けた入力規則のリストから選択すると、勝手に該当のデータをコピーしてくる。

お礼

随分古い質問ですが、ご回答のコードで理想通りに動きました！
ありがとうございました！