Πίνακας περιεχομένων
Μία από τις πιο σημαντικές δραστηριότητες στο Excel είναι να αφαίρεση αντιγράφων από ένα δεδομένο σύνολο δεδομένων. Σήμερα θα σας δείξω πώς να αφαιρείτε τα αντίγραφα στο Excel χρησιμοποιώντας μόνο την VBA.
Κατεβάστε το βιβλίο ασκήσεων
Αφαίρεση αντιγράφων στο Excel με VBA.xlsm3 γρήγορες μέθοδοι χρήσης της VBA στο Excel για την αφαίρεση αντιγράφων
Εδώ έχουμε ένα σύνολο δεδομένων με το Ονόματα, ταυτότητες, Σημάδια, και Βαθμοί στις εξετάσεις ορισμένων μαθητών ενός σχολείου που ονομάζεται Νηπιαγωγείο Sunflower.
Αν κοιτάξετε προσεκτικά, θα διαπιστώσετε ότι ορισμένα ονόματα έχουν επαναληφθεί λανθασμένα.
Σήμερα ο στόχος μας είναι να αφαιρέσουμε τις διπλές τιμές χρησιμοποιώντας το Excel VBA.
1. Χρήση της VBA για την αφαίρεση αντιγράφων από σταθερό εύρος κελιών
Πρώτα απ' όλα, θα προσπαθήσουμε να αφαιρέστε τα διπλά ονόματα χρησιμοποιώντας ένα σταθερό εύρος κελιών στο VBA κωδικός.
Εδώ, το σύνολο των δεδομένων μας είναι το εύρος B3:E15 στο βιβλίο εργασίας (συμπεριλαμβανομένου του Επικεφαλίδες στηλών ).
Θα χρησιμοποιήσουμε αυτό το σταθερό εύρος κελιών στον κώδικα εδώ.
Βήμα 1:
➤ Ανοίξτε ένα νέο VBA παράθυρο και εισάγετε μια νέα ενότητα (Κάντε κλικ εδώ για να δείτε πώς να ανοίξετε και να εισαγάγετε μια νέα ενότητα VBA στο Excel).
➤ Εισάγετε αυτόν τον κώδικα στην ενότητα:
Κωδ:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Παράγει μια μακροεντολή που ονομάζεται Αφαίρεση_διπλότυπων . A3:E14 είναι το εύρος του συνόλου δεδομένων μου και θέλω να αφαιρέστε τις διπλές γραμμές με βάση Στήλη 1 Χρησιμοποιήστε το δικό σας.
Βήμα 2:
➤ Επιστρέψτε στο φύλλο εργασίας σας και εκτελέστε αυτό το Macro (Κάντε κλικ εδώ για να δείτε πώς να εκτελέσετε το Macro).
➤ Θα αφαιρέσει τις γραμμές με αντίγραφα στη στήλη 1 ( Όνομα μαθητή).
Διαβάστε περισσότερα: Πώς να διαγράψετε διπλότυπα στο Excel αλλά να διατηρήσετε ένα (7 μέθοδοι)
2. Εισαγωγή κωδικών VBA για την αφαίρεση αντιγράφων από επιλεγμένη περιοχή κελιών
Τώρα θα προσπαθήσουμε να δημιουργήσουμε μια μακροεντολή που μπορεί να αφαιρέσει τα αντίγραφα από οποιαδήποτε επιλεγμένη περιοχή κελιών στο φύλλο εργασίας.
Βήμα 1:
➤ Ανοίξτε ένα νέο VBA παράθυρο ξανά και εισάγετε μια άλλη νέα ενότητα.
➤ Εισάγετε αυτόν τον κώδικα στην ενότητα:
Κωδ:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Παράγει μια μακροεντολή που ονομάζεται Αφαίρεση_διπλότυπων . Θέλω να αφαιρέσω τις διπλές γραμμές με βάση το Στήλη 1 Χρησιμοποιήστε το δικό σας.
Βήμα 2:
➤ Επιστρέψτε στο φύλλο εργασίας σας.
➤ Επιλέξτε το σύνολο δεδομένων σας και εκτελέστε αυτή τη μακροεντολή.
➤ Θα εκτελέσει το ίδιο πράγμα που έκανε παραπάνω. Αφαιρέστε τις γραμμές με αντίγραφα στη στήλη 1 ( Όνομα μαθητή).
Διαβάστε περισσότερα: Πώς να αφαιρέσετε διπλές γραμμές στο Excel (3 τρόποι)
Παρόμοιες αναγνώσεις
- Πώς να αφαιρέσετε διπλότυπα από τη στήλη στο Excel (3 μέθοδοι)
- Excel VBA: Αφαίρεση αντιγράφων από μια συστοιχία (2 παραδείγματα)
- Πώς να αφαιρέσετε τα διπλότυπα και να διατηρήσετε την πρώτη τιμή στο Excel (5 μέθοδοι)
- Αφαίρεση διπλών σειρών εκτός από την 1η εμφάνιση στο Excel (7 τρόποι)
- Πώς να αφαιρέσετε και τα δύο αντίγραφα στο Excel (5 εύκολοι τρόποι)
3. Ενσωματώστε μια μακροεντολή VBA για την αφαίρεση αντιγράφων από πολλαπλές στήλες
Μέχρι τώρα έχουμε αφαιρέσει τις γραμμές που έχουν διπλότυπα στη Στήλη 1 ( Όνομα μαθητή ).
Αλλά στην πραγματικότητα, τα ονόματα δύο μαθητών μπορεί να είναι τα ίδια, δεν σημαίνει πάντα ότι έχει προστεθεί λανθασμένα αν δύο ονόματα είναι ίδια.
Αν όμως τα αναγνωριστικά των δύο μαθητών είναι επίσης ίδια, τότε πρόκειται για τον ίδιο μαθητή. Τότε η γραμμή πρέπει να αφαιρεθεί.
Αυτή τη φορά θα αναπτύξουμε μια μακροεντολή που θα αφαιρεί τη γραμμή εάν τόσο το όνομα όσο και το αναγνωριστικό δύο γραμμών είναι τα ίδια.
Βήμα 1:
➤ Ανοίξτε ένα νέο VBA παράθυρο ξανά και εισάγετε μια άλλη νέα ενότητα.
➤ Εισάγετε αυτόν τον κώδικα στην ενότητα:
Κωδ:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Παράγει μια μακροεντολή που ονομάζεται Αφαίρεση_διπλότυπων . Θέλω να αφαιρέσω τις διπλές γραμμές με βάση το Στήλη 1 και 2 (όνομα και ταυτότητα) Χρησιμοποιήστε το δικό σας.
Βήμα 2:
➤ Επιστρέψτε στο φύλλο εργασίας σας.
➤ Επιλέξτε το σύνολο δεδομένων σας και εκτελέστε αυτή τη μακροεντολή.
➤ Αυτή τη φορά θα αφαιρέσει τις σειρές μόνο αν τόσο το όνομα όσο και το αναγνωριστικό μαθητή είναι τα ίδια.
Σημείωση: Εδώ δεν έχει αφαιρέσει την Jennifer Marlo επειδή τα αναγνωριστικά των δύο μαθητών είναι διαφορετικά, δηλαδή πρόκειται για δύο διαφορετικούς μαθητές.
Διαβάστε περισσότερα: Excel VBA: Αφαίρεση αντιγράφων συγκρίνοντας πολλαπλές στήλες (3 παραδείγματα)
Συμπέρασμα
Χρησιμοποιώντας αυτές τις μεθόδους, μπορείτε να αφαιρέσετε τα αντίγραφα από ένα σύνολο δεδομένων στο Excel χρησιμοποιώντας την VBA. Έχετε οποιοδήποτε πρόβλημα; Μη διστάσετε να μας ρωτήσετε.
