Πώς να Εύρεση διπλότυπων δεδομένων με το Excel VBA

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

1 Πιέστε το πλήκτρο " Alt " και " F11 " για να πάει στο συντάκτη VB . 2

Κάντε κλικ στο " Εισαγωγή - > Ενότητα " για να ανοίξετε ένα νέο κωδικό παράθυρο
εικόνων 3

Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο : . Sub DupsGreen ( ) Application.ScreenUpdating = FalseRng = Selection.Rows.CountFor i = Rng σε 1 Βήμα - 1myCheck = ActiveCellActiveCell.Offset ( 1 , 0 ) . SelectFor j = 1 έως ΙΙστ ActiveCell = myCheck ThenSelection.Font.Bold = TrueSelection.Font.ColorIndex = 4End IfActiveCell.Offset ( 1 , 0 ) . SelectNext jActiveCell.Offset ( -i , 0 ) . SelectNext iApplication . ScreenUpdating = TrueEnd Sub
Η

4 Πατήστε το πλήκτρο " Alt " και " F11 " για να επιστρέψετε στο φύλλο εργασίας .
5

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

6 Πατήστε το πλήκτρο " Alt " και " F11 " για να επιστρέψετε στο συντάκτη.
Η 7

Κάντε κλικ στο " Run " και στη συνέχεια κάντε κλικ στο " Run Φόρμα Sub /χρήστη . " Η VBA θα τρέχει στο παρασκήνιο , τονίζοντας τα δεδομένα στο πράσινο .
8

Πατήστε το πλήκτρο " Alt " και " F11 " για να επιστρέψετε στο φύλλο εργασίας και να δείτε τα επισημασμένα δεδομένα του .
Η

Η