Πώς να εξαγάγετε αριθμούς από μικτές αλφαριθμητικές συμβολοσειρές κειμένου στο Excel;
Αυτό το σεμινάριο παρέχει τρεις μεθόδους για την εξαγωγή αριθμών από μικτή αλφαριθμητική συμβολοσειρά κειμένου στο Excel.
Εξαγάγετε αριθμούς από μικτές αλφαριθμητικές συμβολοσειρές κειμένου με τύπο
Εξαγάγετε αριθμούς από μικτές αλφαριθμητικές συμβολοσειρές κειμένου με κωδικό VBA
Εξαγάγετε εύκολα αριθμούς από μικτές αλφαριθμητικές συμβολοσειρές κειμένου με ένα καταπληκτικό εργαλείο
Εξαγάγετε αριθμούς από μικτές αλφαριθμητικές συμβολοσειρές κειμένου με τύπο
Μπορείτε να εφαρμόσετε τον παρακάτω τύπο για να εξαγάγετε αριθμούς από οπουδήποτε σε μια συμβολοσειρά κειμένου στο Excel.
1. Επιλέξτε ένα κενό κελί για έξοδο των εξαγόμενων αριθμών, εισαγάγετε τον παρακάτω τύπο και πατήστε το εισάγετε κλειδί. Στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω για να εφαρμόσετε τον τύπο σε άλλα κελιά.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
Note: Στον τύπο, το A1 είναι το κελί που περιέχει τη συμβολοσειρά κειμένου που θέλετε να εξαγάγετε αριθμούς. Αλλάξτε το με βάση τις ανάγκες σας.
Στη συνέχεια, οι αριθμοί εξάγονται από οπουδήποτε σε μια συμβολοσειρά κειμένου σε καθορισμένα κελιά όπως φαίνεται στο παραπάνω στιγμιότυπο οθόνης.
Διατηρήστε μόνο τους αριθμούς σε μικτές αλφαριθμητικές συμβολοσειρές κειμένου με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αφαιρέσετε όλους τους μη αριθμητικούς χαρακτήρες από το καθορισμένο εύρος και να διατηρήσετε μόνο αριθμούς σε κελιά. Κάντε τα εξής:
Note: Καθώς ο κώδικας εκτελεί απευθείας το αρχικό εύρος, διατηρήστε ένα αντίγραφο του αρχικού εύρους σε περίπτωση απώλειας δεδομένων.
1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: καταργήστε όλους τους μη αριθμητικούς χαρακτήρες από τα κελιά
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Μετά ένα Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το εύρος που περιέχει τις μικτές αλφαριθμητικές συμβολοσειρές κειμένου που θα κρατήσετε μόνο τους αριθμούς και κάντε κλικ στο OK κουμπί.
Τώρα όλοι οι μη αριθμητικοί χαρακτήρες σε επιλεγμένο εύρος έχουν αφαιρεθεί αμέσως και διατηρούνται μόνο οι αριθμοί. Δείτε το στιγμιότυπο οθόνης:
Εξαγάγετε εύκολα αριθμούς από μικτές αλφαριθμητικές συμβολοσειρές κειμένου με το Kutools για Excel
Αυτή η ενότητα προτείνει το βοηθητικό πρόγραμμα εξαγωγής κειμένου του Kutools για Excel. Με αυτό το βοηθητικό πρόγραμμα, η εξαγωγή αριθμών από μια συμβολοσειρά κειμένου μπορεί να είναι εύκολη στη διαχείριση.
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. κλικ Kutools > Κείμενο > Εξαγωγή κειμένου για να ενεργοποιήσετε τη λειτουργία.
2. Στο Εξαγωγή κειμένου πλαίσιο διαλόγου, κάντε τις παρακάτω ρυθμίσεις.
Σημείωση: Έλεγξε το Εισαγωγή ως τύπος Το πλαίσιο στην κάτω αριστερή γωνία του διαλόγου θα εισαγάγει το αποτέλεσμα ως τύπο στα κελιά αποτελεσμάτων. Όταν αλλάξει η τιμή του κελιού αναφοράς, το αποτέλεσμα θα ενημερωθεί αυτόματα.
3. Στο Εξαγωγή κειμένου πλαίσιο διαλόγου, επιλέξτε ένα κενό κελί για έξοδο του εξαγόμενου κειμένου και, στη συνέχεια, κάντε κλικ στο Εντάξει.
Στη συνέχεια εξάγονται αριθμοί από οποιαδήποτε θέση σε μια συμβολοσειρά κειμένου. Δείτε το στιγμιότυπο οθόνης:
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!