Kako razbiti ali razdeliti številko na posamezne številke v Excelu?

Recimo, da morate številko razbiti ali razdeliti na posamezne številke, kot je prikazano na sliki spodaj, kaj lahko storite, da jo dosežete? V tem članku boste našli dve metodi.

Število razdelite ali razdelite na posamezne številke s formulo
Število razdelite na posamezne števke z Kutools for Excel

Število razdelite ali razdelite na posamezne številke s formulo

V tem razdelku bo prikazana formula za razdelitev izbranih številskih celic na posamezne številke v Excelu.

1. Izberite prazno celico (pravi celica C1) za iskanje prve razdeljene številke števila v celici A1, nato vnesite formulo = SREDNJA ($ A1, STOLPEC () - (STOLPEC ($ C1) - 1), 1) v vrstico s formulami in pritisnite tipko Vnesite ključ.

Opombe: V formuli je A1 celica s številko, ki jo morate razdeliti na števke, C1 pa celica za iskanje prve razdeljene številke. Prosimo, spremenite jih po potrebi.

2. Nadaljujte z izbiro celice C1, nato povlecite ročico za polnjenje v desne celice, dokler se ne razdelijo vse številke celice A1.

3. Te razcepljene celice naj bodo izbrane in povlecite ročico za polnjenje navzdol do celic, dokler se vse številke ne razdelijo na ločene številke. Oglejte si posnetek zaslona:

Število razdelite na posamezne števke z Kutools for Excel

O Razdeljene celice uporabnost Kutools for Excel vam pomaga enostavno razdeliti vse izbrane številske celice na posamezne številke hkrati. Naredite naslednje.

Pred vložitvijo vloge Kutools for ExcelProsim najprej ga prenesite in namestite.

1. Izberite celice s številko, ki jo morate razdeliti na številke, in kliknite Kutools > Spoji in razdeli > Razdeljene celice. Oglejte si posnetek zaslona:

2. V Ljubljani Razdeljene celice pogovorno okno, izberite Razdeli na stolpce možnost v tip in v razdelku Določi ločilo izberite Določi širino in v besedilno polje vnesite številko 1. Kliknite OK gumb.

3. V naslednjem pojavnem oknu Razdeljene celice v pogovornem oknu določite prazno celico za iskanje prve razdeljene številke in nato kliknite OK gumb.

Po kliku OK , se vse številke v izbranih celicah takoj razdelijo na ločene številke, kot je prikazano spodaj.

Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.

Število razdelite na posamezne števke z Kutools for Excel

Najboljša orodja za pisarniško produktivnost

Kutools for Excel Reši večino vaših težav in poveča vašo produktivnost za 80 %

Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ...

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...

Komentarji (12)

Ocene še ni. Bodite prvi in ocenite!

Reddy

pred približno dvema letoma

#17395

Ta komentar je moderator na spletnem mestu minimiziral

Živjo, svetujte mi formulo za večmestno število združite v enomestno izpit: 12345 (znotraj ene celice) samodejno izračunajte na 1+2+3+4+5 = 6

Odgovori

Priya

pred približno dvema letoma

#23305

Ta komentar je moderator na spletnem mestu minimiziral

Option Explicit
'Glavna funkcija
Funkcija NumberToText(ByVal MyNumber)
Dim Count
Zatemnjen rezultat
Dim NLength
Število = 1
NLength = Len(Moja številka) + 1
Naredi, medtem ko šteje < NLength
Rezultat = Rezultat & GetDigit(Sredina(Moja številka, Število, Število)) & Presledek(1)
Število = Število + 1
Zanka
NumberToText = Rezultat
End Function

Funkcija GetDigit(Digit)
Izberite vrednost primera (številka)
Primer 1: GetDigit = "Ena"
Primer 2: GetDigit = "Dva"
Primer 3: GetDigit = "Tri"
Primer 4: GetDigit = "Štiri"
Primer 5: GetDigit = "Pet"
Primer 6: GetDigit = "šest"
Primer 7: GetDigit = "Sedem"
Primer 8: GetDigit = "Osem"
Primer 9: GetDigit = "Devet"
Drugi primer: GetDigit = "nič"
Konec Izberi
End Function

Poskušam pretvoriti števke v besede za pripravo označevalnega lista. Npr.: 63 => Šest Tri, vendar to ne deluje s 3-mestno številko Npr: 798 => Sedem Zero Osem NAPAKA. Prosim pomagajte

Odgovori

kristal Priya

pred približno dvema letoma

#23306

Ta komentar je moderator na spletnem mestu minimiziral

