0

Vlookup を使用して、あるワークブックから別のワークブックに情報を取得する必要があります。その理由は、別のワークブックから価格を入力する必要がある 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 functionA 列と B 列の両方を参照する2 番目のパラメーターを変更します。

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