Excelにてデータ行抽出

質問

Ｅｘｃｅｌで検索をかけたいのですが、

　　　　○○社　　■■社　　△▲社
機材用　Ａ－１　　Ｂ－１　　Ｃ－１
部品用　Ａ－２　　Ｂ－２　　Ｃ－２
その他　Ａ－３　　Ｂ－３　　Ｃ－３

上記のような表で『Ａ－１』を検索したときに、

　　　　○○社　　■■社　　△▲社
機材用　Ａ－１　　Ｂ－１　　Ｃ－１

のように同じ行の他社の商品まで表示できるようにしたいのです。

理想としては
http://homepage3.nifty.com/bear/sample/sample2.htm
こちらのサイトの『データ行抽出』のサンプルと同じようにしたいのですが、どのような操作をすればこのようになるのでしょうか。
面倒な質問ですが、どなたか回答をお願いいたします。

回答No.3

siroakaki

すでに解決されたようでなによりです^^
少し違うやり方ですが、関数式を使ってもできるのでは？ということで。
A1セルに調べたいコードを入力し、
B1セル　=VLOOKUP($A$1,$A$4:$C$8,2,0)　の式を入力。
C1セル　=VLOOKUP($A$1,$A$4:$C$8,3,0)　　　〃
※参照範囲をA4からC8としていますが、適当に変更してください。

回答No.2

Masa2072

サンプルの抽出にはオートフィルタを使用しているようです。
とりあえずマクロの自動記録を使って、オートフィルタによる集出、オート
フィルタの解除をマクロかし、コードを調べてみてください。

VBAがおわかりならさほど難しくないコードですし、初めての方でもちょうど良い練習問題だと思いますよ。

別シートに保存の方は、抽出結果をコピーし別シートに貼り付け、と言う流れで実現できます。

お礼

私はVBAについては無知に近いのですが、なんとか勉強し解決することができました。
これからマクロについてもっと勉強していきたいと思います。
回答ありがとうございました。

回答No.1

Bonjin

オートフィルタではダメなんですか？

お礼

本当の表は上記のようなものではなく、もっと数が多いのでオートフィルタでは検索しにくいと上司に言われたもので(^^;)
回答ありがとうございました。