エクセルで別ブックを検索するマクロ、VBA

質問

エクセルで以下の処理を行えるマクロを作成したいです。
当方、マクロについてほとんど知識がありません。
恐縮ですが、教えていただけると嬉しいです。

・主にしたいこと

　[検索]ブックで一致するコードを探して、
　[結果]ブックの対応するコードの行にそれぞれの項目を返したい。

●ブック1　[検索]

　シートが12個あります（それぞれ、1、2、3…12というシート名=1～12月分）

　↓各シートの内容

　　　A　　　　B　　　　C　　　　D
1　　氏名　　数値　　コード　　内容

2　　abc　　　111　　SS1234　あいうえお

3　　bcd　　　123　　SS3456　かきくけこ

・
・
・

といった感じです。
12個のシートの中身はそれぞれ似たようなものですが、
「コード」や「内容」などは少しずつ違います。

●ブック2　[結果]

　↓シートの内容

　　　A　　　　B　　　　C　　　　D
1　　氏名　　コード　　内容　　数値

2　　　　　　SS3456

3　　　　　　SS1234

・
・
・

といった感じです。
（注）検索用ブックとは列の並びが異なっています。

ここでやりたいことの詳細ですが、

・[結果]ブックの「コード」(B列）にコードを入力すると、
　[検索]ブックで一致するコードを検索し、
　A列「氏名」、C列「内容」、D列「数値」に、[検索]シートの内容を
　自動的に表示させたい。
　（ただし[結果]ブックに入力した「コード」は、[検索]ブックの1～12のうち、
　　どのシートにあるかわからない）

・入力したコードが見つからない場合は何も表示しない。

ということです。

最初VLOOKUP、MATCH等の関数で表示することを考えましたが、
シートが複数にまたがっているのと、
列の並び方が[検索][結果]ブックで違うのでわかりませんでした。

長くなってしまい申し訳ありませんが、どうかおしえてください。
よろしくお願いします。

回答No.1

n-jun

「検索」をシート１、「結果」をシート２とした場合なら、

Sub try()
Dim myDic As Object
Dim i As Long, m As Long
Dim r As Range
Dim v

Set myDic = CreateObject("Scripting.Dictionary")

v = Worksheets("Sheet2").UsedRange

For i = 2 To UBound(v, 1)
myDic(v(i, 2)) = i
Next

With Worksheets("Sheet1")

For Each r In .Range(.Range("C2"), .Cells(Rows.Count, 3).End(xlUp))

If myDic.Exists(r.Value) Then
m = myDic(r.Value)

v(m, 1) = r.Offset(, -2).Value
v(m, 3) = r.Offset(, 1).Value
v(m, 4) = r.Offset(, -1).Value
End If

Next
End With

With Worksheets("Sheet2")
.Cells.ClearContents
.Range("A1").Resize(UBound(v, 1), UBound(v, 2)).Value = v
End With

Set myDic = Nothing
Erase v

End Sub

例えばこんなとか？
ただ同一ブックの単シートでは既にコードが出来ているのなら、これはスル～して下さい。

お礼

回答ありがとうございます！
マクロは本当にはじめたばかりで、
見てもあまりまだ理解もできないのですが…＞＜参考になります！
ありがとうございます。