U maakt bijvoorbeeld een fruitaankooptabel in Excel en nu moet u het fruit uit een andere werkmap opvullen en de bijbehorende prijzen retourneren zoals hieronder weergegeven schermafbeeldingen. Hier zal ik je helpen het op te lossen met de functie VERT.ZOEKEN in Excel.

1. Open beide werkmappen waaruit u waarden wilt opvullen en waarden wilt retourneren.

2. Selecteer een lege cel waarvan u de prijs wilt retourneren, typ de formule = VERT.ZOEKEN (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) erin en sleep vervolgens de vulhendel om deze formule toe te passen op het bereik dat u nodig hebt.

Het kan een verwarring zijn om het opslagpad, de bestandsnaam en het werkblad in de functie VERT.ZOEKEN te configureren. Deze methode introduceert een VBA om het gemakkelijk op te lossen.

1. druk de anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op het Invoegen > Moduleen plak vervolgens onder VBA-code in het openingsmodulevenster.

VBA: Vlookup-gegevens en retourwaarden uit een andere gesloten werkmap

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

Note: Deze VBA retourneert waarden in een kolom die 2 kolommen achter de geselecteerde kolom staat. Ik selecteer bijvoorbeeld kolom B bij het toepassen van deze VBA, waarden zullen terugkeren in kolom D.Als u de bestemmingskolom moet wijzigen, zoek dan de code op xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row en vervangen 2 naar een ander nummer als je nodig hebt.

3. druk de F5 toets of klik op de lopen knop om deze VBA uit te voeren.

4. Geef in het openingsdialoogvenster het gegevensbereik op dat u wilt opzoeken en klik op OK knop.

5. Selecteer nu de werkmap waar u waarden wilt opzoeken in het dialoogvenster Selecteer een werkmap openen en klik op de Openen knop.

Nu worden alle geselecteerde waarden opgezocht in de opgegeven gesloten werkmap en worden de bijbehorende waarden geretourneerd in de opgegeven kolom. Zie screenshot: