Μετάβαση στο κύριο περιεχόμενο

Πώς να προβάλετε και να συνδυάσετε πολλές αντίστοιχες τιμές στο Excel;

Όπως όλοι γνωρίζαμε, το Vlookup Η συνάρτηση στο Excel μπορεί να μας βοηθήσει να αναζητήσουμε μια τιμή και να επιστρέψουμε τα αντίστοιχα δεδομένα σε μια άλλη στήλη, αλλά γενικά, μπορεί να πάρει την πρώτη σχετική τιμή μόνο εάν υπάρχουν πολλά δεδομένα που ταιριάζουν. Σε αυτό το άρθρο, θα μιλήσω για το πώς να προβάλετε και να συνδυάσετε πολλές αντίστοιχες τιμές σε ένα μόνο κελί ή σε κάθετη λίστα.

Vlookup και επιστροφή πολλαπλών τιμών αντιστοίχισης κάθετα με τον τύπο

Vlookup και συνένωση πολλαπλών τιμών αντιστοίχισης σε ένα κελί με συνάρτηση καθορισμένη από το χρήστη

Vlookup και συνένωση πολλαπλών τιμών αντιστοίχισης σε ένα κελί με το Kutools για Excel


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

doc vlookup συνένωση 1

1. Εισαγάγετε αυτόν τον τύπο: =IF(COUNTIF($A$1:$A$16,$D$2)>=ROWS($1:1),INDEX($B$1:$B$16,SMALL(IF($A$1:$A$16=$D$2,ROW($1:$16)),ROW(1:1))),"") σε ένα κενό κελί όπου θέλετε να βάλετε το αποτέλεσμα, για παράδειγμα, E2 και, στη συνέχεια, πατήστε Ctrl + Shift + Εισαγωγή πλήκτρα μαζί για να λάβετε τη σχετική βάση αξίας σε ένα συγκεκριμένο κριτήριο, δείτε το στιγμιότυπο οθόνης:

doc vlookup συνένωση 2

Note: Στον παραπάνω τύπο:

A1: A16 είναι το εύρος στηλών που περιέχει τη συγκεκριμένη τιμή που θέλετε να αναζητήσετε.

D2 υποδεικνύει τη συγκεκριμένη τιμή που θέλετε να δείτε.

Β1: Β16 είναι το εύρος στηλών από το οποίο θέλετε να επιστρέψετε τα αντίστοιχα δεδομένα.

$ 1: $ 16 υποδεικνύει την αναφορά γραμμών εντός του εύρους.

2. Στη συνέχεια, επιλέξτε το κελί E2 και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά έως ότου λάβετε κενά κελιά και όλες οι αντίστοιχες τιμές παρατίθενται στη στήλη όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

doc vlookup συνένωση 3


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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Vlookup και συνδυασμός πολλαπλών τιμών αντιστοίχισης σε ένα κελί

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
    If x = lookupval Then
        result = result & " " & x.Offset(0, indexcol - 1)
    End If
Next x
CusVlookup = result
End Function

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο: = cusvlookup (D2, A1: B16,2) σε ένα κενό κελί όπου θέλετε να βάλετε το αποτέλεσμα και πατήστε εισάγετε κλειδί, όλες οι αντίστοιχες τιμές που βασίζονται σε συγκεκριμένα δεδομένα έχουν επιστραφεί σε ένα κελί με διαχωριστικό χώρου, δείτε το στιγμιότυπο οθόνης:

doc vlookup συνένωση 4

Note: Στον παραπάνω τύπο: D2 υποδεικνύει τις τιμές κελιών που θέλετε να αναζητήσετε, Α1: Β16 είναι το εύρος δεδομένων που θέλετε να ανακτήσετε τα δεδομένα, ο αριθμός 2 είναι ο αριθμός στήλης από τον οποίο πρέπει να επιστραφεί η αντίστοιχη τιμή, μπορείτε να αλλάξετε αυτές τις αναφορές στις ανάγκες σας.


Εάν έχετε Kutools για Excel, Με τους Σύνθετες σειρές συνδυασμού δυνατότητα, μπορείτε να ολοκληρώσετε γρήγορα αυτήν την εργασία με ευκολία. Αυτή η δυνατότητα μπορεί να σας βοηθήσει να συνδυάσετε όλες τις αντίστοιχες τιμές με συγκεκριμένους οριοθέτες με βάση τα ίδια δεδομένα σε άλλη στήλη.

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να λάβετε τις αντίστοιχες τιμές με βάση τα συγκεκριμένα δεδομένα.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Συγχώνευση & διαχωρισμός > Σύνθετες σειρές συνδυασμού, δείτε το στιγμιότυπο οθόνης:

3. Στην Σύνθετες σειρές συνδυασμού πλαίσιο διαλόγου, κάντε κλικ στο όνομα της στήλης με βάση το οποίο θέλετε να συνδυάσετε και, στη συνέχεια, κάντε κλικ στο Πρωτεύων κλειδί κουμπί, δείτε το στιγμιότυπο οθόνης:

doc vlookup συνένωση 6

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

doc vlookup συνένωση 7

