Kako razvrstiti številke znotraj celice v Excelu?
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 funkcijo
Ker 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?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!