Sie erstellen beispielsweise eine Obstkauftabelle in Excel, und jetzt müssen Sie die Früchte aus einer anderen Arbeitsmappe anzeigen und die entsprechenden Preise wie in den folgenden Screenshots zurückgeben. Hier werde ich Ihnen helfen, es mit der VLOOKKUP-Funktion in Excel zu lösen.

1. Öffnen Sie beide Arbeitsmappen, aus denen Sie Werte anzeigen und in denen Sie Werte zurückgeben.

2. Wählen Sie eine leere Zelle aus, für die Sie den Preis zurückgeben möchten, und geben Sie die Formel ein = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) Ziehen Sie den Füllgriff hinein, um diese Formel nach Bedarf auf den Bereich anzuwenden.

Es kann ein Wurf sein, der verwirrt ist, den Speicherpfad, den Dateinamen und das Arbeitsblatt in der VLOOKUP-Funktion zu konfigurieren. Diese Methode führt eine VBA ein, um sie leicht zu lösen.

1. Drücken Sie die Taste Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie auf die Insert > Modulund fügen Sie dann den folgenden VBA-Code in das sich öffnende Modulfenster ein.

VBA: Vlookup-Daten und Rückgabewerte aus einer anderen geschlossenen Arbeitsmappe

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: Dieser VBA gibt Werte in einer Spalte zurück, die 2 Spalten hinter der ausgewählten Spalte liegt. Zum Beispiel wähle ich beim Anwenden dieses VBA Spalte B aus. Die Werte werden in Spalte D zurückgegeben. Wenn Sie die Zielspalte ändern müssen, finden Sie den Code heraus xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row und ersetzen 2 zu einer anderen Nummer, wie Sie brauchen.

3. Drücken Sie die Taste F5 Taste oder klicken Sie auf Führen Sie Schaltfläche, um diese VBA auszuführen.

4. Geben Sie im Eröffnungsdialogfeld den Datenbereich an, nach dem Sie suchen möchten, und klicken Sie auf OK .

5. Wählen Sie nun die Arbeitsmappe aus, in der Sie im Eröffnungsdialogfeld Arbeitsmappe auswählen nach Werten suchen möchten, und klicken Sie auf Offen .

Jetzt werden alle ausgewählten Werte in der angegebenen geschlossenen Arbeitsmappe nachgeschlagen und die entsprechenden Werte in der angegebenen Spalte zurückgegeben. Siehe Screenshot: