エクセルで複数のシートからのデータ抽出

質問

いつも大変お世話になっております。

Sheet１、Sheet２に名簿１、名簿２が作成してあり、同一表中に同じ氏名や姓が同じで名前違いがあり、それぞれに同じまたは別のTELや住所等の付帯情報が入っています。

この2つのっｼｰﾄから、検索シートのＢ２セルに姓（例えば山本）だけを入れた場合に、山本を含む氏名の人の情報をリストにしたいのです。

複数シートのCOUNTIFとVLOOKUPで出来そうな気がしたのですが思うようにいかず。
どなたかHELPお願いします。

実際には製品名（シリーズの場合枝番が付いたりつかなかったり）で保管場所、容器サイズ、その他の情報をリストにするのが目的です。
つまり同じ製品名「A１２３」でもサイズ違いがあったり、保管場所が違ったり・・・をリストにしたいのです。

回答No.7

HohoPapa · ベストアンサー

列名、シート名を

＜ Const SelSQL1 = "SELECT [ﾗﾍﾞﾙ名] as [ﾗﾍﾞﾙ名] , [棚番号] as [棚番号] , [容量] as [容量] , [単位] as [単位] , [保有数量(L)] as [保有数量(L)]"＞

や

＜ SQL = SQL & "FROM [分①Tﾘｽﾄ$A5:Z50000]" & vbCrLf
＜ SQL = SQL & "FROM [分②Tﾘｽﾄ$A5:Z50000]" & vbCrLf

や

＜ SelKey = ThisWorkbook.Sheets("保管場所検索").Range("B2").Value＞

を元に合わせ、テストしてみましたが、
エラーを再現できません。

列の位置や並びは問いませんが
タイトル行の開始位置は添付画像のようになっていることが前提です。
異なるようであれば、合わせてみてください。

また、Officeのバージョンを教えてください。
加えて、ざっくりでいいのでデータの行数を教えてください。

お礼

週末から昨日迄休んでいて、本日朝一で確認したら、一杯のご回答を頂いておりビックリしています。

本件は正直1枚のシートに入力してしまえばフィルターで何とか目的は達成できる課題なのでこれほど多くのお手数をお掛けして、おまけに対応遅れで恐縮しています。

部署ごとにシートを分けた方が使い勝手が良いので、検索は何とかなると思い分割してしまったのですが・・・

多くのお手数をお掛けしてまでシートを分割するだけの価値があるのかどうか再度考えてみますので一旦締め切らせて頂きます。

多くのお知恵を頂き申し訳ありません。

補足

実際の内容で検証までしていただき恐縮至極です。
まさにこれがやりたいことです。（列違いの許容は毎度の忖度感心です）

当方も先ほどHohoPapaさんと同じ5列でリストシートは項目列４行、4行、検索シートのみ5行目で試してみたのですが何故か動かず。

もう一度最初からコードを確認してトライしてみますが一旦はここで締め切らせてもらいます。

本件元々1枚のシートで作業していたのを、検索は何とかなると思って気軽に2枚に分割したのが迂闊でした。（反省）

一旦元のシートを復活させますが、見本があるのでこれから粘って何とかしてみます。
知恵無き者汗を出せ！

ちなみに、
１．Officeのバージョンは2019で、
２．シートの行数は、現在200行と500行程度で今後はあまり増えないと思います。
古い製品は廃棄されて更新されていくので、今後増えても両方で1000行程度。

よってフィルターで何とかなる作業です。
実際には部署ごとに入力項目が違っているので、お互いに無駄な行が多く横に広がって少し面倒なのです・・・

本当に毎度お手数をお掛けしてばかりですが、年寄り（68歳）の我がままとご容赦願います。

回答No.1

f272

名簿１と名簿２を検索シートにコピーして連結し，氏名でソートすればやりたいことは可能だと思う。

補足

早々のご回答ありがとうございます。

現状はご回答の方法で対応しているのですが、2枚のシートは2つの部署の複数の担当者で日々更新され、必要時に毎回かなりの行数（現在少ないシートで200、多い方で500行程度で1年間で少しづつ増加していきます）をコピペしているので何とかマクロボタンのワンクリックで3枚目のシートに抽出できないかと思いました。