Μετάβαση στο κύριο περιεχόμενο

Πώς να σπάσετε ή να χωρίσετε τον αριθμό σε μεμονωμένα ψηφία στο Excel;

Ας υποθέσουμε ότι πρέπει να σπάσετε ή να χωρίσετε τον αριθμό σε μεμονωμένα ψηφία όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, τι μπορείτε να κάνετε για να το επιτύχετε; Αυτό το άρθρο θα παρέχει δύο μεθόδους για εσάς.

Σπάστε ή χωρίστε τον αριθμό σε μεμονωμένα ψηφία με τον τύπο
Διασπάστε ή χωρίστε τον αριθμό σε μεμονωμένα ψηφία με το Kutools για Excel


Σπάστε ή χωρίστε τον αριθμό σε μεμονωμένα ψηφία με τον τύπο

Αυτή η ενότητα θα δείξει έναν τύπο για να χωρίσετε επιλεγμένα αριθμητικά κελιά σε μεμονωμένα ψηφία στο Excel.

1. Επιλέξτε ένα κενό κελί (δηλώνει το κελί C1) για τον εντοπισμό του πρώτου ψηφίου αριθμού διαίρεσης στο κελί A1 και, στη συνέχεια, εισαγάγετε τον τύπο = MID ($ A1, COLUMN () - (COLUMN (C1 $ - 1), 1) στη γραμμή τύπων και, στη συνέχεια, πατήστε το εισάγετε κλειδί.

Note: Στον τύπο, το A1 είναι το κελί με τον αριθμό που πρέπει να χωρίσετε σε ψηφία και το C1 είναι το κελί για τον εντοπισμό του πρώτου ψηφίου split. Αλλάξτε τα όπως χρειάζεστε.

2. Συνεχίστε να επιλέγετε το κελί C1 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης στα δεξιά κελιά μέχρι να διαχωριστούν όλα τα ψηφία του κελιού Α1.

3. Διατηρήστε επιλεγμένα αυτά τα διαχωρισμένα κελιά ψηφίων και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά έως ότου όλοι οι αριθμοί χωριστούν σε ξεχωριστά ψηφία. Δείτε το στιγμιότυπο οθόνης:


Διασπάστε ή χωρίστε τον αριθμό σε μεμονωμένα ψηφία με το Kutools για Excel

Η Διαίρεση κελιών χρησιμότητα του Kutools για Excel σας βοηθά να χωρίσετε εύκολα όλα τα επιλεγμένα αριθμητικά κελιά σε μεμονωμένα ψηφία ταυτόχρονα. Κάντε τα εξής:

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Επιλέξτε κελιά με αριθμό που πρέπει να χωρίσετε σε ψηφία και, στη συνέχεια, κάντε κλικ στο Kutools > Συγχώνευση & διαχωρισμός > Διαίρεση κελιών. Δείτε το στιγμιότυπο οθόνης:

2. Στο Διαίρεση κελιών πλαίσιο διαλόγου, επιλέξτε Διαχωρισμός σε στήλες επιλογή του Χαρακτηριστικά ενότητα και στην ενότητα Καθορισμός διαχωριστικού, επιλέξτε Καθορισμός πλάτους και εισαγάγετε τον αριθμό 1 στο πλαίσιο κειμένου. Κάντε κλικ στο OK κουμπί.

3. Στο επόμενο αναδυόμενο παράθυρο Διαίρεση κελιών πλαίσιο διαλόγου, προσδιορίστε ένα κενό κελί για τον εντοπισμό του πρώτου ψηφίου split και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Αφού κάνετε κλικ στο OK κουμπί, όλοι οι αριθμοί σε επιλεγμένα κελιά χωρίζονται σε ξεχωριστά ψηφία, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Διασπάστε ή χωρίστε τον αριθμό σε μεμονωμένα ψηφία με το Kutools για Excel

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello, I am wondering if it is possible to decompose into numbers with the same values. For example, divide 40 into 5 cells of 8.
This comment was minimized by the moderator on the site
Hi

I would like to get assistance with the following:

One cell the numbers are [1,1,1,2,2,3,4,1]

I would like to let this number only result in another cell to illustrate [1,2,3,4]

This would also mean if there is a 0, for instance, [1,1,0,1,4,2]
Then I would like it to look like = [1,2,4]

Kind regards
SS
This comment was minimized by the moderator on the site
Hi Stefan S,
Please apply the following user-defined function to solve this problem.
1. After adding the following code into the Module (Code) window.
2. Go back to the worksheet, select a cell, enter this formula =RemoveDupes2(A1) and press the Enter key to get the result.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/digits.png
Function RemoveDupes2(txt As String, Optional delim As String = ",") As String
    Dim x
    Dim arr()
    'Updateby Extendoffice 20221128
    Application.Volatile
    On Error Resume Next
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .Exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Exists("0") Then .Remove ("0")
        If .Count > 0 Then
            xCount = .Count
            ReDim arr(1 To xCount)
            i = 1
            For Each Key In .Keys
                arr(i) = Key
                i = i + 1
            Next

            For i = 1 To xCount - 1
                For j = i + 1 To xCount
                If arr(i) > arr(j) Then
                        temp = arr(i)
                        arr(i) = arr(j)
                        arr(j) = temp
                    End If
                Next j
            Next i

            RemoveDupes2 = Join(arr, delim)
        End If
    End With
End Function
This comment was minimized by the moderator on the site
Dear Crystal

Thank you for your comment. It works great! You are a star!

Kind regards
SS
This comment was minimized by the moderator on the site
Is there a way for the Split Numbers formula to work on a cell receiving changing data, so that the split numbers automatically update when the source cell changes?
This comment was minimized by the moderator on the site
9310B82214332A this no want to spilt in next column in this format 82214332A what to do
This comment was minimized by the moderator on the site
Dear Sir,


bill no bill Date Party Name Item Name Acutal Quantity
01 01-04-2019 abc mobile 20


ISKO TWENTIES ROW ME LANA HAI



KINDLY MADAD KIJIYE VERY VERY IMPORTANT
This comment was minimized by the moderator on the site
Final Text: BEARING, BALL; TYPE: DEEP GROOVE, CAGE MATERIAL: STEEL, ROW QUANTITY: SINGLE, INSIDE DIAMETER: 30 MM, OUTSIDE DIAMETER: 72 MM, WIDTH: 19 MM, CLOSURE TYPE: SINGLE SHIELDED, LOAD CAPACITY: DYNAMIC: 29.6, STATIC: 16 KN, SPEED: 13000 RPM; MANUFACTURER PART NO 63 63 6306 Z SKF

I want to find the "63 6306 Z SKF" within the final text, Can anyone guide me
This comment was minimized by the moderator on the site
Hi Jagan,
The final text you shown above locate in one cell? or would you please provide a screenshot of your example showing what you are exactly trying to do?
This comment was minimized by the moderator on the site
if data is in below format what will do?
DDD 1 2 3 4 5 6 7 8 9 10 11 12 13 14
1,2,3,5,15,12,11
12,10,13,11,5,2,4
1,5,7,4


Need number from 1st cell to below heading number(i.e. if we have 1,5,11 then answer put in cell below 1,5,11)
This comment was minimized by the moderator on the site
Option Explicit
'Main Function
Function NumberToText(ByVal MyNumber)
Dim Count
Dim Result
Dim NLength
Count = 1
NLength = Len(MyNumber) + 1
Do While Count < NLength
Result = Result & GetDigit(Mid(MyNumber, Count, Count)) & Space(1)
Count = Count + 1
Loop
NumberToText = Result
End Function

Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = "Zero"
End Select
End Function


I am trying to convert digits into words for preparing mark sheet purpose. Eg: 63 => Six Three but this is not working with 3 digit number Eg:798 =>Seven Zero Eight ERROR. Please Help
This comment was minimized by the moderator on the site
Dear Priya,
The following User-defined function can help you.

Function NumberToText(ByVal xNum)
Dim I As Long
Dim xTemp As Long
Dim xStr As String
Dim Result As String
For I = 1 To Len(xNum)
xTemp = Mid(xNum, I, 1)
Select Case xTemp
Case 1: xStr = "One"
Case 2: xStr = "Two"
Case 3: xStr = "Three"
Case 4: xStr = "Four"
Case 5: xStr = "Five"
Case 6: xStr = "Six"
Case 7: xStr = "Seven"
Case 8: xStr = "Eight"
Case 9: xStr = "Nine"
Case Else: xStr = "Zero"
End Select
Result = Result & xStr & Space(1)
Next
NumberToText = Result
End Function
This comment was minimized by the moderator on the site
Hi, Advise me the formula for multi digit number combine to single digit exp: 12345 (inside one cell) autocalculate to 1+2+3+4+5 = 6
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations