VBAで別ブックを複数列検索し、隣のセルの値を取得

質問

book2(master)のセルA1、2、3・・・・の値でbook1(data)の任意の複数列(以下では3列目、8列目としています)を検索し、検索結果の右側のセルの値(以下の例の場合4列目と9列目)をbook2(master)の検索元セルの右側に書き込みたいのですが、実行すると実行時エラー1004アプリケーションまたはオブジェクトの定義エラーです。
と表示されてしまいます。回避方法について教えて頂けますでしょうか
また、複数列の検索方法について適切な方法がありましたら教えて頂けますでしょうか
例）
master
A2”aa”　空欄　←hoを取得
A3”bb”　空欄　←3aを取得
A4”cc”　空欄

data(ランダムに配置されています)
1　2　3　4　5　6　7　8 9
　　　ca de　　　　 　d4 2f
　　　c1 3a　　　　 　bb 3a
　　　aa ho　　　 　　7e ee

Sub kensaku()
Dim book1 As Workbook
Dim book2 As Workbook
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim rng As Range
Dim r As Long

Set book1 = Workbooks.Open("D:\Book1.xls")
Set book2 = Workbooks.Open("D:\Book2.xls")
Set sheet1 = book1.Sheets("data")
Set sheet2 = book2.Sheets("master")
r = 2
Do While sheet2.Range("A" & r).Value <> ""
Set rng = sheet1.Range(Columns(3), Columns(8)).Find(sheet2.Range("A" & r).Value, LookAt:=xlWhole)
If Not rng Is Nothing Then
sheet2.Range("B" & r).Value = rng.Offset(0, 1).Value

End If
r = r + 1
Loop

End Sub

回答No.1

tsubuyuki · ベストアンサー

検索したいときに、検索したいブック（Book1）にフォーカスが無いからですかね。

Sub kensaku()
Dim book1 As Workbook
Dim book2 As Workbook
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim rng As Range
Dim r As Long

Set book1 = Workbooks.Open("D:\Book1.xls")
Set book2 = Workbooks.Open("D:\Book2.xls")
Set sheet1 = book1.Sheets("data")
Set sheet2 = book2.Sheets("master")

sheet1.Activate　'←追加
r = 2
Do While sheet2.Range("A" & r).Value <> ""
Set rng = sheet1.Range(Columns(3), Columns(8)).Find(sheet2.Range("A" & r).Value, LookAt:=xlWhole)　
If Not rng Is Nothing Then
sheet2.Range("B" & r).Value = rng.Offset(0, 1).Value

End If
r = r + 1
Loop

End Sub

で走らせてみるとどうでしょう？

お礼

tsubuyuki様

できました！
本当に感謝です！

この度はご回答頂き、ありがとうございました！