Πώς να διαγράψει τα διπλά Τραγούδια Χρησιμοποιώντας VBScript

Κατά τη δημιουργία γραμμών και στηλών στο Excel , μπορείτε να καταλήξετε με πολλά αντίγραφα ενός αντικειμένου , ειδικά αν είστε επιχείρηση τραγούδια . Οι χρήστες έχουν τη δυνατότητα να το φιλτράρισμα αυτών και τη διαγραφή τους από τα εργαλεία των φύλλων του Excel . Αλλά όταν ένα υπολογιστικό φύλλο είναι μεγάλη και συνεχώς αλλάζει , μπορείτε να εκτελέσετε μια μικρή Visual Basic Script ( VBScript ) για να πάρει το Excel για να προσδιορίσει το διπλό περιεχόμενο και να το διαγράψετε γρήγορα . Οδηγίες
Η

1 Ανοίξτε το φύλλο δεδομένων στο Excel . 2

Πατήστε το πλήκτρο " Alt " και " F11 " για να ανοίξει το Visual Basic Editor.
Η
3

Επιλέξτε την καρτέλα "Εισαγωγή" από την κορυφή γραμμή εργαλείων και επιλέξτε
Η 4

Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο που εμφανίζεται « Ενότητα ». : " Option Explicit

DeleteDups Sub ( )

Dim x As LongDim LastRow Όπως Long

LastRow = Range ( " A65536 " ) . Τέλος ( xlUp ) . RowFor x = LastRow Σε 1 Εφαρμογή Βήμα - 1Αν . WorksheetFunction.CountIf . ( Range ( "A1 : A " . & x ) , Range ( "A" & x ) Κείμενο ) > 1 ThenRange ( "A" & x ) EntireRow.DeleteEnd IfNext x

End Sub "
5

Κλείστε το παράθυρο κάνοντας κλικ στο " Χ "στην επάνω δεξιά γωνία .
Η 6

Ελέγξτε τη λειτουργία με την προσθήκη δεδομένων σε στήλη Α. Αντίγραφο ορισμένα από τα στοιχεία εσκεμμένα .
Η 7

Επιλέξτε " Μακροεντολές " από την κορυφή γραμμή εργαλείων και επιλέξτε " DeleteDups " και πατήστε το πλήκτρο " Enter".
εικόνων
Η