Πώς να εξαγάγετε αριθμό μόνο από συμβολοσειρά κειμένου στο Excel;
Θέλατε ποτέ να εξαγάγετε αριθμούς μόνο από μια λίστα συμβολοσειρών στο Excel; Εδώ σας παρουσιάζω μερικούς τρόπους για να εξαγάγετε μόνο αριθμούς γρήγορα και εύκολα στο Excel.
Μέθοδος 1: Εξαγωγή αριθμού μόνο από συμβολοσειρές κειμένου με τύπο
Μέθοδος 2: Εξαγωγή αριθμού μόνο από συμβολοσειρές κειμένου με κωδικό VBA
Μέθοδος 3: Εξαγωγή αριθμού μόνο από συμβολοσειρά κειμένου με Kutools για Excel
Μέθοδος 4: Εξαγωγή δεκαδικού αριθμού μόνο από συμβολοσειρά κειμένου με τύπο
Μέθοδος 1: Εξαγωγή αριθμού μόνο από συμβολοσειρές κειμένου με τύπο
Ο παρακάτω μακρύς τύπος μπορεί να σας βοηθήσει να εξαγάγετε μόνο τους αριθμούς από τις συμβολοσειρές κειμένου, κάντε το ως εξής:
Επιλέξτε ένα κενό κελί όπου θέλετε να εξάγετε τον εξαγόμενο αριθμό και, στη συνέχεια, πληκτρολογήστε αυτόν τον τύπο: = SUMPRODUCT (MID (0 & A5, LARGE (INDEX (ISNUMBER (- MID (A5, ROW (INDIRECT ("1:" & LEN (A5))), 1)) ROW (INDIRECT ("1:" & LEN (A5)) )), 0), ROW (INDIRECT ("1:" & LEN (A5)))) + 1, 1) * 10 ^ ROW (INDIRECT ("1:" & LEN (A5))) / 10)και, στη συνέχεια, σύρετε τη λαβή πλήρωσης για να συμπληρώσετε το εύρος που χρειάζεστε για να εφαρμόσετε αυτόν τον τύπο. Δείτε το στιγμιότυπο οθόνης:
:
- 1. A5 αντιπροσωπεύει τα πρώτα δεδομένα που θέλετε να εξαγάγετε αριθμούς μόνο από τη λίστα.
- 2. Το αποτέλεσμα θα εμφανίζεται ως 0 όταν δεν υπάρχουν αριθμοί στη συμβολοσειρά.
Εξαγωγή αριθμών μόνο από συμβολοσειρές κειμένου:
Με Kutools για Excel'S ΕΚΧΥΛΙΣΜΑΤΑ συνάρτηση, μπορείτε να εξαγάγετε γρήγορα μόνο αριθμούς από τα κελιά συμβολοσειράς κειμένου. Κάντε κλικ για λήψη του Kutools για Excel!
Μέθοδος 2: Εξαγωγή αριθμού μόνο από συμβολοσειρές κειμένου με κωδικό VBA
Εδώ είναι ένας κωδικός VBA που μπορεί επίσης να σας βοηθήσει, κάντε τα εξής:
1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Εξαγωγή αριθμού μόνο από συμβολοσειρά κειμένου:
Sub ExtrNumbersFromRange()
Dim xRg As Range
Dim xDRg As Range
Dim xRRg As Range
Dim nCellLength As Integer
Dim xNumber As Integer
Dim strNumber As String
Dim xTitleId As String
Dim xI As Integer
xTitleId = "KutoolsforExcel"
Set xDRg = Application.InputBox("Please select text strings:", xTitleId, "", Type:=8)
If TypeName(xDRg) = "Nothing" Then Exit Sub
Set xRRg = Application.InputBox("Please select output cell:", xTitleId, "", Type:=8)
If TypeName(xRRg) = "Nothing" Then Exit Sub
xI = 0
strNumber = ""
For Each xRg In xDRg
xI = xI + 1
nCellLength = Len(xRg)
For xNumber = 1 To nCellLength
If IsNumeric(Mid(xRg, xNumber, 1)) Then
strNumber = strNumber & Mid(xRg, xNumber, 1)
End If
Next xNumber
xRRg.Item(xI) = strNumber
strNumber = ""
Next xRg
End Sub
3. Και μετά, πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και εμφανίζεται ένα πλαίσιο προτροπής για να υπενθυμίσετε την επιλογή του εύρους κειμένου που θέλετε να χρησιμοποιήσετε, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στο κουμπί OK, ακολουθεί ένα άλλο πλαίσιο προτροπής, επιλέξτε ένα κελί για έξοδο του αποτελέσματος, δείτε το στιγμιότυπο οθόνης:
5. Επιτέλους, κάντε κλικ στο κουμπί OK κουμπί και όλοι οι αριθμοί στα επιλεγμένα κελιά έχουν εξαχθεί ταυτόχρονα.
Μέθοδος 3: Εξαγωγή αριθμού μόνο από συμβολοσειρά κειμένου με Kutools για Excel
Kutools για Excel έχει επίσης μια ισχυρή λειτουργία που ονομάζεται ΕΚΧΥΛΙΣΜΑΤΑ, με αυτήν τη λειτουργία, μπορείτε να εξαγάγετε γρήγορα μόνο τους αριθμούς από τις αρχικές συμβολοσειρές κειμένου.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Κάντε κλικ σε ένα κελί εκτός από τη συμβολοσειρά κειμένου όπου θα βάλετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Λειτουργίες Kutools > Κείμενο > ΕΚΧΥΛΙΣΜΑΤΑ, δείτε το στιγμιότυπο οθόνης:
3. Στην Επιχειρήματα Λειτουργίας διαλόγου, επιλέξτε ένα κελί που θέλετε να εξαγάγετε τους αριθμούς από το Κείμενο πλαίσιο κειμένου και μετά εισαγάγετε αληθής or ψευδής μέσα στο N πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:
Note: η διένεξη N είναι ένα προαιρετικό στοιχείο, εάν εισάγετε αληθής, θα επιστρέψει τους αριθμούς ως αριθμητικά, εάν εισαγάγετε ψευδής, θα επιστρέψει τους αριθμούς ως μορφή κειμένου, η προεπιλογή είναι ψευδής, ώστε να μπορείτε να τον αφήσετε κενό.
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, οι αριθμοί έχουν εξαχθεί από το επιλεγμένο κελί και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να εφαρμόσετε αυτήν τη λειτουργία, θα λάβετε το ακόλουθο αποτέλεσμα:
Κάντε κλικ για λήψη και δωρεάν δοκιμή Kutools για Excel τώρα!
Μέθοδος 4: Εξαγωγή δεκαδικού αριθμού μόνο από συμβολοσειρά κειμένου με τύπο
Εάν οι συμβολοσειρές κειμένου που περιλαμβάνουν ορισμένους δεκαδικούς αριθμούς στο φύλλο εργασίας σας, πώς θα μπορούσατε να εξαγάγετε μόνο τους δεκαδικούς αριθμούς από τις συμβολοσειρές κειμένου;
Ο παρακάτω τύπος μπορεί να σας βοηθήσει να εξαγάγετε τους δεκαδικούς αριθμούς από τις συμβολοσειρές κειμένου γρήγορα και εύκολα.
Εισαγάγετε αυτόν τον τύπο:=LOOKUP(9.9E+307,--LEFT(MID(A5,MIN(FIND({1,2,3,4,5,6,7,8,9,0}, $A5&"1023456789")),999),ROW(INDIRECT("1:999")))), Και, στη συνέχεια, συμπληρώστε τη λαβή στα κελιά που θέλετε να περιέχει αυτόν τον τύπο, όλοι οι δεκαδικοί αριθμοί έχουν εξαχθεί από τις συμβολοσειρές κειμένου, δείτε το στιγμιότυπο οθόνης:
Εξαγάγετε τον αριθμό μόνο από συμβολοσειρές με το Kutools για Excel
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!