Excel 2003 関数 教えてください

質問

使用するのはExcel 2003です。
マクロは使用せず関数で実行したいです。
お詳しい方教えてください。

1シート目に元となる表があります。
B列～D列までにあらかじめクライアント情報が入っており、クライアント情報の数の分、行数があります。
A列には、担当者名の入力欄を設け、入力規則のリストで担当者1～5まで選択できるようにしておきます。

　　　A　　　　　　　　　B　　　　　　　　　　　　　　C　　　　　　　　　　　　　D
　　　担当者名　　　　クライアント企業名　　　クライアント部署名　　　備考　　

1　　　　　　　　　　　　○○○　　　　　　　　　　△△△　　　　　　　　　　***　　　

2　　　　　　　　　　　　○○○　　　　　　　　　　◇◇◇　　　　　　　　　　+++　　　

3　　　　　　　　　　　　×××　　　　　　　　　　■■■　　　　　　　　　　---　　　

2シート目以降、各シートは担当者1～5別のシートになっています。

2シート目　担当者1
3シート目　担当者2
4シート目　担当者3
5シート目　担当者4
6シート目　担当者5

こちらのシートには、1シート目と同じ項目がA～D列まで並んでいます。
A列にはあらかじめそのシートの担当者名が入っています。

全シート、1行目が項目、2行目から下がデータ欄です。

1シート目のA列で担当者名を選択すると、選択された担当者シートのクライアント情報欄（B～D列）に、1シート目該当行のクライアント情報が、反映されるようにしたいです。
その際、2行目から空白行を作らずに反映していきたいです。

作業用の列やシートを作成しても構いません。

マクロを使用したくない理由は、この表を配布する先の使用者のExcelが2003と2013で混在しているためです。

どなたかお知恵をお貸しいただけると助かります。
どうぞよろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんにちは！
一例です。
Sheet名を取得しての対応の可能ですが、数式が長くなりますので、
↓の画像のように各SheetのA1セルに担当者名を入力しておくとします。
そうした上で、Sheet見出しの2番目のSheetを選択　→　Shiftキーを押しながら最後のSheet見出しをクリック！
これで2番目のSheet～最終Sheetが「作業グループ化」されましたので
ひとつのSheetに数式を入れるだけで大丈夫です。

画像ではA4セルに
=IF(COUNTIF(Sheet1!$A:$A,$A$1)<ROW(A1),"",INDEX(Sheet1!A$1:A$1000,SMALL(IF(Sheet1!$A$1:$A$1000=$A$1,ROW($A$1:$A$1000)),ROW(A1)))&"")
これは配列数式になりますので、Ctrl+Shift+Enterで確定！
この画面から数式をコピー＆ペーストする場合は
上記数式をドラッグ＆コピー　→　A4セルを選択　→　数式バー内に貼り付け　→　そのまま（編集可能なまま）
Ctrl+Shiftキーを押しながらEnterキーで確定！
数式の前後に{ }マークが入り配列数式になります。
これをフィルハンドルで列・行方向にコピー！
最後のSheet見出し上で右クリック　→　作業グループ化の解除で完了です。

これで画像のような感じになります。m(_ _)m

お礼

ありがとうございます！
できました！
本当にありがとうございました。
助かりました。