Φιλτράρετε τις λίστες του Excel με μια μακροεντολή με τέτοιο τρόπο ώστε πολλές καταχωρήσεις να εμφανίζονται μόνο μία φορά σε μια νέα λίστα προορισμού και έτσι να καθαρίσετε τα δεδομένα σας.
Πολλές λίστες περιέχουν διπλές καταχωρήσεις. Μερικές φορές είναι σημαντικό να φιλτράρετε αυτές τις καταχωρίσεις από μια λίστα. Για παράδειγμα, μπορείτε να χρησιμοποιήσετε μια λίστα πωλήσεων για να δημιουργήσετε μια λίστα στην οποία κάθε πελάτης εμφανίζεται μόνο μία φορά - αυτό μπορεί να είναι σημαντικό για αναλύσεις αγοράς, για παράδειγμα.
Ο πίνακας από το παρακάτω σχήμα δείχνει μια μικρή λίστα Excel με αριθμούς στη στήλη Β.
Θέλετε να δημιουργήσετε μια νέα λίστα από αυτήν τη λίστα, στην οποία οι αριθμοί δεν εμφανίζονται πλέον δύο φορές. Ο αριθμός 21, ο οποίος βρίσκεται στα κελιά Β3, Β5 και Β14 στην αρχική λίστα, θα εμφανίζεται μόνο μία φορά στη νέα λίστα.
Υπάρχουν διάφοροι τρόποι για να το κάνετε αυτό με το Excel. Εάν θέλετε να χρησιμοποιήσετε μια μακροεντολή, μπορείτε να χρησιμοποιήσετε τις ακόλουθες εντολές VBA:
Υποκατάλογος χωρίς διπλότυπα ()
Dim Source As Range
Αμυδρός στόχος ως εύρος
Ορισμός πηγής = Εύρος ("b1")
Ορισμός στόχου = Εύρος ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Τέλος υπο
Μετά την εκκίνηση της μακροεντολής, το Excel φιλτράρει τον πίνακα και εμφανίζει τον νέο πίνακα από το κελί D1. Το παρακάτω σχήμα δείχνει το αποτέλεσμα:
Μπορείτε να δείτε ότι κάθε τιμή εμφανίζεται μόνο μία φορά στη λίστα αποτελεσμάτων.
Χρησιμοποιήστε τη μεταβλητή ΠΗΓΗ για να καθορίσετε τη στήλη του πίνακά σας στην οποία βρίσκονται τα δεδομένα από τα οποία θέλετε να δημιουργήσετε μια νέα λίστα χωρίς διπλές καταχωρήσεις. Η μακροεντολή χρησιμοποιεί πάντα ολόκληρη τη στήλη που ανήκει στην αναφορά που ορίζετε με ΠΗΓΗ. Χρησιμοποιήστε τη μεταβλητή για να ορίσετε οποιαδήποτε διεύθυνση κελιού στην αντίστοιχη στήλη.
Με τη μεταβλητή TARGET καθορίζετε πού γράφει το Excel τη λίστα αποτελεσμάτων σας στο Excel. Η νέα λίστα ξεκινά από τη θέση που καθορίζετε με αυτήν τη μεταβλητή.
Η μακροεντολή λειτουργεί με το ενεργό φύλλο εργασίας τόσο για την περιοχή προέλευσης όσο και για την περιοχή -στόχο.
Για να εισαγάγετε τη μακροεντολή σε έναν πίνακα, ανοίξτε το αντίστοιχο βιβλίο εργασίας και πατήστε το συνδυασμό πλήκτρων ALT F11 σε όλες τις εκδόσεις του Excel για να ξεκινήσετε τον επεξεργαστή VBA. Καλέστε την εντολή INSERT - MODULE και εισαγάγετε τις εντολές VBA. Για να ξεκινήσετε τη μακροεντολή από το Excel, χρησιμοποιήστε τον συνδυασμό πλήκτρων ALT F8.
