Hoppa till huvudinnehåll

Hur bryter eller delar jag upp nummer i enskilda siffror i Excel?

Om du antar att du måste bryta eller dela upp nummer i enskilda siffror enligt nedanstående skärmdump, vad kan du göra för att uppnå det? Den här artikeln ger dig två metoder.

Bryt eller del nummer i enskilda siffror med formeln
Bryt eller del nummer i enskilda siffror med Kutools för Excel

Bryt eller del nummer i enskilda siffror med formeln

Detta avsnitt visar en formel för att dela valda nummerceller i enskilda siffror i Excel.

1. Välj en tom cell (säger cell C1) för att lokalisera den första delade siffran i nummer A1 och ange sedan formeln = MIDDEL ($ A1, KOLONN () - (KOLONN ($ C1) - 1), 1) i formelfältet och tryck sedan på ange nyckel.

Anmärkningar: I formeln är A1 cellen med det nummer du behöver dela till siffror, och C1 är cellen för att hitta den första delade siffran. Ändra dem efter behov.

2. Fortsätt att välja cell C1 och dra sedan Fill Handle till rätt celler tills alla siffror i cell A1 är uppdelade.

3. Håll dessa delade siffror markerade och dra ner Fill Handle till cellerna tills alla nummer är uppdelade i separata siffror. Se skärmdump:

Bryt eller del nummer i enskilda siffror med Kutools för Excel

Smakämnen Dela celler nytta av Kutools för Excel hjälper dig att enkelt dela upp alla valda nummerceller i enskilda siffror samtidigt. Gör så här.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Markera celler med nummer du behöver dela upp i siffror och klicka sedan på Kutools > Slå ihop och dela > Dela celler. Se skärmdump:

2. I Dela celler dialogruta, välj Dela upp till kolumner alternativet i Typ i avsnittet Ange en separator, välj Ange bredd och ange nummer 1 i textrutan. Klicka på OK knapp.

3. I nästa poppar upp Dela celler i dialogrutan, ange en tom cell för att hitta den första delade siffran och klicka sedan på OK knapp.

När du klickat på OK -knappen delas alla siffror i valda celler in i separata siffror omedelbart enligt nedanstående skärmdump.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.

Bryt eller del nummer i enskilda siffror med Kutools för Excel

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup  |   VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar   |  Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler   |  Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser:  12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (13)
No ratings yet. Be the first to rate!
Robsbobs
Robsbobs
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.
Reply
0
0
Stefan S
Stefan S
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
Reply
0
0
crystal
crystal     Stefan S
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
Reply
Report
0
0
Stefan
Stefan     crystal
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
Reply
0
0
Scott
Scott
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?
Reply
0
0
ikram khan
ikram khan
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
Reply
0
0
Vikash Srivastav
Vikash Srivastav
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
Reply
0
0
Jagan
Jagan
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
Reply
0
0
crystal
crystal     Jagan
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?
Reply
Report
0
0
Yogesh kumar
Yogesh kumar
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)
Reply
0
0
Priya
Priya
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
Reply
0
0
crystal
crystal     Priya
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
Reply
Report
0
0
Reddy
Reddy
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations