Πώς να ταξινομήσετε αυτόματα στήλη ανά τιμή στο Excel;
Για παράδειγμα, έχετε έναν πίνακα αγορών όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τώρα θέλετε η στήλη Τιμή να ταξινομείται αυτόματα όταν εισάγετε νέους αριθμούς/τιμές σε αυτήν τη στήλη, πώς θα μπορούσατε να το λύσετε; Εδώ παρουσιάζω μια μακροεντολή VBA για να σας βοηθήσω να ταξινομήσετε αυτόματα μια συγκεκριμένη στήλη ανά τιμή στο Excel.
Αυτόματη ταξινόμηση στήλης κατά τιμή με VBA
Αυτόματη ταξινόμηση στήλης κατά τιμή με VBA
Αυτή η μακροεντολή VBA θα ταξινομήσει αυτόματα όλα τα δεδομένα σε μια συγκεκριμένη στήλη μόλις εισαγάγετε νέα δεδομένα ή αλλάξετε την τιμή στη στήλη στο Excel.
1. Κάντε δεξί κλικ στο τρέχον όνομα φύλλου στο Γραμμή καρτέλας φύλλου, και στη συνέχεια κάντε κλικ στο κουμπί Προβολή κωδικού από το μενού με δεξί κλικ.
2. Στο παράθυρο διαλόγου Microsoft Visual Basic for Application που ανοίγει, επικολλήστε τον ακόλουθο κώδικα μακροεντολής VBA στο παράθυρο ανοίγματος.
VBA: Αυτόματη ταξινόμηση στήλης στο Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Note:
1) Στον παραπάνω κώδικα vba, ΒΒ σημαίνει ότι θα ταξινομήσει αυτόματα τη στήλη Β, B1 είναι το πρώτο κελί στη στήλη Β, B2 είναι το δεύτερο κελί στη Στήλη Β και μπορείτε να τα αλλάξετε με βάση τις ανάγκες σας.
2) Το απόσπασμα Κεφαλίδα:=xlΝαι στην 5η σειρά λέει στο Excel ότι η περιοχή που θα ταξινομήσετε έχει μια κεφαλίδα, έτσι ώστε η πρώτη σειρά της περιοχής να μην περιλαμβάνεται κατά την ταξινόμηση. Εάν δεν υπάρχει κεφαλίδα, αλλάξτε την σε Κεφαλίδα:=xlΌχι; και αλλαγή Key1:=Εύρος ("B2") στην 4η σειρά για να Key1:=Εύρος ("B1").
3. Στη συνέχεια, επιστρέψτε στο φύλλο εργασίας, όταν εισαγάγετε έναν νέο αριθμό στη στήλη Τιμή ή τροποποιήσετε τυχόν υπάρχουσες τιμές, η στήλη Τιμή θα ταξινομηθεί αυτόματα σε αύξουσα σειρά.
Note: Όταν εισάγετε έναν νέο αριθμό στη στήλη Τιμή, πρέπει να εισαγάγετε τον αριθμό στο πρώτο κενό κελί κάτω από τους αρχικούς αριθμούς. Εάν υπάρχουν κενά κελιά μεταξύ του νέου εισαγόμενου αριθμού και των αρχικών αριθμών, καθώς και κενά κελιά μεταξύ των αρχικών αριθμών, αυτή η στήλη δεν θα ταξινομηθεί αυτόματα.
Επίδειξη: Αυτόματη ταξινόμηση στήλης ανά τιμή με VBA στο Excel
Εύκολη ταξινόμηση κατά συχνότητα εμφανίσεων στο Excel
Kutools για Excel Προηγμένη ταξινόμηση Το βοηθητικό πρόγραμμα υποστηρίζει γρήγορη ταξινόμηση δεδομένων κατά μήκος κειμένου, επώνυμο, απόλυτη τιμή, συχνότητα κ.λπ. στο Excel.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!