【エクセル】シート1の複数セルをシート2に反映

質問

エクセルについて、教えて頂きたいです。
まず添付のエクセル画像を見て頂けますでしょうか。

＜質問内容＞
まず添付画像は左側の「シート1」と、右側の「シート2」の2つから成っています。

シート1のA2セルは、ご覧の通り入力規則による「リスト」になっておりまして、
「A」「B」「C」の3つからプルダウン選択できるようになっています。

この状態でやりたいことがあるのですが、
例えばここで、
シート1のプルダウンで「B」を選択したとき、
シート2の「B」の行「B3、C3、D3セル」を自動的に参照して、
シート1の「B2、C2、D2セル」に「200　600　1,100」の数字が反映される方法を、
教えて頂けませんでしょうか。
ぜひとも宜しくお願いします（m_ _m）
　※ちなみに、シート名を「A」「B」「C」と記載してINDIRECT関数で反映させる方法は
　　存じておりますが、シートを1つに収めたいと思っております。

回答No.1

keithin · ベストアンサー

シート１のB2には
=IF($A2="","",VLOOKUP($A2,Sheet2!$A:$D,COLUMN(),FALSE))
という式を入れて，D2までコピーして入れておきます。

＃実際にはわざわざCOLUMN関数など使わずに，
B2,C2,D2に
=IF($A2="","",VLOOKUP($A2,Sheet2!$A:$D,2,FALSE))
=IF($A2="","",VLOOKUP($A2,Sheet2!$A:$D,3,FALSE))
=IF($A2="","",VLOOKUP($A2,Sheet2!$A:$D,4,FALSE))
とそれぞれ式を入れておきます。

「コピーすると出来ます」と回答すると嬉しいご質問者さんが多いので。

お礼

keithin様
そのままコピーさせて頂き、使うことができました。
魔法のようで感動しました。

迅速にご対応頂き、ありがとうございました！

回答No.3

kokorone

Dim sel As String
Dim sel_idx As Integer
Dim src_range As String

Sheets("Sheet1").Select
sel = Range("A1").Value

Sheets("Sheet2").Select
sel_idx = Range("A:A").Find(What:=sel).Row
src_range = "B" & sel_idx & ":D" & sel_idx
Range(src_range).Select
Selection.Copy
Sheets("Sheet1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
これでいかがでしょうか？

お礼

kokorone様

迅速に教えて頂き、感謝しかありません。
ほんとうにありがとうございます！

ただ、私のエクセルスキルはまったく低くて、
教えて頂いた回答を役立てることができませんでした（泣）すみません！

これはマクロとかVBAというジャンルでしょうか？
メモ帳に保存して勉強したいと思います。

秀でたスキルを惜しみなく教えて頂き、ありがとうございました（m_ _m）

回答No.2

某HN クロメート(Chromate)（@CoalTar）

Sheet1!B2セルに
=IF($A2="","",INDEX(Sheet2!B:B,MATCH($A2,Sheet2!$A:$A,0)))
右へオートフィル

ということでしょうか？

お礼

CoalTar様

No,1で回答頂いた方と同様に、
コピーすることで解決できました。

心から感謝致します。
エクセルの便利さ、凄さに改めて感動しましたし、
みなさんの対応の早さにおどろきです（m_ _m）

あらためましてありがとうございました。
勉強になりました。