Πώς να συνδυάσετε δύο λίστες χωρίς διπλότυπα στο Excel;

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

Συνδυάστε λίστες χωρίς διπλότυπα με Κατάργηση διπλότυπων στο Excel

Συνδυάστε λίστες χωρίς διπλότυπα με VBA

Συνδυάστε λίστες χωρίς διπλότυπα με το Kutools για Excel

Συνδυάστε λίστες χωρίς διπλότυπα με Κατάργηση διπλότυπων στο Excel

Φοβερο! Χρήση αποτελεσματικών καρτελών στο Excel όπως Chrome, Edge, Firefox και Safari!
Εξοικονομήστε 50% του χρόνου σας και μειώστε χιλιάδες κλικ ποντικιού για εσάς κάθε μέρα!

Για να συνδυάσετε δύο λίστες και να καταργήσετε διπλές τιμές στο 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 και Ματαίωση για να κλείσετε δύο διαλόγους. Δείτε το στιγμιότυπο οθόνης: