Jak třídit čísla v buňce v aplikaci Excel?
Je pro nás snadné a běžné třídit čísla v seznamu sloupců, ale pokusili jste se někdy řadit čísla v jedné buňce? Možná pro vás neexistuje žádný dobrý způsob, kromě jejich uspořádání po jednom, zde budu mluvit o tom, jak třídit čísla v buňkách v aplikaci Excel.
Seřadit čísla v buňkách pomocí vzorce
Seřadit čísla v buňkách pomocí funkce definované uživatelem
Seřadit čísla oddělená čárkami v buňkách pomocí kódu VBA
Seřadit čísla v buňkách pomocí vzorce
Chcete-li seřadit čísla v buňkách v listu, můžete použít následující dlouhý vzorec, postupujte takto:
1. Vedle vašich dat zadejte následující vzorec, v tomto příkladu jej napíšu do buňky C1, viz screenshot:
=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. Pak stiskněte tlačítko Ctrl + Shift + Enter klávesy, poté přetáhněte úchyt výplně do rozsahu, na který chcete použít tento vzorec, a získáte čísla, která byla seřazena od malých po velká. Viz screenshot:
Poznámky:
1. Pokud je číslice čísla v buňce větší než 15, nebude tento vzorec obsahovat správný výsledek.
2. Chcete-li seřadit čísla sestupně, můžete použít tento vzorec: =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. Ve výše uvedených vzorcích označuje A1 buňku obsahující čísla, která chcete seřadit, můžete ji podle potřeby změnit.
Seřadit čísla v buňkách pomocí funkce definované uživatelem
Vzhledem k tomu, že vzorec má určitá omezení, můžete použít následující Uživatelem definovaná funkce třídit čísla v buňkách delších než 15 číslic.
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Řazení čísel v buňkách
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. Poté tento kód uložte a zavřete, vraťte se do svého listu a zadejte tento vzorec = sortnumsincell (A1) do prázdné buňky vedle vašich dat, viz screenshot:
4. A pak přetáhněte popisovač výplně do buněk, které chcete obsahovat tento vzorec, a všechna čísla v buňkách byla seřazeny ve vzestupném pořadí, jak je znázorněno na následujícím obrázku:
Poznámka: Chcete-li seřadit čísla sestupně, zadejte tento vzorec = sortnumsincell (A1,1).
Seřadit čísla oddělená čárkami v buňkách pomocí kódu VBA
Pokud jsou vaše čísla oddělena určitými znaky, jako je čárka, středník, tečka atd., Jak vidíte na následujícím snímku obrazovky, jak je můžete seřadit v buňkách? Nyní vám představuji kód VBA, abyste je mohli třídit.
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Čísla řazení jsou v buňkách oddělena čárkami
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a poté vyberte buňky, které obsahují čísla v rozevíracím okně s výzvou, viz screenshot:
4. A pak klikněte na tlačítko OK, všechna čísla v buňkách byla seřazena vzestupně v původním rozsahu.
Poznámka: Ve výše uvedeném kódu můžete čárku „,“ změnit na jakékoli jiné znaky, jak potřebujete. A tento kód může pouze třídit data vzestupně.
Související články:
Jak třídit čísla s pomlčkami v aplikaci Excel?
Jak seřadit data podle nejčastější hodnoty v aplikaci Excel?
Jak třídit e-mailovou adresu podle domény v aplikaci Excel?
Jak řadit řádky tak, aby prázdné buňky byly nahoře v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!