Σε προηγούμενα άρθρα μας, μάθαμε πώς να εξάγουμε μοναδικές τιμές από μια περιοχή χρησιμοποιώντας συνδυασμό διαφορετικών λειτουργιών excel. Παρόλο που λειτουργούν φανταστικά, αλλά είναι πολύπλοκες επίσης, δεν υπάρχει αμφιβολία για αυτό. Εάν κάνετε εξαγωγή μοναδικών τιμών συχνά, αυτοί οι τύποι μπορεί να σας κουράσουν. Κάνουν επίσης το αρχείο βαρύ και αργό.
Έτσι, σε αυτό το άρθρο, θα μάθουμε πώς να δημιουργούμε μια συνάρτηση που ορίζεται από το χρήστη και που λαμβάνει ένα εύρος ως όρισμα και επιστρέφει μόνο μοναδικές τιμές από αυτό το εύρος. Μπορείτε να αντιγράψετε απευθείας τον κώδικα στο αρχείο σας και να αρχίσετε να τον χρησιμοποιείτε αμέσως.
Κωδικός VBA για μοναδική λειτουργία:
Λειτουργία ΜΟΝΑΔΙΚΑ (rng As Range) As Variant () Dim list As New Collection Dim Ulist () As Variant 'Προσθήκη κάθε τιμής rng στη συλλογή. Στο Σφάλμα Συνέχιση Επόμενο Για κάθε Τιμή σε rng 'εδώ η τιμή και το κλειδί είναι τα ίδια. Η συλλογή δεν επιτρέπει διπλότυπα κλειδιά, επομένως θα παραμείνουν μόνο μοναδικές τιμές. list.Add CStr (Value), CStr (Value) Next On Error GoTo 0 'Ορισμός του μήκους του πίνακα στον αριθμό των μοναδικών τιμών. Δεδομένου ότι ο πίνακας ξεκινά από 0, αφαιρούμε 1. ReDim Ulist (list.Count - 1, 0) «Προσθήκη μοναδικής τιμής στον πίνακα. Για i = 0 Για λίστα. Αριθμός - 1 Ulist (i, 0) = λίστα (i + 1) Επόμενο 'Εκτύπωση του πίνακα UNIQUES = Λειτουργία λήξης Ulist
Αντιγράψτε τον κώδικα στο VB editor του excel.
Χρήση της λειτουργίας ΜΟΝΑΔΙΚΗ
Η παραπάνω συνάρτηση είναι μια συνάρτηση πίνακα πολλαπλών κυττάρων που ορίζεται από το χρήστη. Αυτό σημαίνει ότι πρέπει να επιλέξετε το εύρος όπου θέλετε να εκτυπωθεί η μοναδική λίστα, στη συνέχεια να γράψετε τον τύπο και να πατήσετε το συνδυασμό πλήκτρων CTRL+SHIFT+ENTER.
Στο παραπάνω gif, έχουμε μια λίστα χωρών. Τώρα υπάρχουν πολλές διπλές χώρες στη λίστα. Θέλουμε να λάβουμε τη λίστα μόνο με μοναδικές χώρες.
Για να το κάνετε αυτό, επιλέξτε μια περιοχή όπου θέλετε τη μοναδική λίστα. Τώρα γράψτε αυτόν τον τύπο:
| = ΜΟΝΑΔΙΚΑ (A2: B7) |
Πατήστε το συνδυασμό πλήκτρων CTRL+SHIFT+ENTER. Και γίνεται. Όλες οι μοναδικές τιμές παρατίθενται στο επιλεγμένο εύρος.
Σημείωση:Εάν το εύρος που έχετε επιλέξει είναι μεγαλύτερο από τη μοναδική τιμή, τότε θα εμφανίσει σφάλμα #N/A. Μπορείτε να το χρησιμοποιήσετε ως ένδειξη λήξης μοναδικών τιμών. Εάν δεν βλέπετε #N/A στο τέλος της λίστας, αυτό σημαίνει ότι μπορεί να υπάρχουν περισσότερες μοναδικές τιμές.
Επεξήγηση του κώδικα
Έχω χρησιμοποιήσει δύο βασικές έννοιες του VBA σε αυτήν τη λειτουργία UD. Συλλογές και συνάρτηση πίνακα καθορισμένη από το χρήστη. Πρώτον, χρησιμοποιήσαμε μια συλλογή για να λάβουμε τις μοναδικές τιμές από το παρεχόμενο εύρος.
για κάθε τιμή στη λίστα rng. Προσθήκη CStr (Τιμή), CStr (Τιμή) Επόμενο επόμενο
Δεδομένου ότι δεν μπορούμε να εκτυπώσουμε μια συλλογή στο φύλλο, τη μεταφέραμε σε άλλο πίνακα UList.
για i = 0 Για λίστα. Αριθμός - 1 Ulist (i, 0) = λίστα (i + 1) Επόμενο επόμενο
Σημείωση:Η ευρετηρίαση πίνακα VBA ξεκινά από το 0 και η ευρετηρίαση συλλογής ξεκινά από το 1. Αυτός είναι ο λόγος για τον οποίο αφαιρέσαμε το 1 για τον πίνακα για τον βρόχο και προσθέσαμε το 1 στο ευρετήριο της συλλογής λιστών.
Στο τέλος, έχουμε εκτυπώσει αυτόν τον πίνακα στο φύλλο.
Υπάρχει μια ΜΟΝΑΔΙΚΗ συνάρτηση που δεν είναι διαθέσιμη στο excel 2016 και κάνει το ίδιο πράγμα. Αυτή η συνάρτηση είναι διαθέσιμη στο Excel 2019. Μόνο τα μέλη του προγράμματος του insider έχουν πρόσβαση σε αυτήν τη λειτουργία. Χρησιμοποιώντας αυτήν την τεχνική, μπορείτε να επιδείξετε στο γραφείο ότι είστε μπροστά από το MS.
Λοιπόν, ναι, έτσι μπορείτε να δημιουργήσετε μια συνάρτηση που εξάγει μοναδικές τιμές απλά. Ελπίζω να ήμουν αρκετά επεξηγηματικός για να σας κάνω να το καταλάβετε. Εάν έχετε οποιεσδήποτε συγκεκριμένες ερωτήσεις σχετικά με αυτήν ή οποιαδήποτε άλλη ερώτηση που σχετίζεται με το Excel VBA, κάντε το στην παρακάτω ενότητα σχολίων.
Κάντε κλικ στον παρακάτω σύνδεσμο για να κατεβάσετε το αρχείο εργασίας:
UNIQUES συνάρτησηΠώς να χρησιμοποιήσετε τις Συλλογές VBA στο Excel | Μάθετε τη χρήση της συλλογής που μπορεί να σας βοηθήσει να αποκτήσετε μοναδικές τιμές.
Δημιουργία συνάρτησης VBA για επιστροφή πίνακα | Μάθετε πώς μπορείτε να δημιουργήσετε μια συνάρτηση πίνακα που ορίζεται από το χρήστη και επιστρέφει έναν πίνακα.
Arrays in Excel Formul | Μάθετε τι είναι οι πίνακες στο excel.
Πώς να δημιουργήσετε μια συνάρτηση καθορισμένη από το χρήστη μέσω VBA | Μάθετε πώς μπορείτε να δημιουργήσετε συναρτήσεις που καθορίζονται από το χρήστη στο Excel
Χρήση συνάρτησης καθορισμένης από το χρήστη (UDF) από άλλο βιβλίο εργασίας χρησιμοποιώντας VBA στο Microsoft Excel | Χρησιμοποιήστε τη συνάρτηση που ορίζεται από το χρήστη σε άλλο βιβλίο εργασίας του Excel
Επιστρέψτε τιμές σφάλματος από συναρτήσεις που ορίζονται από τον χρήστη χρησιμοποιώντας VBA στο Microsoft Excel | Μάθετε πώς μπορείτε να επιστρέψετε τιμές σφάλματος από μια συνάρτηση που ορίζεται από το χρήστη