Πώς να συνδυάσετε δύο λίστες χωρίς διπλότυπα στο Excel;
Υπάρχουν δύο λίστες στο φύλλο εργασίας σας, και μερικές από τις τιμές στις λίστες είναι διπλές και θέλετε να συνδυάσετε αυτές τις δύο λίστες και να αφήσετε τις μοναδικές τιμές, όπως φαίνεται στα παρακάτω στιγμιότυπα οθόνης, πώς μπορείτε να το κάνετε;
![]() |
![]() |
![]() |
Συνδυάστε λίστες χωρίς διπλότυπα με Κατάργηση διπλότυπων στο Excel
Συνδυάστε λίστες χωρίς διπλότυπα με VBA
Συνδυάστε λίστες χωρίς διπλότυπα με το Kutools για Excel
- Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
- Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
- Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
- Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
- Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
- Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
- Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2021 και το 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.
Συνδυάστε λίστες χωρίς διπλότυπα με Κατάργηση διπλότυπων στο Excel
Για να συνδυάσετε δύο λίστες και να καταργήσετε διπλές τιμές στο Excel, μπορείτε να κάνετε τα εξής:
1. Αντιγράψτε μία από τις δύο λίστες και επικολλήστε την στο κάτω μέρος της άλλης λίστας, δείτε το στιγμιότυπο οθόνης:
![]() |
![]() |
![]() |
2. Επιλέξτε τη λίστα και κάντε κλικ ημερομηνία > Κατάργηση διπλότυπων, δείτε το στιγμιότυπο οθόνης:
3. Στο Κατάργηση διπλότυπων διαλόγου, εάν η στήλη σας δεν έχει κεφαλίδα, καταργήστε την επιλογή Τα δεδομένα μου έχουν κεφαλίδες, Και στη συνέχεια κάντε κλικ στο κουμπί OK. Δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει ότι τα αντίγραφα έχουν διαγραφεί, κάντε κλικ στο OK. Δείτε το στιγμιότυπο οθόνης:
Μπορείτε να δείτε το αποτέλεσμα:
Συνδυάστε λίστες χωρίς διπλότυπα με VBA
Στο Excel, ένα VBA μπορεί επίσης να σας βοηθήσει να συνδυάσετε τις δύο λίστες χωρίς διπλότυπα.
1. Κρατήστε ALT πατήστε το κουμπί F11 στο πληκτρολόγιο για να ανοίξετε ένα Microsoft Visual Basic για εφαρμογή παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε το VBA στη λειτουργική μονάδα.
VBA: Συνδυάστε λίστες χωρίς διπλότυπα
Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. κλικ τρέξιμο πατήστε το κουμπί F5 για να εκτελέσετε το VBA.
4. Ένα παράθυρο διαλόγου που εμφανίζεται στην οθόνη και μπορείτε να επιλέξετε το εύρος που θέλετε να συνδυάσετε. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OK, έπειτα εμφανίστηκε ένας άλλος διάλογος για να επιλέξετε ένα κελί για την έξοδο του συνδυασμένου αποτελέσματος. Δείτε το στιγμιότυπο οθόνης:
6. κλικ OK. Μπορείτε να δείτε ότι οι λίστες έχουν συνδυαστεί.
Συμβουλή: Το αποτέλεσμα δεν μπορεί να διατηρήσει τη μορφοποίηση κελιών μετά την εκτέλεση του παραπάνω VBA.
Συνδυάστε λίστες χωρίς διπλότυπα με το Kutools για Excel
Με εγκατεστημένο Kutools για Excel, μπορείτε να χρησιμοποιήσετε το Επιλέξτε διπλότυπα και μοναδικά κελιά Λειτουργία για την επίλυση του προβλήματος που συνδυάζει δύο λίστα χωρίς διπλότυπα.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα
1. Αντιγράψτε μία από τις δύο λίστες και επικολλήστε την στο κάτω μέρος της άλλης λίστας, επιλέξτε τη νέα λίστα και, στη συνέχεια, κάντε κλικ στο Kutools > Επιλέξτε Εργαλεία > Επιλέξτε διπλότυπα και μοναδικά κελιά. Δείτε το στιγμιότυπο οθόνης:
2. Στο Επιλέξτε διπλότυπα και μοναδικά κελιά διάλογος, ελέγξτε Όλες οι μοναδικές (Συμπεριλαμβάνονται τα 1α αντίγραφα), Κλίκ Ok.
3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσες μοναδικές τιμές έχουν επιλεγεί, κάντε κλικ στο OK και Ματαίωση για να κλείσετε δύο διαλόγους. Δείτε το στιγμιότυπο οθόνης:
4. Και αντιγράψτε τις επιλεγμένες μοναδικές τιμές και επικολλήστε τις σε μια νέα στήλη. Δείτε το στιγμιότυπο οθόνης:
Κάντε κλικ εδώ για να μάθετε περισσότερα σχετικά με την επιλογή διπλότυπων και μοναδικών κελιών.