Μετάβαση στο κύριο περιεχόμενο

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

Στο Excel, θα αφαιρέσει όλες τις διπλές τιμές και θα μετακινηθεί προς τα πάνω όταν εφαρμόζετε τη λειτουργία Remove Duplicates όπως φαίνεται στο στιγμιότυπο οθόνης 1. Ωστόσο, σε ορισμένες περιπτώσεις, μπορεί να θέλετε να καταργήσετε διπλότυπα αλλά να διατηρήσετε τις υπόλοιπες τιμές της γραμμής όπως φαίνεται στο στιγμιότυπο οθόνης 2. Τώρα, σε αυτήν την περίπτωση, θα παρουσιάσω μερικά κόλπα για τη διαγραφή διπλότυπων αλλά διατηρώντας τα υπόλοιπα στο Excel.

doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 1 doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 2

Καταργήστε τα διπλά αλλά διατηρήστε τις υπόλοιπες τιμές με το φίλτρο (3 βήματα)

Αφαιρέστε τα διπλά αλλά διατηρήστε τις υπόλοιπες τιμές με το VBA (4 βήματα)

Καταργήστε τα διπλά αλλά διατηρήστε τις υπόλοιπες τιμές με το Kutools για Excel (2 βήματα)καλή ιδέα3


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

Με τη φόρμουλα και τη λειτουργία φίλτρου, μπορείτε να αφαιρέσετε γρήγορα διπλότυπα αλλά να παραμείνετε ξεκούραστοι.

1. Επιλέξτε ένα κενό κελί δίπλα στο εύρος δεδομένων, για παράδειγμα D2, τύπος τύπου = A3 = A2, σύρετε τη λαβή αυτόματης πλήρωσης προς τα κάτω στα κελιά που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 3

2. Επιλέξτε όλο το εύρος δεδομένων συμπεριλαμβανομένου του κελιού τύπου και κάντε κλικ στο ημερομηνία > Φίλτρα να επιτρέψει Φίλτρα λειτουργία. Δείτε το στιγμιότυπο οθόνης:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 4

3. Κάντε κλικ στο Εικονίδιο φίλτρου στη στήλη D (η στήλη τύπου) και επιλέξτε TURE από την αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 5

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

5. κλικ ημερομηνία > Φίλτρα για να απενεργοποιήσετε Φίλτρακαι αφαιρέστε τους τύπους όπως χρειάζεστε. Μπορείτε να δείτε ότι όλα τα αντίγραφα έχουν αφαιρεθεί και οι υπόλοιπες τιμές διατηρούνται στη σειρά.
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 7


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

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

1. Τύπος Alt + F11 πλήκτρα για εμφάνιση Microsoft Visual Basic για εφαρμογές παράθυρο.

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

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

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 8

3. Τύπος F5 κλειδί για την εκτέλεση του κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε ένα εύρος για να αφαιρέσετε τις διπλές τιμές από. Δείτε το στιγμιότυπο οθόνης:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 9

4. κλικ OK, τώρα οι διπλές τιμές έχουν αφαιρεθεί από την επιλογή και αφήνουν κενά κελιά.
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 10


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

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

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω :(Δωρεάν λήψη Kutools για Excel τώρα!)

Μέθοδος 1 Συγχώνευση ίδιων κελιών (2 βήματα)

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

2. Στη συνέχεια, οι διπλές τιμές έχουν συγχωνευτεί σε ένα κελί. Και κάντε κλικ Home > Συγχώνευση & Κέντρο > Απελευθερώστε τα κελιά για να τα χωρίσετε. Δείτε το στιγμιότυπο οθόνης:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 12

Τώρα το αποτέλεσμα έχει εμφανιστεί ως εξής:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 13

Μέθοδος 2 Επιλέξτε διπλότυπα και μοναδικά κελιά (4 βήματα)

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

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

3. κλικ Ok, εμφανίζεται ένας διάλογος για να σας υπενθυμίσει πόσα διπλά έχουν επιλεγεί, κάντε κλικ OK για να το κλείσετε. Δείτε το στιγμιότυπο οθόνης:
doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 16

4. Στη συνέχεια, πατήστε Διαγραφή για να αφαιρέσετε τις επιλεγμένες διπλές τιμές.

doc αφαιρέστε τα διπλά διατηρήστε το υπόλοιπο 17

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

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
iNFORMATION IS VERY USEFUL.SAVED A LOT OF TIME

THANKS.
This comment was minimized by the moderator on the site
It help me after long search thank bro
This comment was minimized by the moderator on the site
Thank you so much! This was very helpful!!
This comment was minimized by the moderator on the site
i would use the formula =A3<>A2 (not equal to ) so that it show up on top vs. last one on bottom.
This comment was minimized by the moderator on the site
i tried the formula =A2=A1, it also got the result of show up on top.
This comment was minimized by the moderator on the site
i tried the formula =A1=A2, it also get the same result of show up on top
This comment was minimized by the moderator on the site
the true false really helped!
This comment was minimized by the moderator on the site
The True/False solution is a smart trick. Thanks
This comment was minimized by the moderator on the site
Is it possible to merge the like cells without the Kutools add-in?
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
In the first method, instead of =A3=A2, you can do =A2=A1 to keep the first instance and delete the rest of the duplicates.
This comment was minimized by the moderator on the site
yes it works
This comment was minimized by the moderator on the site
Thank you for this comment! Exactly what I was looking for!
This comment was minimized by the moderator on the site
Thank you for this tutorial, it saves me from tons of work removing duplicates.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations