２つのBook間で共通のキーワードを使いデータを転記するには？

質問

下記のようなデータがある場合、Book1/sheet1のD列へ
Book2/sheet1 C列のデータを転記したい。キーワードは
各Book B列のロットNO.です。どのようなマクロを
組めばいいのでしょうか？

Book1/sheet1
　　　A　　　　B　　　　C　　　　D
1　　品名　ロットNO.　数量
2　　Ａ　　　A123　　　25　　　50(転記)
3　　Ａ　　　A234　　　20　　　75(転記)
4　　Ａ　　　A345　　　22　　　60(転記)
・

Book2/sheet1
　　　A　　　　B　　　　C　　　　D
1　　品名　ロットNO.　時間(HR)
2　　Ａ　　　A123　　　　50
3　　Ａ　　　A234　　　　75
4　　Ａ　　　A345　　　　60
・

回答No.2

zenjee

>ファイルが見つかりませんと言うエラーメッセージが出てしまいます。
一つのファイル（ブック）だけを開くとそのようなメッセージが出ます。
そのときはもう一方のリンクファイルを開けばいいのです。

＞毎回式を入力する手間とデータ件数が多いためマクロにしようと思います。
毎回式を入力する必要はなく、ブック全体又はシート全体をコピーすれば式がそのまま反映されるので、手間は殆どかからないと思いますが……。

ま、好みの問題でしょうから、これ以上は差し控えさせていただきます。

お礼

返信が遅れ申し訳ございません。どうもありが
とうございました。質問の書き方が悪いのか、
私が作成した式に間違いがあるのかうまくいきま
せんでした。もう少し自分で考えてみます。

補足

ファイルは２つとも開いているのですがエラーメッ
セージが出てしまいます。

回答No.1

zenjee

双方のブックのB列の並びは同一なのでしょうか。
もし同一ならマクロを組むまでもなく、該当セルをリンクさせればよいと思いますが……

両ブックを同時に開いて、
Book1/sheet1のD2を選択し「=」を入力、そのままBook2/sheet1のC2を選択し，ＯＫをクリック、Book1/sheet1のD2が
=[Book2]Sheet1!$C$2
となっていることを確認して、下方にプルダウンコピーするだけでいいと思いますが、これで何か不都合なことがあるのでしょうか。

もし両ブックＢ列の並びが不一致の場合でもBook1/sheet1のD2に
=VLOOKUP(B2,[Book2]Sheet1!$B:$C,2,FALSE)
となるように入力すればいいと思います。

補足

zenjeeさんご回答ありがとうございます。
Ｂ列の並びは順不同で、ないロットも存在します。
その時はブランクでいいです。式を入れてみましたが、
ファイルが見つかりませんと言うエラーメッセージが
出てしまいます。毎回式を入力する手間とデータ件数
が多いためマクロにしようと思います。