Par exemple, vous créez une table d'achat de fruits dans Excel, et vous devez maintenant rechercher les fruits d'un autre classeur et renvoyer les prix correspondants comme illustré ci-dessous. Ici, je vais vous guider pour le résoudre avec la fonction VLOOKKUP dans Excel.

1. Ouvrez les deux classeurs dans lesquels vous allez rechercher les valeurs et les renvoyer.

2. Sélectionnez une cellule vide, vous retournerez le prix, tapez la formule = RECHERCHEV (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) dedans, puis faites glisser sa poignée de remplissage pour appliquer cette formule à la plage selon vos besoins.

Il peut être difficile de configurer le chemin d’enregistrement, le nom de fichier et la feuille de calcul dans la fonction RECHERCHEV. Cette méthode introduira un VBA pour le résoudre facilement.

1. appuie sur le autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur l' insérer > Module, puis collez ci-dessous le code VBA dans la fenêtre du module d'ouverture.

VBA: données Vlookup et valeurs de retour d'un autre classeur fermé

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

Notes: Ce VBA renverra des valeurs dans une colonne qui est 2 colonnes derrière la colonne sélectionnée. Par exemple, je sélectionne la colonne B lors de l'application de ce VBA, les valeurs seront renvoyées dans la colonne D. Si vous devez modifier la colonne de destination, veuillez trouver le code xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row et remplacez 2 à un autre numéro selon vos besoins.

3. appuie sur le F5 ou cliquez sur la Courir bouton pour exécuter ce VBA.

4. Dans la boîte de dialogue d'ouverture, spécifiez la plage de données que vous recherchez, puis cliquez sur le bouton OK .

5. Sélectionnez maintenant le classeur dans lequel vous rechercherez les valeurs dans la boîte de dialogue d'ouverture Sélectionner un classeur, puis cliquez sur le bouton Ouvert .

Désormais, toutes les valeurs sélectionnées sont recherchées dans le classeur fermé spécifié et les valeurs correspondantes sont renvoyées dans la colonne spécifiée. Voir la capture d'écran: