Πώς να αφαιρέσει διπλότυπων σε Visual Basic του Excel 07

είσαι σε θέση να αφαιρέσει γρήγορα διπλότυπων δεδομένων σε υπολογιστικό φύλλο του Excel μπορεί να σας εξοικονομήσει πολύ χρόνο , εάν εργάζεστε με μεγάλα φύλλα . Μην σπαταλάτε το χρόνο σας ψάχνοντας για επανάληψη των δεδομένων σε στήλες με το χέρι . Στο Visual Basic for Applications ( VBA ) , μπορείτε να χρησιμοποιήσετε τη μέθοδο « RemoveDuplicates " που αφαιρεί διπλές τιμές από ένα εύρος τιμών . Αυτή η μέθοδος είναι χρήσιμη όταν θέλετε να αφαιρέσετε επικάλυψη των δεδομένων σε πολλά φύλλα από πολλές στήλες . Οδηγίες
Η 1

τύπου " 1 " στην Α1 , " 2 " στην Α2 , " 2 " στο Α3 , " 3 " σε A4 , " 4 " σε A5 , και το " 4" στην Α6 . Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic " για να ξεκινήσει το πρόγραμμα επεξεργασίας VB . . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα ενότητα 2

Δημιουργήστε μια νέα διαδικασία υπο πληκτρολογώντας τον ακόλουθο κώδικα : Private

removeDuplicates Sub ( )

Η

3 Ορίστε το εύρος της στήλης στην οποία θέλετε να καταργήσετε διπλές , όπως A1 έως A6

Range. . ( "A1 : A6 " ) Επιλέξτε

4

Προσθέστε την ακόλουθη γραμμή κώδικα για να καταργήσετε αντίγραφα από A1 έως A6 :

ActiveSheet.Range . ( " $ A $ 1 : $ A $ 6" ) removeDuplicates Στήλες : = 1 , Header : = xlNo
5

οθόνης ένα πλαίσιο μηνύματος , όταν τα αντίγραφα έχουν αφαιρεθεί .

MsgBox " έχουν αντίγραφα της Α1 έχουν αφαιρεθεί ! "
Η 6

Τερματισμός της sub διαδικασία με την προσθήκη " End Sub" στο τέλος . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων