複数のシートから検索抽出

質問

検索値シート(4)【B】123で行い、検索範囲をシート(1)、（2）、（3）のうちの一つの【B】列でヒットした【A】列ABCをシート(4)の【C】に検索結果を表示させたいのですがどのようにしたらよいでしょうか。
また、シート(4)【B】列1000以上全て検索値としたいのですが、どうかよろしくお願いします。
シート(1)～（3）
【A】　 【B】　 【C】
ABC ....123
DEF ...456
GHI ....789
JKL ....795
MNO ..816

シート(4)
【A】　【B】　【C】
　　 .. 123 ... ???
......... 456
......... 789

方法が分からず困っています。
お手数ですが、どうかお教えください。

回答No.1

n-jun

Sub try()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim r As Range
Dim rr As Range

Set ws1 = Worksheets("Sheet4") 'シート(4)

For Each r In ws1.Range(ws1.Range("B1"), ws1.Cells(Rows.Count, 2).End(xlUp))

For Each ws In Worksheets
If ws.Name <> ws1.Name Then

Set rr = ws.Range("B:B").Find(What:=r.Value, After:=ws.Cells(Rows.Count, 2), LookIn:=xlValues, LookAt:=xlWhole)

If Not rr Is Nothing Then
r.Offset(, 1).Value = rr.Offset(, -1).Value
Set rr = Nothing
Exit For
End If
End If

Next
Next

Set ws1 = Nothing
End Sub

こうゆう感じのことでしょうか？

お礼

早急な回答ありがとうございます。