使用2個不同工作簿的VBA Vloopup

Question

我必須通過使用Vlookup從1個工作簿獲取一些信息。原因是我有75個單元需要填寫其他工作簿的價格，但其他工作簿中並不總是有75個價格。

Sub Update() 

Dim wb1 As Workbook, wb2 As Workbook 

Set wb1 = ActiveWorkbook 

' Open Workbook "Verzamelstaat" ' 
rowl = ActiveCell.Row 
linkl = Cells(rowl, 16).Value 
Application.Workbooks.Open (linkl) 
Filenamel = Mid(linkl, InStrRev(linkl, "\") + 1, Len(linkl)) 
Set wb2 = Workbooks(Filenamel) 

' Copy data to other workbook ' 

wb1.Sheets(1).Range("AY4").Value = Application.VLookup(wb1.Sheets(1).Range("AY2").Value, wb2.sheets(1).Range("A:A"), 2, False) 

' Close Workbook "Verzamelstaat" ' 
Workbooks(Filenamel).Close savechanges:=False 

End Sub 

我的問題是，wb1.Sheets(1).Range("AY4")結束爲#REF !.

AY2的價值= 001和其他工作簿有001至075列A

我認爲答案很簡單，但我只是不想看到它....

Answer 1

更改你的VLookUp function的第二個參數指的是A列和B列：

... = Application.VLookup(wb1.Sheets(1).Range("AY2").Value, wb2.sheets(1).Range("A:B"), 2, False)