Hur sorterar jag nummer i en cell i Excel?
Det är enkelt och vanligt för oss att sortera nummer i en kolumnlista, men har du någonsin försökt att sortera nummer i en enda cell? Det kan finnas att det inte finns något bra sätt för dig förutom att ordna dem en efter en, här kommer jag att prata om hur man sorterar nummer i celler i Excel.
Sortera nummer i celler med formel
Sortera nummer i celler med användardefinierad funktion
Sortera nummer som separeras med komma i celler med VBA-kod
Sortera nummer i celler med formel
För att sortera nummer i celler i ett kalkylblad kan du använda följande långa formel, gör så här:
1. Bredvid dina data, ange följande formel, i det här exemplet skriver jag den i cell C1, se skärmdump:
=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))
2. Tryck sedan på Ctrl + Skift + Enter genom att trycka på tangenterna tillsammans, dra sedan påfyllningshandtaget till det intervall som du vill använda den här formeln så får du siffrorna har sorterats från små till stora. Se skärmdump:
Anmärkningar:
1. Om siffran i siffran är mer än 15 i cellen, får denna formel inte rätt resultat.
2. Om du vill sortera siffrorna i fallande ordning kan du använda den här formeln: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).
3. I ovanstående formler anger A1 cellen som innehåller siffrorna du vill sortera, du kan ändra den efter ditt behov.
Sortera nummer i celler med användardefinierad funktion
Eftersom det finns vissa begränsningar av formeln kan du använda följande Användardefinierad funktion för att sortera siffror i celler som är längre än 15 siffror.
1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Sortera nummer i celler
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. Spara och stäng sedan den här koden, gå tillbaka till ditt kalkylblad och ange den här formeln = sortnumsincell (A1) i en tom cell bredvid dina data, se skärmdump:
4. Och dra sedan fyllningshandtaget till cellerna som du vill ha den här formeln, och alla siffror i cellerna har sorterats i stigande ordning enligt följande skärmdump:
Anmärkningar: Om du vill sortera siffrorna i fallande ordning, ange denna formel = sortnumsincell (A1,1).
Sortera nummer som separeras med komma i celler med VBA-kod
Om dina nummer är åtskilda av vissa tecken som komma, semikolon, punkt och så vidare som följande skärmdump, hur kan du sortera dem i celler? Nu introducerar jag en VBA-kod för dig att sortera dem.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Sorteringsnummer separeras med kommatecken i celler
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. Tryck sedan på F5 nyckel för att köra den här koden och välj sedan dina celler som innehåller siffrorna i rutan för poppad ut, se skärmdump:
4. Och klicka sedan på OK, alla siffror i cellerna har sorterats stigande i det ursprungliga intervallet.
Anmärkningar: Du kan ändra komma ”,” till andra tecken som du behöver i ovanstående kod. Och den här koden kan bara sortera data stigande.
Relaterade artiklar:
Hur sorterar jag siffror med bindestreck i Excel?
Hur man sorterar data efter det vanligaste värdet i Excel?
Hur sorterar jag e-postadresser efter domän i Excel?
Hur sorterar jag rader för att placera de tomma cellerna ovanpå i Excel?
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
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!
