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

Μια διπλή καταχώρηση στο Microsoft Excel είναι μια καταχώρηση σε μια στήλη ή γραμμή που να ταιριάζει με άλλες καταχωρήσεις στην ίδια στήλη ή γραμμή . Μπορεί να θέλετε να καταργήσετε αυτές τις διπλές καταχωρήσεις για να σφίξετε τα δεδομένα σας, αλλά δεν μπορείτε να το κάνετε αυτό με το χέρι , ειδικά εάν έχετε τις εκατοντάδες των κυττάρων των δεδομένων . Δυστυχώς , αν εργάζεστε στο Microsoft Office Excel , ιδιαίτερα το Excel 2002 και το Excel 2003 , αφαίρεση των διπλών εγγραφών σε στήλες ή γραμμές αυτόματα δεν είναι προφανής . Οδηγίες
οικοδομήσουμε μια Macro να αφαιρέσει Πρώτη στήλη Αντίγραφα
Η 1

Αναζήτηση στο Εργαλεία στη γραμμή εργαλείων και κάτω για να Macro . Στα δεξιά , βρείτε το Visual Basic Editor και κάντε αριστερό κλικ πάνω του . Μόλις στο Visual Basic Editor , βρείτε το drop-down που σας επιτρέπει να δημιουργήσετε μια φόρμα χρήστη , Module ή λειτουργικής μονάδας κλάσης . Επιλέξτε " . Ενότητα " 2

Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο στο πλαίσιο επεξεργασίας που ανοίγει : Sub DelDups_OneList ( ) Dim iListCount Όπως IntegerDim ICTR As Integer ' Απενεργοποίηση της ενημέρωσης της οθόνης για να επιταχύνει macro.Application . ScreenUpdating = False ' τον αριθμό των εγγραφών για την αναζήτηση through.iListCount = Sheets ( " Φύλλο1 " ) Range ( "A1 : A100 ») . . . . Rows.CountSheets ( " Φύλλο1 " ) Range ( "A1" ) Επιλέξτε ' Εκτέλεση του βρόχου μέχρι τέλος records.Do Μέχρι ActiveCell = " " " Loop μέσω records.For ICTR = 1 Για να iListCount « Μην συγκρίνετε με τον εαυτό σου. " Για να καθορίσετε μια διαφορετική στήλη , αλλάξτε 1 στη στήλη number.If ActiveCell.Row <> Sheets ( " Φύλλο1 " ) . Κύτταρα ( ICTR , 1 ) . Row Στη συνέχεια, « Να σύγκριση της επόμενης record.If ActiveCell.Value = Φύλλα ( " Φύλλο1 " ) . κύτταρα ( ICTR , 1 ) . Value συνέχεια «Αν το ματς είναι αλήθεια , στη συνέχεια, διαγράψτε row.Sheets ( " Φύλλο1 " ) . κύτταρα ( ICTR , 1 ) . Διαγραφή xlShiftUp « αντι Προσαύξηση να λογοδοτήσουν για διαγραφή row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' Μετάβαση στην επόμενη record.ActiveCell.Offset ( 1 , 0 ) . SelectLoopApplication.ScreenUpdating = TrueMsgBox " Done ! " End Sub
εικόνων 3

Κάντε κλικ στο " Αρχείο" και στη συνέχεια " Κλείσιμο και επιστροφή σε Microsoft Excel . " Μόλις επέστρεψε στο Excel , περιηγηθείτε στην επιλογή Εργαλεία στη γραμμή εργαλείων και , στη συνέχεια, Μακροεντολές . Στα δεξιά , επιλέξτε το " Μακροεντολές " επιλογή . Στο πλαίσιο επιλογής Macro , δείτε τη μακροεντολή που ονομάζεται DelDups_OneList . Επιλέξτε "Επιλογές" και να εκχωρήσετε ένα πλήκτρο συντόμευσης του " q ". Κάντε κλικ στο " OK".
Η

4 Κάντε κλικ στο " Run". "Τέλος" θα εμφανιστεί . Διαγράφονται οι διπλές καταχωρήσεις στην πρώτη στήλη .
5

Επειδή έχετε δημιουργήσει πλήκτρο συντόμευσης σας για Ctrl + q , το μόνο που χρειάζεται να πληκτρολογήσετε Ctrl + q στο μέλλον και τις διπλές καταχωρήσεις σε σας πρώτη στήλη των στοιχείων θα πρέπει να αφαιρεθεί.
Η
εικόνων