Πώς να αφαιρέσετε όλα τα αντίγραφα αλλά να διατηρήσετε μόνο ένα στο Excel;

Αυτό το σεμινάριο παρουσιάζει τα κόλπα για την κατάργηση όλων των διπλών τιμών από μια λίστα, αλλά διατηρεί μόνο μία στο Excel, διαβάστε τις λεπτομέρειες:

Καταργήστε όλα τα αντίγραφα αλλά διατηρήστε μόνο ένα με τη λειτουργία Remove Duplicates

Καταργήστε όλα τα αντίγραφα αλλά διατηρήστε μόνο ένα με το VBA

Καταργήστε όλα τα αντίγραφα, αλλά διατηρήστε μόνο ένα με το Kutools για Excel

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

---

Καταργήστε όλα τα αντίγραφα αλλά διατηρήστε μόνο ένα με τη λειτουργία Remove Duplicates

Στο Excel, η δυνατότητα "Κατάργηση διπλότυπου" μπορεί να σας βοηθήσει να καταργήσετε όλα εκτός από τη διατήρηση μιας διπλής τιμής.

1. Επιλέξτε τη λίστα δεδομένων που χρειάζεστε και κάντε κλικ στο ημερομηνία > Κατάργηση διπλότυπων. Δείτε το στιγμιότυπο οθόνης:

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

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

---

Καταργήστε όλα τα αντίγραφα αλλά διατηρήστε μόνο ένα με το VBA

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

1. Τύπος Alt + F11 ταυτόχρονα για άνοιγμα Microsoft Visual Basic για εφαρμογήπαράθυρο.

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

VBA: Καταργήστε όλα τα αντίγραφα αλλά διατηρήστε ένα.

Sub RemoveAllDeplicateButOne()
    Dim LR As Long: LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A1:A" & LR).RemoveDuplicates Columns:=1, Header:=Name
End Sub

3. Τύπος F5 κλειδί ή κάντε κλικ τρέξιμο για να εκτελέσετε το VBA, και τα αντίγραφα στη λίστα στη στήλη Α έχουν αφαιρεθεί, αλλά διατηρήστε ένα.

Συμβουλή: Στο παραπάνω VBA, το A υποδεικνύει τη στήλη A και το A1: A υποδεικνύει το εύρος λιστών, μπορείτε να τα αλλάξετε όπως χρειάζεστε.

---

Καταργήστε όλα τα αντίγραφα, αλλά διατηρήστε μόνο ένα με το Kutools για Excel

Υπάρχει ένα ισχυρό βοηθητικό πρόγραμμα στο Kutools για Excel το όνομά του Επιλέξτε Διπλότυπα και μοναδικά κελιά μπορεί γρήγορα να επιλέξει ή να επισημάνει όλα τα αντίγραφα εκτός από το πρώτο και μετά μπορείτε να τα καταργήσετε.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας.

Δωρεάν κατέβασμα δωρεάν πλήρεις δυνατότητες σε 30 ημέρες

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

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

2. Στο παράθυρο διαλόγου που εμφανίζεται, επιλέξτε Αντίγραφα (εκτός από το 1ο) επιλογή και πατήστε Ok. Δείτε το στιγμιότυπο οθόνης:

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

4. Και όλα τα αντίγραφα αλλά πρώτα επιλέγονται, πατήστε Διαγραφή κλειδί για να τα καθαρίσετε.

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

Επιλέξτε όλες τις μοναδικές τιμές, συμπεριλαμβανομένων των πρώτων αντιγράφων και, στη συνέχεια, αντιγράψτε τις πατώντας Ctrl + C και επικολλήστε σε άλλη τοποθεσία έως Ctrl + V.

  Καταργήστε όλα τα διπλότυπα αλλά διατηρήστε μόνο ένα

---

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

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

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

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

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

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

4. κλικ Ok, και οι διπλές σειρές συνδυάζονται και διατηρούν τα αντίστοιχα δεδομένα.

  Συνδυάστε διπλότυπα αλλά διατηρήστε παρακείμενα δεδομένα

---

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

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