Θέλετε να λάβετε τον αριθμό λέξεων στο Excel; Είτε το πιστεύετε είτε όχι, το Excel δεν διαθέτει ενσωματωμένο μετρητή λέξεων.
Αλλά μην ανησυχείτε.
Μια δροσερή δέσμη λειτουργιών excel (ή λίγο VBA εάν αισθάνεστε φανταχτερά) μπορεί εύκολα να το κάνει αυτό για εσάς.
Σε αυτό το σεμινάριο, θα δείξω μερικούς τρόπους για να μετρήσετε λέξεις στο Excel χρησιμοποιώντας απλούς τύπους. Και στο τέλος, θα καλύψει επίσης μια τεχνική για τη δημιουργία ενός προσαρμοσμένου τύπου χρησιμοποιώντας το VBA που θα σας δώσει γρήγορα τον αριθμό λέξεων οποιουδήποτε κειμένου σε οποιοδήποτε κελί.
Τύπος για να λάβετε Word Word στο Excel
Πριν σας δώσω τον ακριβή τύπο, ας καλύψουμε γρήγορα τη λογική για τον υπολογισμό των λέξεων.
Ας υποθέσουμε ότι έχω μια πρόταση όπως φαίνεται παρακάτω για την οποία θέλω να λάβω τον αριθμό των λέξεων.
Ενώ το Excel δεν μπορεί να μετρήσει τον αριθμό των λέξεων, μπορεί να μετρήσει τον αριθμό των κενών σε μια πρόταση.
Έτσι, για να πάρουμε τον αριθμό των λέξεων, μπορούμε να μετρήσουμε αυτά τα κενά αντί για λέξεις και να προσθέσουμε 1 στο σύνολο (καθώς ο αριθμός των διαστημάτων θα ήταν ένας λιγότερος από τον αριθμό των λέξεων).
Τώρα μπορεί να υπάρχουν δύο δυνατότητες:
- Υπάρχει ένας ενιαίος χώρος μεταξύ κάθε λέξης
- Υπάρχουν πολλά κενά μεταξύ των λέξεων.
Ας δούμε λοιπόν πώς να μετρήσουμε τον συνολικό αριθμό λέξεων σε κάθε περίπτωση.
Παράδειγμα 1 - Όταν υπάρχει ένα ενιαίο διάστημα μεταξύ των λέξεων
Ας πούμε ότι έχω το ακόλουθο κείμενο στο κελί Α1: Αφήστε τη γάτα έξω από την τσάντα
Για να μετρήσετε τον αριθμό των λέξεων, εδώ είναι ο τύπος που θα χρησιμοποιούσα:
= LEN (A1) -LEN (SUBSTITUTE (A1, "", ""))+1
Αυτό θα επέστρεφε το '7' ως αποτέλεσμα.
Δείτε πώς λειτουργεί αυτός ο τύπος:
- ΦΑΚΟΣ (Α1) - Αυτό το μέρος του τύπου επιστρέφει 26, που είναι ο συνολικός αριθμός χαρακτήρων στο κείμενο στο κελί A1. Περιλαμβάνει τους χαρακτήρες κειμένου καθώς και τους χαρακτήρες χώρου.
- SUBSTITUTE (A1, "", "") - Αυτό το μέρος του τύπου αφαιρεί όλα τα κενά από το κείμενο. Το αποτέλεσμα λοιπόν, σε αυτή την περίπτωση, θα ήταν Letthecatoutofthebag.
- LEN (ΑΝΤΙΚΑΤΑΣΤΑΣΗ (A1, "",“”) - Αυτό το μέρος του τύπου μετρά τον συνολικό αριθμό χαρακτήρων στο κείμενο που δεν έχει κενά. Άρα το αποτέλεσμα θα ήταν 20.
- LEN (A1) -LEN (SUBSTITUTE (A1, ”“ “,“”)) - Αυτό θα αφαιρούσε το μήκος κειμένου χωρίς κενά από το μήκος του κειμένου με κενά. Στο παραπάνω παράδειγμα, θα ήταν 26-20 που είναι 6.
- = LEN (A1) -LEN (SUBSTITUTE (A1, "" ",“”))+1 - Προσθέτουμε 1 στο συνολικό αποτέλεσμα καθώς ο συνολικός αριθμός κενών είναι ένας μικρότερος από τον συνολικό αριθμό λέξεων. Για παράδειγμα, υπάρχει ένα διάστημα σε δύο λέξεις και δύο κενά σε τρεις λέξεις.
Τώρα, αυτό λειτουργεί καλά αν έχετε μόνο έναν κενό χαρακτήρα μεταξύ των λέξεων. Αλλά δεν θα λειτουργούσε αν είχατε περισσότερα από ένα κενά μεταξύ των λέξεων.
Σε αυτήν την περίπτωση, χρησιμοποιήστε τον τύπο στο επόμενο παράδειγμα.
Παράδειγμα 2: Όταν υπάρχουν πολλά κενά μεταξύ των λέξεων
Ας υποθέσουμε ότι έχετε το ακόλουθο κείμενο: Αφήστε τη γάτα έξω από την τσάντα
Σε αυτήν την περίπτωση, υπάρχουν πολλοί χαρακτήρες χώρου μεταξύ των λέξεων.
Για να λάβουμε τον αριθμό των λέξεων, πρέπει πρώτα να αφαιρέσουμε όλα τα επιπλέον κενά (έτσι ώστε να υπάρχει μόνο ένας χαρακτήρας διαστήματος μεταξύ δύο λέξεων) και στη συνέχεια να μετρήσουμε τον συνολικό αριθμό κενών.
Εδώ είναι ο τύπος που θα μας δώσει τον σωστό αριθμό λέξεων:
= LEN (TRIM (A1))-LEN (SUBSTITUTE (A1, "", ""))+1
Αυτός είναι ένας παρόμοιος τύπος που χρησιμοποιήθηκε στο παραπάνω παράδειγμα, με μια μικρή αλλαγή - έχουμε επίσης χρησιμοποιήσει τη συνάρτηση TRIM εδώ.
Η συνάρτηση TRIM του Excel καταργεί τυχόν κενά, πίσω και επιπλέον κενά (εκτός από τα κενά μεταξύ των λέξεων).
Ο υπόλοιπος τύπος λειτουργεί το ίδιο (όπως εξηγείται στο Παράδειγμα 1).
Σημείωση: Εάν δεν υπάρχουν κενά μεταξύ των λέξεων, θεωρείται ως μία λέξη.
Χρήση της προσαρμοσμένης συνάρτησης VBA για την καταμέτρηση λέξεων στο Excel
Ενώ οι παραπάνω τύποι λειτουργούν τέλεια, εάν χρειάζεστε να υπολογίζετε συχνά τον αριθμό λέξεων, μπορείτε να χρησιμοποιήσετε το VBA για να δημιουργήσετε μια προσαρμοσμένη συνάρτηση (που ονομάζεται επίσης συνάρτηση καθορισμένη από το χρήστη).
Το όφελος από τη χρήση μιας προσαρμοσμένης συνάρτησης είναι ότι μπορείτε να τη δημιουργήσετε μία φορά και στη συνέχεια να τη χρησιμοποιήσετε όπως κάθε άλλη κανονική συνάρτηση Excel. Έτσι, αντί να δημιουργήσετε έναν μακρύ πολύπλοκο τύπο όπως κάναμε στα δύο παραπάνω παραδείγματα, έχετε έναν απλό τύπο που παίρνει την αναφορά κελιού και σας δίνει αμέσως τον αριθμό λέξεων.
Ακολουθεί ο κώδικας που θα δημιουργήσει αυτήν την προσαρμοσμένη συνάρτηση για να λάβετε τον αριθμό λέξεων στο Excel.
Λειτουργία WordCount (CellRef As Range) Dim TextStrng As String Dim Result () As String Result = Split (WorksheetFunction.Trim (CellRef.Text), "") WordCount = UBound (Result ()) + 1 End End
Μόλις δημιουργηθεί, μπορείτε να χρησιμοποιήσετε τη συνάρτηση WordCount όπως κάθε άλλη κανονική συνάρτηση Excel.
Στον παραπάνω κώδικα για την προσαρμοσμένη συνάρτηση, χρησιμοποίησα τη συνάρτηση TRIM του φύλλου εργασίας για να καταργήσω τυχόν κενά, πίσω και διπλά κενά μεταξύ των λέξεων. Αυτό διασφαλίζει ότι και τα τρία κελιά δίνουν το ίδιο αποτέλεσμα, καθώς μετρώνται μόνο οι λέξεις και όχι τα διπλά κενά.
Πώς λειτουργεί αυτός ο τύπος:
Ο παραπάνω κώδικας VBA χρησιμοποιεί πρώτα τη συνάρτηση TRIM για να αφαιρέσει όλα τα κύρια, πίσω και διπλά κενά από τη συμβολοσειρά κειμένου στο κελί που αναφέρεται.
Μόλις έχει καθαρίσει τη συμβολοσειρά, χρησιμοποιεί τη συνάρτηση SPLIT στο VBA για να χωρίσει τη συμβολοσειρά κειμένου με βάση τον οριοθέτη, τον οποίο έχουμε ορίσει ως χαρακτήρα διαστήματος. Έτσι, κάθε λέξη διαχωρίζεται ως αποθηκευμένη ως ξεχωριστό στοιχείο στη μεταβλητή Αποτέλεσμα.
Στη συνέχεια, χρησιμοποιούμε τη συνάρτηση UBOUND για να μετρήσουμε τον συνολικό αριθμό στοιχείων που αποθηκεύτηκαν στις μεταβλητές Αποτέλεσμα. Δεδομένου ότι η VBA έχει μια βάση 0, πρέπει να προσθέσουμε 1 για να λάβουμε τον συνολικό αριθμό λέξεων.
Αυτό σημαίνει ότι το αποτέλεσμα (0) αποθηκεύει την πρώτη λέξη, το αποτέλεσμα (1) αποθηκεύει τη δεύτερη λέξη και ούτω καθεξής. Δεδομένου ότι αυτή η καταμέτρηση ξεκινά από το 0, πρέπει να προσθέσουμε 1 για να λάβουμε τον πραγματικό αριθμό λέξεων.
Πού να τοποθετήσετε αυτόν τον κωδικό;
Κατά τη δημιουργία μιας προσαρμοσμένης συνάρτησης, πρέπει να βάλετε τον κώδικα στο VB Editor του βιβλίου εργασίας (το οποίο είναι το πίσω μέρος του βιβλίου εργασίας όπου μπορείτε να γράψετε κώδικα για αυτοματοποίηση εργασιών και δημιουργία προσαρμοσμένων λειτουργιών).
Παρακάτω είναι τα βήματα για να βάλετε τον κώδικα για τη συνάρτηση "GetNumeric" στο βιβλίο εργασίας.
- Μεταβείτε στην καρτέλα Προγραμματιστής.
- Κάντε κλικ στην επιλογή Visual Basic. Αυτό θα ανοίξει τον επεξεργαστή VB στο backend.
- Στο παράθυρο Project Explorer στο VB Editor, κάντε δεξί κλικ σε οποιοδήποτε αντικείμενο για το βιβλίο εργασίας στο οποίο θέλετε να εισαγάγετε τον κώδικα. Εάν δεν βλέπετε το Project Explorer, μεταβείτε στην καρτέλα Προβολή και κάντε κλικ στο Project Explorer.
- Μεταβείτε στην επιλογή Εισαγωγή και κάντε κλικ στην ενότητα. Αυτό θα εισαγάγει ένα αντικείμενο ενότητας για το βιβλίο εργασίας σας.
- Αντιγράψτε και επικολλήστε τον κώδικα στο παράθυρο της λειτουργικής μονάδας.
Αφού αντιγράψετε τον κώδικα στο παράθυρο κώδικα, μπορείτε να επιστρέψετε στο φύλλο εργασίας σας και να χρησιμοποιήσετε αυτήν τη λειτουργία όπως κάθε άλλη κανονική συνάρτηση Excel.
Απλά γράψε = Λέξη και θα σας δείξει τον τύπο στη λίστα.
Χρειάζεται ένα όρισμα, το οποίο είναι η αναφορά κελιού και σας δίνει αμέσως τον αριθμό λέξεων σε αυτό.
