Πώς να εξαγάγετε δυναμικά μια λίστα μοναδικών τιμών από μια περιοχή στηλών στο Excel;
Για ένα εύρος στηλών που οι τιμές αλλάζουν τακτικά και πρέπει πάντα να λαμβάνετε όλες τις μοναδικές τιμές από το εύρος, ανεξάρτητα από το πώς άλλαξε. Πώς να δημιουργήσετε μια δυναμική λίστα με μοναδικές τιμές; Αυτό το άρθρο θα σας δείξει πώς να το αντιμετωπίσετε.
Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με τύπο
Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με κώδικα VBA
Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με τύπο
Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, πρέπει να εξαγάγετε δυναμικά μια λίστα μοναδικών τιμών από το εύρος B2: B9. Δοκιμάστε τον ακόλουθο τύπο πίνακα.
1. Επιλέξτε ένα κενό κελί όπως το D2, εισαγάγετε τον παρακάτω τύπο και πατήστε το Ctrl + αλλαγή + εισάγετε ταυτόχρονα πλήκτρα. (B2: B9 είναι τα δεδομένα στηλών που θέλετε να εξαγάγετε τις μοναδικές τιμές, το D1 είναι το παραπάνω κελί όπου βρίσκεται ο τύπος σας)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Συνεχίστε να επιλέγετε το κελί D2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε όλες τις μοναδικές τιμές από το καθορισμένο εύρος.
Τώρα εξάγονται όλες οι μοναδικές τιμές στο εύρος στηλών B2: B9. Όταν αλλάξουν τιμές σε αυτό το εύρος, η μοναδική λίστα τιμών θα αλλάξει δυναμικά αμέσως.
Επιλέξτε και επισημάνετε εύκολα όλες τις μοναδικές τιμές σε μια σειρά στο Excel:
Η Επιλέξτε Διπλότυπα και μοναδικά κελιά χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να επιλέξετε και να επισημάνετε εύκολα όλες τις μοναδικές τιμές (συμπεριλάβετε τα πρώτα αντίγραφα) ή τις μοναδικές τιμές που εμφανίζονται μόνο μία φορά, καθώς και διπλές τιμές όπως χρειάζεστε όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Κατεβάστε το Kutools για Excel τώρα! (Δωρεάν διαδρομή 30 ημερών)
Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με κώδικα VBA
Μπορείτε επίσης να εξαγάγετε μια λίστα μοναδικών τιμών δυναμικά από ένα εύρος στηλών με τον ακόλουθο κώδικα VBA.
1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Μονάδα μέτρησης παράθυρο.
Κωδικός VBA: Εξαγωγή λίστας μοναδικών τιμών από ένα εύρος
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End Sub
Note: Στον κώδικα, το D2 είναι το κελί που θα εντοπίσετε τη μοναδική λίστα τιμών. Μπορείτε να το αλλάξετε όπως χρειάζεστε.
3. Επιστρέψτε στο φύλλο εργασίας, κάντε κλικ στο Κύριο θέμα > Σχήματα > ορθογώνιο παραλληλόγραμμο. Δείτε το στιγμιότυπο οθόνης:
4. Σχεδιάστε ένα ορθογώνιο στο φύλλο εργασίας σας και, στη συνέχεια, εισαγάγετε μερικές λέξεις που πρέπει να εμφανίζονται σε αυτό. Στη συνέχεια, κάντε δεξί κλικ και επιλέξτε Εκχώρηση μακροεντολής από το μενού με δεξί κλικ. Στο Εκχώρηση μακροεντολής πλαίσιο διαλόγου, επιλέξτε το Δημιουργία μοναδικής λίστας στο Όνομα μακροεντολής πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
5. Τώρα κάντε κλικ στο ορθογώνιο κουμπί, α Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το εύρος που περιέχει μοναδικές τιμές που πρέπει να εξαγάγετε και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Από τώρα και στο εξής, μπορείτε να επαναλάβετε το παραπάνω βήμα 5 για να ενημερώσετε αυτόματα τη λίστα μοναδικών τιμών.
Σχετικά Άρθρα:
- Πώς να δημιουργήσετε ένα δυναμικό μηνιαίο ημερολόγιο στο Excel;
- Πώς να εισαγάγετε εικόνα ή εικόνα δυναμικά σε κελί με βάση την τιμή κελιού στο Excel;
- Πώς να δημιουργήσετε δυναμικό υπερσύνδεσμο σε άλλο φύλλο στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!