Za nas je enostavno in običajno razvrščati številke na seznamu stolpcev, vendar ste že kdaj poskusili razvrstiti številke znotraj ene celice? Morda za vas ni dobrega načina, razen da jih uredite enega za drugim, tukaj bom govoril o razvrščanju številk v celicah v Excelu.
Razvrsti številke znotraj celic s formulo
Razvrstite številke znotraj celic z uporabniško določeno funkcijo
Razvrsti številke, ločene z vejicami v celicah s kodo VBA
Razvrsti številke znotraj celic s formuloČe želite razvrstiti številke znotraj celic na delovnem listu, lahko uporabite naslednjo dolgo formulo, naredite tako:
1. Zraven svojih podatkov vnesite naslednjo formulo, v tem primeru jo vtipkam v celico C1, glejte posnetek zaslona:
=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. Nato pritisnite Ctrl + Shift + Enter tipke skupaj, nato povlecite ročico za polnjenje do obsega, za katerega želite uporabiti to formulo, in dobili boste, da so številke razvrščene od majhnih do velikih. Oglejte si posnetek zaslona:
Opombe:
1. Če je številka števila več kot 15 v celici, ta formula ne bo dobila pravilnega rezultata.
2. Če želite številke razvrstiti po padajočem vrstnem redu, lahko uporabite to formulo: =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. V zgornjih formulah A1 označuje celico, ki vsebuje številke, ki jih želite razvrstiti, lahko pa jih spremenite po svojih željah.
Razvrstite številke znotraj celic z uporabniško določeno funkcijoKer obstaja nekaj omejitev formule, lahko uporabite naslednje Uporabniško določena funkcija za razvrščanje števil v celicah, daljših od 15 števk.
1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Razvrsti številke znotraj celic
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. Nato shranite in zaprite to kodo, se vrnite na svoj delovni list in vnesite to formulo = sortnumsincell (A1) v prazno celico poleg vaših podatkov si oglejte posnetek zaslona:
4. Nato povlecite ročico za polnjenje do celic, ki jih želite vsebovati s to formulo, in vse številke v celicah so bile razvrščene po naraščajočem vrstnem redu, kot je prikazano na sliki spodaj:
Opombe: Če želite številke razvrstiti po padajočem vrstnem redu, vnesite to formulo = sortnumsincell (A1,1).
Razvrsti številke, ločene z vejicami v celicah s kodo VBAČe so vaše številke ločene z določenimi znaki, kot so vejica, podpičje, pika in tako naprej, kot je prikazano na spodnjem posnetku zaslona, kako jih lahko razvrstite v celice? Zdaj vam predstavljam kodo VBA, da jih razvrstite.
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Številke razvrščanja so znotraj celic ločene z vejicami
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. Nato pritisnite F5 tipko za zagon te kode in nato izberite celice, ki vsebujejo številke v izpuščenem pozivnem polju, glejte posnetek zaslona:
4. In nato kliknite OK, so vse številke v celicah razvrščene naraščajoče v prvotnem obsegu.
Opombe: Vejico “,” lahko spremenite v katere koli druge znake, kot jih potrebujete v zgornji kodi. In ta koda lahko sortira podatke naraščajoče.
Sorodni članki:
Kako razvrstiti številke z vezaji v Excelu?
Kako razvrstiti podatke po najpogostejši vrednosti v Excelu?
Kako razvrstiti e-poštni naslov po domeni v Excelu?
Kako razvrstiti vrstice, da bi prazne celice postavili na vrh v Excelu?
