Πώς να αφαιρέσει τα διπλά Γραμμές Array στο Excel VBA

Κατάργηση διπλότυπων δεδομένων από έναν πίνακα με τη χρήση της Visual Basic for Applications ( VBA) στο Excel μπορεί να προκαλέσει σύγχυση , αν δεν είστε ένας έμπειρος προγραμματιστής VBA . Διαλογή και αφαίρεση των διπλών δεδομένων από έναν πίνακα είναι μια επαναληπτική διαδικασία που απαιτεί ένα αρκετά εξελιγμένο αλγόριθμο , αλλά μπορεί εύκολα να επιτευχθεί ακολουθώντας μερικά απλά βήματα . Στην VBA , μπορείτε να χρησιμοποιήσετε ένα " Για ... Loop " και η "Συλλογή" αντικειμένου για να παρακολουθείτε τα μοναδικά στοιχεία στη σειρά και η διαδικασία είναι αρκετά γρήγορη , ανάλογα με το μέγεθος του πίνακα σας . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ανοίξει το παράθυρο VB Editor. Τοποθετήστε μια νέα λειτουργική μονάδα κώδικα κάνοντας κλικ στο μενού "Εισαγωγή" και κάνοντας κλικ στο " ενότητα ". 2

Δημιουργήστε μια νέα διαδικασία ρουτίνας και να ορίσετε τρεις μεταβλητές που θα χρησιμοποιήσετε για να αφαιρέσετε τα διπλότυπα σε σειρά σας .

Private Sub removeDuplicates ( )

Dim strArray ( 5 ) Όπως String Dim

Mycol Όπως Συλλογή

Dim idx Όπως Long

Set Mycol = νέα συλλογή εικόνων
3

Προσθήκη διπλότυπων δεδομένων σε σειρά σας .

strArray ( 0 ) = " bbb "

strArray ( 1 ) = " bbb "

strArray ( 2 ) = " ccc "

strArray ( 3 ) = " ddd "

strArray ( 4 ) = " ddd "
Η 4

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα " για ... Loop " και θηλιά μέσα από κάθε στοιχείο του πίνακα για να αφαιρέσετε τυχόν διπλότυπα :

On Error Resume Next

για idx = LBound ( strArray ) να UBound ( strArray )

myCol.Add 0 , CStr ( strArray ( idx ) )

Εάν Err Στη συνέχεια

strArray ( idx ) = Κενά

DUPS = DUPS + 1

Err.Clear

ElseIf DUPS τότε

strArray ( idx - DUPS ) = strArray ( idx )

strArray ( idx ) = Κενά

End If

Επόμενο
5

Εκτυπώστε κάθε στοιχείου του πίνακα στο παράθυρο Immediate για να δείξει ότι τα διπλότυπα έχουν αφαιρεθεί .

Για idx = LBound ( strArray ) να UBound ( strArray )

Debug.Print strArray ( idx )

Επόμενο
Η 6

Τύπος " End Sub " για να τερματίσετε τη διαδικασία σας . Κάντε κλικ στο μενού "Run" και κάντε κλικ στο κουμπί play για να τρέξει το πρόγραμμα .
Η
εικόνων