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

Πώς να συνδυάσετε μοναδικές τιμές στο Excel;

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

Βρείτε μοναδικές τιμές σε μια στήλη και συνδυάστε τις σε ένα κελί με κώδικα VBA

Βρείτε μοναδικές τιμές σε μια στήλη και συνδυάστε τις σε ένα κελί με το Kutools για Excel

Καταγράψτε μοναδικές τιμές και συνδυάστε τις αντίστοιχες τιμές με τον κώδικα VBA

Καταγράψτε μοναδικές τιμές και συνδυάστε τις αντίστοιχες τιμές με το Kutools για Excel


βέλος μπλε δεξιά φούσκα Βρείτε μοναδικές τιμές σε μια στήλη και συνδυάστε τις σε ένα κελί με κώδικα VBA

Ο ακόλουθος Λειτουργία καθορισμένη από τον χρήστη μπορεί να σας βοηθήσει να συνδυάσετε μόνο τις μοναδικές τιμές σε ένα μόνο κελί από μια λίστα, κάντε τα εξής:

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

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

Κωδικός VBA: Συνδυάστε μοναδικές τιμές σε ένα κελί:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Στη συνέχεια, επιστρέψτε στο φύλλο εργασίας σας και εισαγάγετε αυτόν τον τύπο: = ConcatUniq (A1: A17, ",") σε ένα κενό κελί όπου θέλετε να εξάγετε το συνδυασμένο αποτέλεσμα και πατήστε εισάγετε κλειδί για να αποκτήσετε το μοναδικό συνδυασμένο αποτέλεσμα, δείτε το στιγμιότυπο οθόνης

doc συνδυασμένες μοναδικές 1

Note: Στον παραπάνω τύπο, A1: A17 είναι το εύρος κελιών που θέλετε να συνενώσετε και το κόμμα ","Είναι ο διαχωριστής που χρειάζεστε για να διαχωρίσετε τις συνδυασμένες τιμές, μπορείτε να τις αλλάξετε ανάλογα με τις ανάγκες σας.


βέλος μπλε δεξιά φούσκα Βρείτε μοναδικές τιμές σε μια στήλη και συνδυάστε τις σε ένα κελί με το Kutools για Excel

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

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής :( Δωρεάν λήψη του Kutools για Excel τώρα! )

1. Επιλέξτε τη λίστα των κελιών που θέλετε να συνδυάσετε μόνο τις μοναδικές τιμές.

2. Κλίκ Kutools > Αγορά > Επιλέξτε Διπλότυπα και μοναδικά κελιά, δείτε το στιγμιότυπο οθόνης:

3. Στην Επιλέξτε Διπλότυπα και μοναδικά κελιά , επιλέξτε Όλα τα μοναδικά (Συμπεριλαμβάνονται 1 η διπλή) επιλογή βάσει του Άρθρο ενότητα, δείτε το στιγμιότυπο οθόνης:

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

doc συνδυασμένες μοναδικές 3

4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και έχουν επιλεγεί μόνο οι μοναδικές τιμές και, στη συνέχεια, πατήστε Ctrl + C για να τα αντιγράψετε και να τα επικολλήσετε σε μια συγκεκριμένη τοποθεσία πατώντας Ctrl + V, δείτε το στιγμιότυπο οθόνης:

doc συνδυασμένες μοναδικές 4

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

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

doc συνδυασμένες μοναδικές 6

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

doc συνδυασμένες μοναδικές 7

Δωρεάν λήψη του Kutools για Excel τώρα!


βέλος μπλε δεξιά φούσκα Καταγράψτε μοναδικές τιμές και συνδυάστε τις αντίστοιχες τιμές με τον κώδικα VBA

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

doc συνδυασμένες μοναδικές 8

Εδώ, μπορείτε να εφαρμόσετε τον ακόλουθο κωδικό VBA για να αντιμετωπίσετε αυτήν την εργασία, κάντε τα εξής:

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

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

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

Sub test()
'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

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

doc συνδυασμένες μοναδικές 9

4. Κλίκ OK, οι μοναδικές τιμές εξήχθησαν και οι αντίστοιχες τιμές τους σε μια άλλη στήλη συνενώθηκαν μαζί σε ένα νέο φύλλο εργασίας.

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το κόκκινο κόμμα xArr (xDic. Item (xArr (I, 1)), 2) = xArr (xDic. Item (xArr (I, 1)), 2) & ","& xArr (I, 2) σε αυτό το σενάριο σε οποιονδήποτε άλλο οριοθέτη που θέλετε να διαχωρίσετε τα συνδυασμένα δεδομένα.


βέλος μπλε δεξιά φούσκα Καταγράψτε μοναδικές τιμές και συνδυάστε τις αντίστοιχες τιμές με το Kutools για Excel

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής :( Δωρεάν λήψη του Kutools για Excel τώρα! )

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

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

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

doc συνδυασμένες μοναδικές 11

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

doc συνδυασμένες μοναδικές 12

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

doc συνδυασμένες μοναδικές 13

Δωρεάν λήψη του Kutools για Excel τώρα!

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Excellent article!
I have a question.
How would delete blanks from start and end to avoid duplicates(caused by spaces) in function ConcatUniq?
Thank you very much!
This comment was minimized by the moderator on the site
I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
This comment was minimized by the moderator on the site
Thank you! Great and simple function works perfect for me! https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations