Πώς να αφαιρέσετε διπλότυπα αλλά να διατηρήσετε την πρώτη παρουσία στο Excel;
Ας πούμε, υπάρχει μια λίστα τιμών στο φύλλο εργασίας σας που περιέχει μερικά διπλότυπα, τώρα, πρέπει να καταργήσετε τα διπλότυπα αλλά να διατηρήσετε την πρώτη σειρά όπου βρίσκεται η διπλότυπη τιμή. Σε αυτό το άρθρο, θα σας δείξουμε δύο μεθόδους κατάργησης διπλότυπων, αλλά διατηρούμε την πρώτη παρουσία στο Excel.
Καταργήστε τα διπλά αλλά διατηρήστε την πρώτη παρουσία με τον κώδικα VBA
Καταργήστε τα διπλότυπα αλλά διατηρήστε την πρώτη παρουσία με το Kutools για Excel
Καταργήστε τα διπλά αλλά διατηρήστε την πρώτη παρουσία με τον κώδικα VBA
Μπορείτε να εκτελέσετε τον παρακάτω κώδικα VBA για να αφαιρέσετε διπλότυπα, αλλά να διατηρήσετε την πρώτη παρουσία σε μια στήλη.
1. Τύπος άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές κουτί διαλόγου.
2. Στο Microsoft Visual Basic για εφαρμογές , κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο κώδικα.
Κωδικός VBA: καταργήστε τα διπλά αλλά διατηρήστε την πρώτη εμφάνιση
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub
3. Τύπος F5 κλειδί για την εκτέλεση του κώδικα. Στο αναδυόμενο KutoolsforExcel πλαίσιο διαλόγου, επιλέξτε το εύρος που θέλετε να καταργήσετε διπλότυπα και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Τώρα μπορείτε να δείτε όλες τις διπλές σειρές εκτός από τις πρώτες εγγραφές που καταργούνται από το επιλεγμένο εύρος στηλών. Δείτε το στιγμιότυπο οθόνης:
Καταργήστε τα διπλότυπα αλλά διατηρήστε την πρώτη παρουσία με το Kutools για Excel
Εκτός από τον κωδικό VBA, μπορείτε να χρησιμοποιήσετε το Επιλέξτε Διπλότυπα και μοναδικά κελιά χρησιμότητα του Kutools για Excel πρόσθετο για να αφαιρέσετε εύκολα διπλότυπα, αλλά διατηρήστε τις πρώτες εμφανίσεις στο Excel.
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. Επιλέξτε το εύρος που θέλετε να αφαιρέσετε διπλότυπα, αλλά διατηρήστε τις πρώτες εμφανίσεις. Στη συνέχεια κάντε κλικ Kutools > Αγορά > Επιλέξτε Διπλότυπα και μοναδικά κελιά.
2. Στο Επιλέξτε Διπλότυπα και μοναδικά κελιά πλαίσιο διαλόγου, επιλέξτε το Αντίγραφα (εκτός από το 1ο) και στη συνέχεια κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια Επιλέξτε Διπλότυπα και μοναδικά κελιά , κάντε κλικ στην επιλογή OK.
4. Τώρα επιλέγονται τα αντίγραφα εκτός από τις πρώτες περιπτώσεις, πατήστε το Διαγραφή για να αφαιρέσετε τα επιλεγμένα αντίγραφα.
Note: Εάν θέλετε να διαγράψετε τις διπλές σειρές, απλώς πρέπει να ελέγξετε Επιλέξτε ολόκληρες σειρές επιλογή του Επιλέξτε Διπλότυπα και μοναδικά κελιά πλαίσιο διαλόγου και, στη συνέχεια, εφαρμόστε το Διαγραφή εντολή του μενού δεξιού κλικ για να αφαιρέσετε ολόκληρες τις διπλές σειρές.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Καταργήστε τα διπλότυπα αλλά διατηρήστε την πρώτη παρουσία με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!