Vai al contenuto principale

Come rompere o dividere il numero in singole cifre in Excel?

Supponendo di dover rompere o dividere il numero in singole cifre come mostrato nell'immagine sottostante, cosa puoi fare per ottenerlo? Questo articolo fornirà due metodi per te.

Rompere o dividere il numero in singole cifre con la formula
Rompi o dividi il numero in singole cifre con Kutools per Excel

Rompere o dividere il numero in singole cifre con la formula

Questa sezione mostrerà una formula per dividere le celle numeriche selezionate in singole cifre in Excel.

1. Seleziona una cella vuota (dice cella C1) per individuare la prima cifra divisa del numero nella cella A1, quindi inserisci la formula = MID ($ A1, COLUMN () - (COLUMN ($ C1) - 1), 1) nella barra della formula, quindi premere il pulsante entrare chiave.

Note:: Nella formula, A1 è la cella con il numero che devi dividere in cifre e C1 è la cella per individuare la prima cifra divisa. Si prega di cambiarli come necessario.

2. Continuare a selezionare la cella C1, quindi trascinare la maniglia di riempimento sulle celle di destra finché tutte le cifre della cella A1 non vengono divise.

3. Mantieni selezionate queste celle con le cifre divise e trascina la maniglia di riempimento sulle celle finché tutti i numeri non vengono divisi in cifre separate. Vedi screenshot:

Rompi o dividi il numero in singole cifre con Kutools per Excel

I Celle divise utilità di Kutools for Excel ti aiuta a dividere facilmente tutte le celle numeriche selezionate in singole cifre contemporaneamente. Si prega di fare quanto segue.

Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.

1. Seleziona le celle con il numero che devi dividere in cifre, quindi fai clic su Kutools > Unisci e dividi > Celle divise. Vedi screenshot:

2. Nel Celle divise finestra di dialogo, selezionare Dividi in colonne opzione nel Tipologia e nella sezione Specifica un separatore, seleziona Specifica larghezza e inserisci il numero 1 nella casella di testo. Clicca il OK pulsante.

3. Nella prossima comparsa Celle divise finestra di dialogo, specificare una cella vuota per individuare la prima cifra divisa, quindi fare clic su OK pulsante.

Dopo aver cliccato il OK pulsante, tutti i numeri nelle celle selezionate vengono suddivisi in cifre separate immediatamente come mostrato nell'immagine sottostante.

  Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.

Rompi o dividi il numero in singole cifre con Kutools per Excel

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli  |   VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule   |  Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle   |  Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti:  12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione

Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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