Συγγραφέας: Kelly Τελευταία τροποποίηση: 2020-05-09

Για παράδειγμα, δημιουργείτε έναν πίνακα αγοράς φρούτων στο Excel και τώρα πρέπει να δείτε τα φρούτα από άλλο βιβλίο εργασίας και να επιστρέψετε τις αντίστοιχες τιμές, όπως φαίνεται παρακάτω. Εδώ θα σας καθοδηγήσω να το λύσετε με τη λειτουργία VLOOKKUP στο Excel.

1. Ανοίξτε και τα δύο βιβλία εργασίας από τα οποία θα δείτε τιμές και θα επιστρέψετε τιμές.

2. Επιλέξτε ένα κενό κελί που θα επιστρέψετε την τιμή, πληκτρολογήστε τον τύπο = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) σε αυτό και, στη συνέχεια, σύρετε το Fill Handle για να εφαρμόσετε αυτόν τον τύπο στο εύρος που χρειάζεστε.

Μπορεί να είναι μπερδεμένο ένα σκουπίδια για να διαμορφώσετε τη διαδρομή αποθήκευσης, το όνομα αρχείου και το φύλλο εργασίας στη λειτουργία VLOOKUP. Αυτή η μέθοδος θα εισαγάγει ένα VBA για να το λύσει εύκολα.

1. Πάτα το άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο της αρχικής μονάδας

VBA: Δεδομένα Vlookup και τιμές επιστροφής από άλλο κλειστό βιβλίο εργασίας

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: Αυτό το VBA θα επιστρέψει τιμές σε μια στήλη που βρίσκεται 2 στήλες πίσω από την επιλεγμένη στήλη. Για παράδειγμα, επιλέγω τη στήλη Β κατά την εφαρμογή αυτού του VBA, οι τιμές θα επιστρέψουν στη στήλη Δ. Εάν πρέπει να αλλάξετε τη στήλη προορισμού, μάθετε τον κωδικό xRg.Offset (0, 2). Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row και αντικαταστήστε 2 σε άλλο αριθμό όπως χρειάζεστε.

3. Πάτα το F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

4. Στο πλαίσιο διαλόγου ανοίγματος, προσδιορίστε το εύρος δεδομένων που θα αναζητήσετε και κάντε κλικ στο OK κουμπί.

5. Τώρα επιλέξτε το βιβλίο εργασίας όπου θα αναζητήσετε τιμές στο άνοιγμα Επιλέξτε ένα βιβλίο διαλόγου και κάντε κλικ στο Ανοικτό κουμπί.

Τώρα όλες οι επιλεγμένες τιμές αναζητούνται στο καθορισμένο κλειστό βιβλίο εργασίας και οι αντίστοιχες τιμές επιστρέφονται στην καθορισμένη στήλη. Δείτε το στιγμιότυπο οθόνης: