Πώς να ψάξει για Αντίγραφα σε Excel Visual Basic

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

1 Ανοίξτε το αρχείο του Microsoft Excel 2010 που περιέχει τα δεδομένα που θέλετε να ελέγξετε για διπλότυπα . Όταν το φύλλο έρχεται , πατήστε το πλήκτρο "Alt " και " F11 " για να φορτώσετε την κονσόλα VBA . 2

Κάντε δεξί κλικ στο φύλλο εργασίας σας στην αριστερή πλευρά της οθόνης VBA . Μετακινήστε το ποντίκι σας πάνω "Εισαγωγή" και επιλέξτε " Ενότητα ". Κάντε διπλό κλικ στη νέα μονάδα που εμφανίζεται μερικές γραμμές κάτω από το φύλλο εργασίας .
Εικόνων 3

Τοποθετήστε το δρομέα στο λευκό χώρο στη δεξιά πλευρά της οθόνης . Πληκτρολογήστε " Sub Dupecheck ( ) " και πατήστε enter . VBA θα τεθεί αυτόματα την εντολή " End Sub" για σας .
Η

4 Τοποθετήστε τον κέρσορα στη γραμμή μεταξύ του " Sub " και τις γραμμές " End Sub" . Εισάγετε τις παρακάτω γραμμές κώδικα : . .

Dim x As Long

Dim endrow Όπως Long

endrow = Range ( " A50000 ") End ( xlUp ) Row

αυτό το κωδικό θα δημιουργήσει δύο μεταβλητές , « endrow " και "x " και στη συνέχεια καθορίζει την τιμή για το " endrow . " Ο κωδικός αυτός θα αναζήτηση μέσω 50.000 γραμμές σε μία μόνο στήλη , αλλά αν πρέπει να πρέπει να ψάξετε μέσα από περισσότερες γραμμές , απλά να αυξήσει 50.000 έως ανεξάρτητα από τον αριθμό που χρειάζεστε . Αυτός ο κωδικός είναι επίσης σχεδιαστεί για να δούμε μέσα από στήλη "Α ", αλλά μπορείτε απλά να αλλάξετε το " Α" σε ό, τι στήλη επιστολή που χρειάζεστε .
5

Τοποθετήστε τον κέρσορα στην επόμενη γραμμή και εισάγετε τον παρακάτω κωδικό :

Για x = endrow Σε 1 Step -1

Εάν Application.WorksheetFunction.CountIf ( Range ( ". Α1 : A " & x ) , Range ( "A" & x ) Κείμενο ) > 1 τότε

Range ( "A" & x ) . Interior.Color = RGB ( 200 , 160 , 35 )

End If

Επόμενο x

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

6 Κάντε κλικ στο "x " στην πάνω δεξιά γωνία της οθόνης για να κλείσετε την κονσόλα VBA . Κάντε κλικ στην καρτέλα "Προγραμματιστής " στην κορυφή της οθόνης . Βρείτε το κουμπί "Macro " στην αριστερή πλευρά της κορδέλας και κάντε κλικ σε αυτό . Επιλέξτε " Dupecheck " από τη λίστα των διαθέσιμων μακροεντολών και κάντε κλικ στο " Run". Το Excel θα αναδείξει τώρα κάθε διπλότυπο στη στήλη των δεδομένων .
Η
εικόνων