Πώς να Διαγραφή διπλότυπων γραμμών στο Excel χρησιμοποιώντας VBA

Ορισμένα υπολογιστικά φύλλα χρησιμοποιούνται και ενημερώθηκε πολλά . Αυτά συχνά είναι γεμάτη με τα δεδομένα που έχει επαναληφθεί πολλές φορές. Υπάρχουν τρόποι για να βρείτε και να διαγράψετε τυχόν γραμμές που περιέχουν αυτά τα δεδομένα εις διπλούν , αλλά ένα από τα πιο απλά και αυτόματα τρόπους για να επιτευχθεί αυτό είναι με ένα Visual Basic Macro . Excel περιέχει μια εφαρμογή για τον προγραμματισμό που ονομάζεται Excel VBA , η οποία μπορεί να χρησιμοποιηθεί για να κάνει οποιοδήποτε αριθμό των μακροεντολών - κομμάτια του κώδικα που έχουν σχεδιαστεί για να κάνει μια προσαρμοσμένη εργασία όποτε κληθεί . Τα πράγματα που θα χρειαστείτε για Microsoft Excel
Η Εμφάνιση Περισσότερες οδηγίες
Προγραμματισμός Macro
Η

1 Ανοίξτε το υπολογιστικό φύλλο στο Excel και ανοίξτε το πρόγραμμα επεξεργασίας VBA πατώντας το πλήκτρο Alt και το πλήκτρο F11 στον υπολογιστή σας . 2

Ξεκινήστε ένα νέο έργο κάνοντας δεξί κλικ βιβλίο εργασίας σας στο μενού δεξιά και επιλέγοντας το " New " επιλογή .
εικόνων 3

Ξεκινήστε τη νέα λειτουργία με το " Sub DeleteDuplicateRows ( ) . " Αυτό πληροφορεί τον compiler VBA ότι υπάρχει μια νέα ρουτίνα που θα πρέπει να γνωρίζουν .
Η 4

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

Dim Row Όπως LongDim Count Όπως LongDim Σύγκριση Όπως VariantDim Σειρά Σειρά Όπως

Αυτό λέει στο σύστημα να αναιρέσει τις τέσσερις μεταβλητές ( Row, Count , Σύγκριση και Range) να χρησιμοποιούν στον κώδικα. Μπορείτε να χρησιμοποιήσετε ό, τι τα ονόματα των μεταβλητών περισσότερο νόημα για σας, αλλά να θυμάστε να τους αλλάξει τη μεταγενέστερη κωδικό
5

Ρυθμίστε το macro με κάποια πιο βασικό κώδικα : .

On Error GoTo EndMacroApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual

Set Εύρος = Application.Intersect ( ActiveSheet.UsedRange , _ActiveSheet.Columns ( ActiveCell.Column ) ) Application.StatusBar = " Επεξεργασία Row : " & Μορφοποίηση ( Rng.Row , " # , # # 0 " )

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

6 Πληκτρολογήστε τον ακόλουθο κώδικα : .

Count = 0For Row = Range.Rows.Count Σε 2 Βήμα - 1Αν Row Mod 500 = 0 ThenApplication.StatusBar = " Επεξεργασία Row : " & Format ( R , " # , # # 0 " ) End If

Σύγκριση = Range.Cells ( Σειρά 1 ) . Αξία

Αυτό λέει το σύστημα στο βήμα μέσα από κάθε μία από τις σειρές που επιλέγεται από το χρήστη , και να αλλάξετε τον Σύγκριση μεταβλητή στη γραμμή αυτή κάθε φορά που κινείται .
Η 7

Είσοδος ο κώδικας που ακολουθεί στη συνέχεια:

Εάν V = vbNullString ThenIf Application.WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , vbNullString ) > 1 ThenRng.Rows (R ) EntireRow.DeleteN = N + 1End IfElseIf Application . . WorksheetFunction.CountIf ( Rng.Columns ( 1 ) , V ) > 1 ThenRng.Rows ( R) . EntireRow.DeleteN = N + 1End IfEnd Αν

Αυτές οι δηλώσεις είναι αυτές που πραγματικά πει το σύστημα για συγκρίνουν τη μεταβλητή Σύγκριση στο επόμενο κελί και να διαγράψετε τη γραμμή , αν και τα δύο είναι το ίδιο .
8

Πατήστε enter για να εισάγετε ένα ζευγάρι των νέων γραμμών , και στη συνέχεια πληκτρολογήστε "Next Row " . Αυτό λέει στο σύστημα να σταματήσει να ψάχνει την πρώτη γραμμή , και να προχωρήσουμε στην επόμενη
Η 9

Κλείστε την λειτουργία με : .

EndMacro :

Application . StatusBar = FalseApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticMsgBox " Διπλότυπο γραμμές Διαγράφεται : " & CStr (Ν )

End Sub

Οι τελικές γραμμές πει το σύστημα πώς να κλείσει την υπορουτίνα έξω , και επίσης να εμφανίσετε ένα χρήσιμο πλαίσιο μηνύματος σας ενημερώνει το χρήστη ότι η Macro πραγματικά έκανε ό, τι έπρεπε να κάνει .
εικόνων Χρησιμοποιώντας το Macro
Η 10

Αποθηκεύστε το υπολογιστικό φύλλο . Αποθηκεύστε ένα δεύτερο , αντίγραφο ασφαλείας πριν χρησιμοποιήσετε το Macro . Είτε να αντιγράψετε και να επικολλήσετε το αρχείο σε ένα φάκελο αντιγράφων ασφαλείας , ή να μας το "Αποθήκευση ως " αρχείο για να αποθηκεύσετε το δεύτερο αντίγραφο , θα χρειαστεί να κλείσετε το Excel και ανοίξτε το ξανά .
Η 11

Κάντε κλικ και σύρετε τον κέρσορα γύρω από τα πιο σημαντικά στήλη δεδομένων . Αυτή είναι η μία για την οποία όλες οι καταχωρήσεις πρέπει να διαφέρουν , όπως και στην, αν όλα είχαν εισαχθεί σωστά , δεν θα υπάρχουν διπλές καταχωρήσεις .
Η 12

Ανοίξτε το μενού "Εργαλεία" και επιλέξτε " ? . μακροεντολών "Αυτό ανοίγει το παράθυρο διαλόγου μακροεντολές , επιτρέποντάς σας να επιλέξετε και να εκτελέσετε τη μακροεντολή σας
Η 13

Επιλέξτε τη μακροεντολή σας ? . εάν χρησιμοποιηθεί το παραπάνω παράδειγμα , θα ονομάζεται " . DelDuplicateR " ? Στη συνέχεια πατήστε το κουμπί " Run" . Η Macro θα τρέξει αυτόματα , και pop up ένα μήνυμα που δηλώνει ότι τα αντίγραφα έχουν διαγραφεί .
Η
εικόνων