0

我必须使用 Vlookup 从 1 个 Workbook 获取一些信息到另一个 Workbook。原因是我有 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 的值，另一个工作簿在 A 列中有 001 到 075。

我认为答案很简单，但我只是没有看到它......

4

1 回答 1

0

更改您的第二个参数VLookUp function，它同时引用 A 和 B 列：

... = Application.VLookup(wb1.Sheets(1).Range("AY2").Value, wb2.sheets(1).Range("A:B"), 2, False)
于 2013-08-02T08:42:17.623 回答