Excel - πώς να διατηρείτε μόνο τα ψηφία από ένα κελί και όχι τα γράμματα.
Δες το βίντεο
- Ελέγξτε μια στήλη για να δείτε αν υπάρχουν ψηφία στον κώδικα
- Μέθοδος λογαριασμού 1:
- Συμπλήρωση Flash
- Μέθοδος Mike:
- Χρησιμοποιήστε τη συνάρτηση SUBSTITUTE με μια σταθερά Array.
- Δεν θα χρειαστεί να χρησιμοποιήσετε το Ctrl + Shift + Enter επειδή είναι μια σταθερά πίνακα
- Αυτό θα αφαιρέσει ένα ψηφίο κάθε φορά
- Χρησιμοποιήστε τη συνάρτηση AND για να δείτε εάν κάθε στοιχείο στον πίνακα που προκύπτει είναι ίσο με το αρχικό στοιχείο
- Μέθοδος λογαριασμού 3:
- Χρησιμοποιήστε μια συνάρτηση VBA για να ελέγξετε για ψηφία
Μεταγραφή βίντεο
Μπιλ: Γεια. Καλως ορισες πισω. Ήρθε η ώρα για ένα άλλο Dueling Excel Podcast. Είμαι ο Μπιλ Τζέλεν από. Θα ενωθώ με τον Mike Girvin από το ExcelIsFun. Αυτό είναι το επεισόδιο μας 186: ναι, εάν υπάρχουν ψηφία στο κελί. Η σημερινή ερώτηση αποστέλλεται από τον Jen, έχει 13.000 σειρές δεδομένων, πρέπει να κοιτάξει μέσα από ένα κελί, εάν οποιοσδήποτε χαρακτήρας είναι ψηφίο, σημειώστε το ως Ναι, διαφορετικά όχι. Εντάξει. Λοιπόν, Mike, ελπίζω να έχεις κάποιον φοβερό τρόπο να το κάνεις αυτό γιατί δεν το κάνω.
Πρόκειται να χρησιμοποιήσω το flash fill και, στο flash fill, απλώς πρόκειται να του δώσω ένα μοτίβο εδώ με μερικά γράμματα και αριθμούς. Θέλω να βεβαιωθώ ότι συμπεριλαμβάνω όλους τους πιθανούς αριθμούς έτσι ώστε να καταλαβαίνει τι κάνω και 0 έτσι. Λοιπόν, υπάρχουν τα αρχικά δεδομένα και, στη συνέχεια, θα το φτιάξω φλας για να το διορθώσω και, στην σταθερή έκδοση, θα απαλλαγούμε από όλα τα ψηφία. Έτσι, θα κοιτάξω και θα δω αν υπάρχει ένα ψηφίο. Εάν υπάρχει, απαλλαγείτε από αυτό και, στη συνέχεια, πατήστε CONTROL + E για να γεμίσετε με φλας, και αυτό που πρέπει να έχουμε είναι τώρα όλα τα γράμματα, μόνο τα γράμματα.
Και τότε το ερώτημα είναι, άλλαξε; Άρα = Αν αυτό είναι = σε αυτό που ψάχνουμε, τότε αυτό σημαίνει ότι δεν υπήρχαν αλλαγές, ούτε ψηφία, τότε λέμε Όχι, διαφορετικά ναι, έτσι, και κάντε διπλό κλικ, αντιγράψτε το κάτω, εντάξει και τότε οτιδήποτε με όχι δεν έχει ψηφία εκεί. Απαλλαγούμε από την αρχική σειρά μας, και μόλις το αντιγράψουμε, CONTROL + C, ALT + E, S, V και μπορούμε να απαλλαγούμε από το γέμισμα του φλας. Εντάξει, Μάικ. Ας δούμε τι έχετε. (= IF (A2 = B2, "Όχι", "Ναι"))
Μάικ: Ουάου ,. Αυτή πρέπει να είναι η πιο εκπληκτική δημιουργική μοναδική χρήση του flash fill που νομίζω ότι έχω δει ποτέ. Εφευρέσατε ένα κείμενο, αφαιρέσατε τους πραγματικούς αριθμούς, CONTROL + E, και αμέσως εξήγαγε όλους τους αριθμούς και παραδώσατε μια νέα συμβολοσειρά κειμένου χωρίς τους αριθμούς και, στη συνέχεια, πραγματοποιήσατε το IF Απολύτως όμορφο.
Καλώς. Θα έρθω σε αυτό το φύλλο εδώ και θα χρησιμοποιήσω τη συνάρτηση SUBSTITUTE. Τώρα, SUBSTITUTE, θα το πω να κοιτάξει εκείνο το κείμενο εκεί, και το OLD_TEXT που θέλω να βρω και να αφαιρέσω, καλά, είναι όλα τα ψηφία. Έτσι, πρόκειται να δημιουργήσω μια σταθερά πίνακα (1, 2, 3, 4, 5 όλα τα ψηφία και). Τώρα αυτή είναι μια σταθερά πίνακα και κάθεται στο OLD_TEXT επειδή δεν βάζω ούτε ένα στοιχείο εκεί, αλλά αντίθετα βάζω ένα σωρό αντικείμενα. Αυτή είναι μια λειτουργία συστοιχίας ορίσματος συνάρτησης. Υπάρχουν 10 διαφορετικά αντικείμενα εδώ, τα οποία θα δώσουν εντολή στο SUBSTITUTE να παραδώσει 10 ξεχωριστά αντικείμενα, σωστά και αν βρει ένα από αυτά τα αντικείμενα, τι θέλω; "". Αυτό θα πει τη λειτουργία να μην βάλεις τίποτα εκεί,). (= ΥΠΟΣΥΣΤΗΜΑ (A2, (1,2,3,4,5,6,7,8,9,0), ""))
Τώρα, ο δρομέας μου στο τέλος. Όταν χτύπησα το πλήκτρο F9, αρκετά σίγουρος γιατί υπάρχει μόνο 0, όλα αυτά είναι ακριβώς ίδια εκτός από το τελευταίο. Για το τελευταίο, το SUBSTITUTE βρήκε το 0 και δεν έβαλε τίποτα στη θέση του. Τώρα, CONTROL-Z, CONTROL-ENTER και θα το αντιγράψω μέχρι εδώ, F2 και F9. Έτσι, αν πάμε στο 6, υπάρχει η έκδοση 5, το αφαίρεσε το 5 εκεί, το αφαίρεσε το 6 εκεί, και το αφαίρεσε το 8 εκεί, οπότε θα υπάρχουν 1, 2, 3 διαφορετικά αντικείμενα που είναι διαφορετικά. Μόνο όταν όλα τα αντικείμενα είναι ακριβώς ίδια με το αρχικό στοιχείο, θα μας πει ότι δεν υπάρχουν ψηφία. ΔΙΑΦΥΓΗ.
Θα επιστρέψω στην κορυφή. Ακούγεται σαν, F2, αυτό είναι ένα λογικό τεστ AND. ΚΑΙ λειτουργία. Θέλω να ελέγξω εάν κάθε ένα από αυτά τα στοιχεία σε αυτόν τον πίνακα που προκύπτει είναι = στο αρχικό στοιχείο. Όταν όλα είναι αλήθεια, τότε θα μου πει ότι δεν υπάρχουν αριθμοί σε αυτό το κουδούνισμα κειμένου. ), CONTROL + ENTER, παίρνω FALSE επειδή ένα από αυτά εσωτερικά λείπει από 0. Θα το αντιγράψω εδώ. Αυτό φυσικά θα έχει ΑΛΗΘΕΙΑ - το ίδιο με αυτά - γιατί όλα τα εσωτερικά παραγόμενα αντικείμενα, αν I F2 εδώ, όλα αυτά, F9, είναι ακριβώς ίδια με το πρωτότυπο. ΔΙΑΦΥΓΗ. Τώρα, ανεβαίνω στην κορυφή. Παρεμπιπτόντως, δεν χρειάστηκε να χρησιμοποιήσω το CONTROL + SHIFT + ENTER γιατί όταν χρησιμοποιείτε αυτήν τη σταθερά πίνακα στον τύπο πίνακα, τότε δεν χρειάζεται να χρησιμοποιήσετε το CONTROL + SHIFT + ENTER. (= ΚΑΙ (ΥΠΟΤΥΠΟ) (A2, (1,2,3,4,5,6,7,8,9,0), "") = A2))
Καλώς. Θα έρθω στην αρχή. Αυτή είναι η λογική μου δοκιμασία. Εάν όλα αυτά αποδειχθούν αληθινά, τιμή εάν είναι αληθινά, στο "ΟΧΙ", αλλιώς παρακαλώ ΝΑΙ ") CONTORL + ENTER. Κάντε διπλό κλικ σε αυτό. Θα πρέπει να κάνω διπλό κλικ σε αυτό και να το στείλω. Καλώς. Αυτό ήταν λίγο διασκεδαστικό με το SUBSTITUTE, μια σταθερά πίνακα, μια λογική δοκιμή AND και το IF, αλλά, σας λέω τι, ακόμα δεν μπορώ να πιστέψω αυτό το flash fill, πώς το χρησιμοποιούσατε, στην ουσία, να εξαγάγετε όλα τα αριθμοί από αυτό. Εντάξει, θα το ξαναδώσω, κύριε Έξσελ. (= IF (ΚΑΙ (ΥΠΟΤΥΠΟ) (A2, (1,2,3,4,5,6,7,8,9,0), "") = A2), "Όχι", "Ναι"))
Bill: Well, that formula with SUBSTITUTE and the array constant and AND, that is freaking amazing. I had to use flash fill because I couldn't have figured this one out. That is brilliant. Now, I do have a third way. Let's take a look at that.
Now, here's the way that I would really solve this, just a little bit of VBA. So, I do ALT+F11 to switch over to VBA, INSERT, MODULE, and then type this code. We're going to create a new function called HASNUMBERS and we're going to pass it to cell value, and we're going to start out with the word ALPHA. We look at every single character, and if that code, if the (ASC code - 06:35) of that character is between 48 to 57, then we say that it's NUMBERS, EXIT FUNCTION, and just keep going. Right, so, it looks until it finds a digit. When it does, it returns HASNUMBERS. So, here, we’re going to say =HASNUMBERS, point to that cell, and double-click to copy that down. Anytime it sees a digit over there, will get the NUMBERS, ALPHA, easy to sort them out. (=HasNumbers(A2))
Εντάξει, γρήγορη ανακεφαλαίωση επεισοδίων. Στόχος: ελέγξτε τη στήλη για να δείτε αν υπάρχουν ψηφία στον κωδικό χαρακτήρα, τον κωδικό στο κελί. Χρησιμοποίησα το flash fill για να αφαιρέσω τα ψηφία και μετά τη λειτουργία μήκους για να δω αν άλλαξε ή όχι. Ο Mike είχε μια λαμπρή φόρμουλα, λειτουργία SUBSTITUTE με σταθερά πίνακα. Δεν χρειάζεστε CONTROL + SHIFT + ENTER. Πρέπει να αφαιρέσετε ένα ψηφίο τη φορά και, στη συνέχεια, να χρησιμοποιήσετε τη συνάρτηση AND για να δείτε και τα 10 αποτελέσματα για να δείτε εάν κάθε ένα είναι ίσο με το αρχικό στοιχείο. Λαμπρός τρόπος να πάει και στη συνέχεια, η εναλλακτική μου, χρησιμοποιήστε μια λειτουργία VBA για να ελέγξετε για ψηφία.
Λοιπόν, γεια. Θέλω να ευχαριστήσω όλους που σταμάτησαν. Θα σας δούμε την επόμενη φορά για ένα άλλο netcast από και το ExcelIsFun.
Λήψη αρχείου
Κατεβάστε το δείγμα αρχείου εδώ: Duel186.xlsm