Spoštovana Priya,
Naslednja uporabniško definirana funkcija vam lahko pomaga.

Funkcija NumberToText(ByVal xNum)
Dim I As Long
Dim xTemp Kot dolgo
Dim xStr kot niz
Zatemni rezultat kot niz
Za I = 1 do Len(xNum)
xTemp = Mid(xNum, I, 1)
Izberite Case xTemp
Primer 1: xStr = "Ena"
Primer 2: xStr = "dva"
Primer 3: xStr = "Tri"
Primer 4: xStr = "štiri"
Primer 5: xStr = "pet"
Primer 6: xStr = "šest"
Primer 7: xStr = "Sedem"
Primer 8: xStr = "osem"
Primer 9: xStr = "devet"
Drugi primer: xStr = "nič"
Konec Izberi
Rezultat = Rezultat & xStr & presledek (1)
Naslednji
NumberToText = Rezultat
End Function

Odgovori

poročilo

Yogesh Kumar

pred približno dvema letoma

#25630

Ta komentar je moderator na spletnem mestu minimiziral

če so podatki v spodnji obliki, kaj bo?
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

Potrebujete številko od 1. celice do številke pod naslovom (tj. če imamo 1,5,11, potem odgovor vnesite v celico pod 1,5,11)

Odgovori

jagan

pred približno dvema letoma

#28094

Ta komentar je moderator na spletnem mestu minimiziral

Končno besedilo: BEARING, BALL; TIP: GLOBOKI ŽLEB, MATERIAL KLETKE: JEKLO, KOLIČINA VRSTI: ENOKRAT, NOTRANJI PREMER: 30 MM, ZUNANJI PREMER: 72 MM, ŠIRINA: 19 MM, VRSTA ZAPIRANJA: ENO ZAŠČITNO, NOSILNOST: 29.6 DNEVNOST: 16. HITROST: 13000 RPM; ŠT. PROIZVAJALCA 63 63 6306 Z SKF

V končnem besedilu želim najti "63 6306 Z SKF". Ali me lahko kdo vodi

Odgovori

kristal jagan

pred približno dvema letoma

#28095

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Jagan,
Končno besedilo, ki ste ga prikazali zgoraj, najdete v eni celici? ali bi prosim predložili posnetek zaslona svojega primera, ki prikazuje, kaj točno poskušate narediti?

Odgovori

poročilo

Vikash Srivastav

pred približno dvema letoma

#28942

Ta komentar je moderator na spletnem mestu minimiziral

Spoštovani,

račun brez računa Datum Ime stranke Ime artikla Dejanska količina
01 01 abc mobile 04

ISKO DVADESET ME LANA HAI

Vljudno MADAD KIJIYE ZELO ZELO POMEMBNO

Odgovori

ikram khan

pred približno dvema letoma

#32951

Ta komentar je moderator na spletnem mestu minimiziral

9310B82214332A tega ne želim preliti v naslednji stolpec v tem formatu 82214332A kaj storiti

Odgovori

Scott

pred približno dvema letoma

#34027

Ta komentar je moderator na spletnem mestu minimiziral

Ali obstaja način, da formula Split Numbers deluje na celico, ki prejema spremenljive podatke, tako da se deljene številke samodejno posodabljajo, ko se izvorna celica spremeni?

Odgovori

Stefan S

pred približno tremi meseci

#41522

Ta komentar je moderator na spletnem mestu minimiziral

Hi

Rad bi dobil pomoč pri naslednjem:

V eni celici so številke [1,1,1,2,2,3,4,1]

Rad bi pustil, da ta številka povzroči samo drugo celico za ponazoritev [1,2,3,4]

To bi tudi pomenilo, če obstaja 0, na primer [1,1,0,1,4,2]
Potem bi rad izgledal kot = [1,2,4]

Lep pozdrav
SS

Odgovori

kristal Stefan S

pred približno tremi meseci

#41565

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Stefan S,
Za rešitev te težave uporabite naslednjo uporabniško definirano funkcijo.
1. Po dodajanju naslednje kode v okno Module (Koda).
2. Vrnite se na delovni list, izberite celico in vnesite to formulo =RemoveDupes2(A1) in pritisnite Vnesite ključ, da dobite rezultat.

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

Odgovori

poročilo

Stefan kristal

pred približno tremi meseci

#41619

Ta komentar je moderator na spletnem mestu minimiziral

Draga Crystal

Hvala za vaš komentar. Deluje odlično! Ti si zvezda!

Lep pozdrav
SS

Odgovori

Tu še ni objavljenih komentarjev