Hoe nummers binnen een cel in Excel te sorteren?

Het is eenvoudig en gebruikelijk voor ons om nummers in een lijst of kolom te sorteren, maar heb je ooit geprobeerd om nummers binnen een enkele cel te sorteren? Mogelijk is er geen goede manier voor jou om dit te doen behalve ze één voor één te ordenen. Hier zal ik uitleggen hoe je nummers binnen cellen in Excel kunt sorteren.

Nummers binnen cellen sorteren met formule

Nummers binnen cellen sorteren met een door de gebruiker gedefinieerde functie

Nummers die gescheiden zijn door komma's binnen cellen sorteren met VBA-code

Nummers binnen cellen sorteren met formule

Om nummers binnen cellen in een werkblad te sorteren, kun je de volgende lange formule toepassen. Doe het als volgt:

1. Naast uw gegevens voert u de volgende formule in. In dit voorbeeld typ ik het in cel C1, zie screenshot:

=TEXT(SOM(KLEINSTE(--DEEL(A1,RIJ(INDIRECT("1:"&LENGTE(A1))),1),RIJ(INDIRECT("1:"&LENGTE(A1))))*10^(LENGTE(A1)-RIJ(INDIRECT("1:"&LENGTE(A1))))),HERHALING("0",LENGTE(A1)))

2. Druk vervolgens tegelijk op Ctrl + Shift + Enter, sleep daarna het vulhandvat over naar het bereik waarop u deze formule wilt toepassen, en u krijgt de nummers van klein naar groot gesorteerd. Zie screenshot:

Opmerkingen:

1. Als het aantal cijfers in de cel meer dan 15 is, zal deze formule niet het juiste resultaat opleveren.

2. Als u de nummers in aflopende volgorde wilt sorteren, kunt u deze formule gebruiken: =TEXT(SOM(GROOTSTE(--DEEL(A1,RIJ(INDIRECT("1:"&LENGTE(A1))),1),RIJ(INDIRECT("1:"&LENGTE(A1))))*10^(LENGTE(A1)-RIJ(INDIRECT("1:"&LENGTE(A1))))),HERHALING("0",LENGTE(A1))).

3. In de bovenstaande formules staat A1 voor de cel die de nummers bevat die u wilt sorteren; u kunt dit naar behoefte wijzigen.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Nummers binnen cellen sorteren met een door de gebruiker gedefinieerde functie

Omdat er enkele beperkingen zijn aan de formule, kunt u de volgende door de gebruiker gedefinieerde functie gebruiken om nummers in cellen langer dan 15 cijfers te sorteren.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Nummers binnen cellen sorteren

Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
  For j = 1 To UBound(VBA.Split(pNum, i))
    xOutput = IIf(pOrder, i & xOutput, xOutput & i)
  Next
Next
SortNumsInCell = xOutput
End Function

3. Sla deze code vervolgens op en sluit deze, ga terug naar uw werkblad en voer deze formule =sortnumsincell(A1) in een lege cel naast uw gegevens in, zie screenshot:

4. Sleep vervolgens het vulhandvat naar de cellen waarin u deze formule wilt toepassen, en alle nummers in de cellen worden gesorteerd in oplopende volgorde zoals in de volgende screenshot te zien is:

Opmerking: Als u de nummers in aflopende volgorde wilt sorteren, voert u deze formule in: =sortnumsincell(A1,1).

Nummers die gescheiden zijn door komma's binnen cellen sorteren met VBA-code

Als uw nummers gescheiden zijn door bepaalde tekens zoals komma, puntkomma, punt enzovoort zoals in de volgende screenshot, hoe zou u ze dan in de cellen kunnen sorteren? Nu introduceer ik een VBA-code om ze te sorteren.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Nummers die gescheiden zijn door komma's binnen cellen sorteren

Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
    Arr = VBA.Split(Rng.Value, ",")
    For i = 0 To UBound(Arr)
        xMin = i
        For j = i + 1 To UBound(Arr)
            If Arr(xMin) > Arr(j) Then
                xMin = j
            End If
        Next j
        If xMin <> i Then
            temp = Arr(i)
            Arr(i) = Arr(xMin)
            Arr(xMin) = temp
        End If
    Next i
    Rng.Value = VBA.Join(Arr, ",")
Next
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren, selecteer daarna uw cellen die de nummers bevatten in het pop-up venster, zie screenshot:

4. Klik vervolgens op OK, alle nummers in de cellen zijn oplopend gesorteerd in het originele bereik.

Opmerking: U kunt de komma “,” in de bovenstaande code naar elk ander teken naar keuze wijzigen. En deze code kan alleen gegevens oplopend sorteren.

Gerelateerde artikelen:

Hoe nummers met koppeltekens in Excel te sorteren?

Hoe gegevens te sorteren op de meest voorkomende waarde in Excel?

Hoe e-mailadressen te sorteren op domein in Excel?

Hoe rijen te sorteren om lege cellen bovenaan te plaatsen in Excel?