5. Και στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί, όλες οι αντίστοιχες τιμές με βάση τις ίδιες τιμές έχουν συνδυαστεί με ένα συγκεκριμένο διαχωριστικό, δείτε στιγμιότυπα οθόνης:

doc vlookup συνένωση 8 2 doc vlookup συνένωση 9

 Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there any way to get the unique "name" for "class1"
This comment was minimized by the moderator on the site
Hello, sym-john,
Maybe the below article can solve your problem, please view it:
https://www.extendoffice.com/documents/excel/3381-excel-extract-unique-values-with-criteria.html
This comment was minimized by the moderator on the site
This is working great for me - is there anyway to change it that it checks if the cell contains rather than a complete match? Basically I have a list of tasks where:
Column A: Dependencies (eg 10003 10004 10008)
Column B: Task Reference (eg 10001)
Column C: Dependent Tasks (the column for the formula result) - where it would lookup the task reference to see which rows contain it in Column A, and then list the Task Reference of those tasks.

E.g:

Row | Column A | Column B | Column C
1 | | 10001 | 10002 10003
2 | 10001 | 10002 | 10003
3 | 10001 10002 | 10003 |
This comment was minimized by the moderator on the site
you would want to use the Instr() function which will check for something in a string of text in a cell. You can also use Left() and Right() if you are looking for the starting or ending details.
This comment was minimized by the moderator on the site
The cusVlookup worked great for me. Another way to have a different separator is to wrap in two substitute functions. The first (from inside to out) replaces the first space with no space, the second replaces all other spaces with a " / " in mine. Could use "," if you want commas.
=SUBSTITUTE(SUBSTITUTE(cusVlookup(D2,Table1,2)," ","",1)," "," / ")

Also, if your lookup value isn't the first column, you can use 0 or negative numbers to go to column to the left.
=SUBSTITUTE(SUBSTITUTE(cusVlookup(D2,Table1,-1)," ","",1)," "," / ")
This comment was minimized by the moderator on the site
Hi, jeff,
Thanks for your sharing, you must be a warmhearted man.
This comment was minimized by the moderator on the site
I have to say, I have been trying to get a formula for combining multiple values and returning them to a single cell for 2 days now. This "How To" has saved me!! Thank you SO much! I would never have gotten it without your Module!
I do have 2 questions though. I have the deliminator as a comma instead of a space and because of that it starts out with a comma. Is there a way to prevent the start comma but keep the rest?
My second question is; When I use the fill handle it changes the range values as well as the cell value I want to look up. I want it to continue to change the cell number I want to look up but keep the same range values. How can I make this happen?

Thank you so much for your help!!
This comment was minimized by the moderator on the site
Is there a way to delete the duplicate values in the concatenate?
This comment was minimized by the moderator on the site
Hello, Jacob,
May be the following article can help you to solve your problem.
https://www.extendoffice.com/documents/excel/3381-excel-extract-unique-values-with-criteria.html

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is there a way to list the duplicate values only once, using the vba code and formula above? I am not sure where to put the countif>1 statement in the formula bar, or in the vba itself. Please help
This comment was minimized by the moderator on the site
you can add two extra condition to skip blank cells and to skip duplicates:For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = Condition Then
If ConcatenateRange.Cells(i).Value <> "" Then 'SKIP BANKS
If InStr(xResult, ConcatenateRange.Cells(i).Value) = 0 Then 'SKIP IF FOUND DUPLICATE
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
End If
End If
Next i
This comment was minimized by the moderator on the site
This is amazing but i am looking for something else, i have a table with RollNo StudentName sub1, sub2, sub3 ... Total Result, When I enter Rollnumber it should give a result like "SName Sub1 64, sub2 78,... Total 389, Result pass", is it possible
This comment was minimized by the moderator on the site
Loved the function for Excel 2013 but amended it slightly to change the separating character to ";" instead of " " and then remove the prefixed ";" from the concantenated values Results matching values in my example would have ;result01 or ;result01;result02 . Added the extra If Left(xResult, 1) = ";" to remove any extra ";" at the beginning of the string if it is the 1st character. I'm sure there is a neater way of doing it but it worked for me. :) Function CusVlookup(pValue As String, pWorkRng As Range, pIndex As Long) Dim rng As Range Dim xResult As String xResult = "" For Each rng In pWorkRng If rng = pValue Then xResult = xResult & ";" & rng.Offset(0, pIndex - 1) If Left(xResult, 1) = ";" Then xResult = MID(xResult,2,255) End If End If Next CusVlookup = xResult End Function
This comment was minimized by the moderator on the site
Make if condition for result if empty.

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice 20151118
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
If x = lookupval Then
If Not result = "" Then
result = result & " " & x.Offset(0, indexcol - 1)
Else
result = x.Offset(0, indexcol - 1)
End If
Next x
CusVlookup = result
End Function
This comment was minimized by the moderator on the site
When using the cusvlookup is there a way to add the last name as well with a comma in between that might appear in Column C
This comment was minimized by the moderator on the site
How to get the result. Please help. data data1 result a 1 a1 b 2 a2 c b1 b2 c1 c2
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations