Πώς να συνδυάσετε μοναδικές τιμές στο 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, ",") σε ένα κενό κελί όπου θέλετε να εξάγετε το συνδυασμένο αποτέλεσμα και πατήστε εισάγετε κλειδί για να αποκτήσετε το μοναδικό συνδυασμένο αποτέλεσμα, δείτε το στιγμιότυπο οθόνης
Note: Στον παραπάνω τύπο, A1: A17 είναι το εύρος κελιών που θέλετε να συνενώσετε και το κόμμα ","Είναι ο διαχωριστής που χρειάζεστε για να διαχωρίσετε τις συνδυασμένες τιμές, μπορείτε να τις αλλάξετε ανάλογα με τις ανάγκες σας.
Βρείτε μοναδικές τιμές σε μια στήλη και συνδυάστε τις σε ένα κελί με το Kutools για Excel
Εάν δεν είστε εξοικειωμένοι με τον κωδικό VBA, Kutools για Excel μπορεί επίσης να σας βοηθήσει, μπορείτε να συνδυάσετε το Επιλέξτε Διπλότυπα και μοναδικά κελιά και Συνδυασμός βοηθητικά προγράμματα για να επιτύχετε το αποτέλεσμα που χρειάζεστε.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής :( Δωρεάν λήψη του Kutools για Excel τώρα! )
1. Επιλέξτε τη λίστα των κελιών που θέλετε να συνδυάσετε μόνο τις μοναδικές τιμές.
2. Κλίκ Kutools > Αγορά > Επιλέξτε Διπλότυπα και μοναδικά κελιά, δείτε το στιγμιότυπο οθόνης:
3. Στην Επιλέξτε Διπλότυπα και μοναδικά κελιά , επιλέξτε Όλα τα μοναδικά (Συμπεριλαμβάνονται 1 η διπλή) επιλογή βάσει του Άρθρο ενότητα, δείτε το στιγμιότυπο οθόνης:
Συμβουλές: Εάν θέλετε να συνδυάσετε τις μοναδικές τιμές, εξαιρουμένων των διπλότυπων που εμφανίζονται για πρώτη φορά, επιλέξτε Μόνο μοναδικές τιμές επιλογή.
4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και έχουν επιλεγεί μόνο οι μοναδικές τιμές και, στη συνέχεια, πατήστε Ctrl + C για να τα αντιγράψετε και να τα επικολλήσετε σε μια συγκεκριμένη τοποθεσία πατώντας Ctrl + V, δείτε το στιγμιότυπο οθόνης:
5. Επιλέξτε τα επικολλημένα μοναδικά κελιά και, στη συνέχεια, κάντε κλικ στο Kutools > Συγχώνευση & διαχωρισμός > Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων, δείτε το στιγμιότυπο οθόνης:
6. Στην Συνδυάστε στήλες ή σειρές , επιλέξτε Συνδυάστε σε ένα κελί σύμφωνα με το Για να συνδυάσετε επιλεγμένα κελιά σύμφωνα με τις ακόλουθες επιλογέςκαι, στη συνέχεια, καθορίστε ένα διαχωριστικό για τα συνδυασμένα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:
7. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί, οι εξαγόμενες μοναδικές τιμές έχουν συνενωθεί σε ένα μόνο κελί όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Δωρεάν λήψη του Kutools για Excel τώρα!
Καταγράψτε μοναδικές τιμές και συνδυάστε τις αντίστοιχες τιμές με τον κώδικα VBA
Σε μια άλλη περίπτωση, έχετε μια σειρά δεδομένων που περιλαμβάνει δύο στήλες και τώρα, θέλετε να παραθέσετε μόνο τις μοναδικές τιμές και να συνδυάσετε τις αντίστοιχες τιμές μιας άλλης στήλης για να λάβετε το ακόλουθο αποτέλεσμα, έχετε καλούς τρόπους για να ολοκληρώσετε αυτήν την εργασία στο Excel;
Εδώ, μπορείτε να εφαρμόσετε τον ακόλουθο κωδικό 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 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε το εύρος δεδομένων που θέλετε να συνενώσετε με βάση τις μοναδικές τιμές, δείτε το στιγμιότυπο οθόνης:
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. Στην Σύνθετες σειρές συνδυασμού πλαίσιο διαλόγου, κάντε κλικ στο όνομα της στήλης που θέλετε να αναφέρετε μόνο τις μοναδικές τιμές και κάντε κλικ στο Πρωτεύων κλειδί, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ σε ένα άλλο όνομα στήλης που θέλετε να συνδυάσετε και κάντε κλικ στο Συνδυασμόςκαι επιλέξτε ένα διαχωριστικό για το διαχωρισμό των συνδυασμένων δεδομένων σας, δείτε το στιγμιότυπο οθόνης:
5. Και στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί, οι τιμές έχουν συνενωθεί με βάση τις μοναδικές τιμές μιας άλλης στήλης όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Δωρεάν λήψη του Kutools για Excel τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!