複数のブックのExcel vba vlookupの範囲

Question

次のコードを使用して、VBAを使用して別のブックにvlookupを実行しています。 問題なく動作しますが、今は単一のセルを見るだけでなく、範囲をループすることも欲しいと思います。 T15：T200としましょう。

これを行うコードを変更するのを助けることができる人は誰ですか？

Sub VlookMultipleWorkbooksBACKUP() 

    Dim lookFor As Range 
    Dim srchRange As Range 

    Dim book1 As Workbook 
    Dim book2 As Workbook 

    Dim book2Name As String 
    book2Name = "testbog.xlsx" 

    Dim book2NamePath As String 
    book2NamePath = ThisWorkbook.Path & "\" & book2Name 

    Set book1 = ThisWorkbook 

    If IsOpen(book2Name) = False Then Workbooks.Open (book2NamePath) 
    Set book2 = Workbooks(book2Name) 


    Set lookFor = book1.Sheets(1).Cells(15, 20) ' value to find 
    Set srchRange = book2.Sheets(1).Range("A:B") 'source 

    lookFor.Offset(0, 20).Value = Application.Vlookup(lookFor, srchRange, 2, False) 

End Sub 

ありがとう！

Answer 1

はちょうどあなたのコードの最後の部分でループを含み、そして代わりに15のループカウンタ変数を使用します。私の `Vlookup`赤ちゃんを取るための

'... 
    Set book2 = Workbooks(book2Name) 
    Set srchRange = book2.Sheets(1).Range("A:B") 'source 
    Dim r As Long 
    For r = 15 To 200 
     Set lookFor = book1.Sheets(1).Cells(r, 20) ' value to find 

     lookFor.Offset(0, 20).Value = Application.Vlookup(lookFor, srchRange, 2, False) 
    Next 
End Sub