VBA να Κατάργηση διπλότυπων στο Excel

Visual Basic for Applications ή VBA , είναι μια απλή γλώσσα προγραμματισμού που η Microsoft ενσωματώνει με μερικά από τα προϊόντα γραφείου της, συμπεριλαμβανομένων του Excel 2010 . Μπορείτε να δημιουργήσετε κώδικα σε VBA που θα εκτελούν ενέργειες σε ένα υπολογιστικό φύλλο , όπως π.χ. η αφαίρεση αντιγράφων από μια περιοχή κελιών , η οποία διαφορετικά θα πρέπει να συμπληρώσετε με το χέρι . Πώς Excel αφαιρεί τις διπλές
Η

Όταν το Excel αφαιρεί τις διπλές εγγραφές , μπορεί να ελέγξει μία στήλη για διπλές τιμές και στη συνέχεια αφαιρέστε τους . Excel cal επίσης να ελέγξετε για διπλότυπα σε πολλαπλές στήλες , αλλά χειρίζεται αυτή τη διαδικασία λίγο διαφορετικά . Το Excel θα ελέγχει κάθε γραμμή μέσα στην επιλογή αντί των μεμονωμένων κυττάρων . Για παράδειγμα , αν έχετε ελέγξει τις στήλες " A " έως "Δ " για αντίγραφα , κάθε σειρά πρέπει να έχει τις ίδιες τέσσερις τιμές πρέπει να θεωρείται ένα αντίγραφο . Εξαιτίας αυτού , το Excel δεν μπορεί να αφαιρέσει τα αντίγραφα σε πολλαπλές επιλογές ταυτόχρονα .
Εικόνων Ξεκινώντας κώδικα VBA σας
Η

Πατήστε το πλήκτρο " Alt " και " F11 " μέσα από το Excel για να να εμφανιστεί το πρόγραμμα επεξεργασίας VBA . Κάντε δεξί κλικ στο φύλλο εργασίας σας , η οποία θα πρέπει να αναγράφονται στην αριστερή πλευρά του επεξεργαστή , και να επιλέξετε να εισαγάγετε μια λειτουργική μονάδα . Όταν γράφετε μια μακροεντολή VBA , θα πρέπει να το γράψετε σε μια λειτουργική μονάδα . Κάντε διπλό κλικ στη μονάδα και θα εμφανιστεί μια λευκή οθόνη στη δεξιά πλευρά του εκδότη . Πληκτρολογήστε " Sub RemoveDupe ( ) " στη λευκή περιοχή και πατήστε το πλήκτρο " Enter". VBA θα προσθέσει αυτόματα το " End Sub " γραμμή . Όλος ο κώδικας που γράφετε θα πρέπει να ταιριάζει ανάμεσα σε αυτές τις δύο γραμμές .

Η Κατάργηση διπλότυπων με VBA
Η

Εισάγετε την ακόλουθη γραμμή κώδικα , χωρίς εισαγωγικά , σχετικά με την κενή γραμμή μεταξύ " Sub" και " End Sub" :

ActiveSheet.Range . ( "A1 : D100 " ) RemoveDuplicates Στήλες : = Array ( 1,2,3 )

Αλλαγή " A1" στην πάνω αριστερή κύτταρο για την περιοχή στην οποία ψάχνετε για αντίγραφα , και το " D100 " στην κάτω δεξιά κελί της περιοχής. Αλλάξτε τους αριθμούς μετά το " Array " για να είναι ίσες με τις στήλες μέσα από την περιοχή που θέλετε να ελέγξετε για διπλότυπα . Η αριστερή στήλη εντός της περιοχής είναι μία στήλη και η κάθε στήλη στα δεξιά του ότι είναι ένα νούμερο μεγαλύτερο. Στο παράδειγμα , όπως είναι γραμμένο, VBA θα φανεί μέσα από τις στήλες " A", " B " και "C " για να βρείτε τις διπλές σειρές , αλλά θα περιλαμβάνει στήλη " Δ " , όταν αφαιρεί τις διπλές γραμμές . Όταν τελειώσετε , κάντε κλικ στο "Χ " στην κορυφή του παραθύρου για να το κλείσετε . Μπορείτε να αποκτήσετε πρόσβαση μακροεντολή σας , κάνοντας κλικ στο κουμπί "Macro " κάτω από την καρτέλα "Προγραμματιστής " . Εικόνων
μη VBA Μέθοδοι
Η

Excel 2007 και το 2010 , επίσης, να σας δώσει έναν τρόπο για να ελέγξετε για διπλότυπα που θα μπορούσε να είναι πιο γρήγορα από τη σύνταξη κώδικα VBA , αν έχετε μόνο να ελέγξει μία ή δύο ομάδες κυττάρων . Επισημάνετε την περιοχή που θέλετε να ελέγξετε για διπλότυπα , κάντε κλικ στην καρτέλα "Δεδομένα" και στη συνέχεια κάντε κλικ στο κουμπί " Κατάργηση διπλότυπων " . Θα δείτε ένα παράθυρο που περιέχει όλες τις στήλες στην περιοχή . Αφαιρέστε μια επιταγή από οποιαδήποτε στήλη που δεν θέλετε να συμπεριληφθούν στο πλαίσιο του ελέγχου κοροϊδεύω . Κάντε κλικ στο " OK" και το Excel θα αφαιρέσει τις διπλές γραμμές .
Η
εικόνων