Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 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. Και αντιγράψτε τις επιλεγμένες μοναδικές τιμές και επικολλήστε τις σε μια νέα στήλη. Δείτε το στιγμιότυπο οθόνης:


Κάντε κλικ εδώ για να μάθετε περισσότερα σχετικά με την επιλογή διπλότυπων και μοναδικών κελιών.


Σχετικά άρθρα:

Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL