Przejdź do głównej zawartości

Jak sortować liczby w komórce w programie Excel?

Sortowanie liczb na liście kolumn jest łatwe i powszechne, ale czy kiedykolwiek próbowałeś sortować liczby w jednej komórce? Być może nie ma dla ciebie dobrego sposobu, z wyjątkiem układania ich jeden po drugim, tutaj opowiem o tym, jak sortować liczby w komórkach w programie Excel.

Sortuj liczby w komórkach za pomocą formuły

Sortuj liczby w komórkach za pomocą funkcji zdefiniowanej przez użytkownika

Sortuj liczby oddzielone przecinkami w komórkach z kodem VBA


strzałka niebieski prawy bąbelek Sortuj liczby w komórkach za pomocą formuły

Aby posortować liczby w komórkach w arkuszu, możesz zastosować następującą długą formułę, wykonaj następujące czynności:

1. Obok danych wprowadź następującą formułę, w tym przykładzie wpiszę ją do komórki C1, zobacz zrzut ekranu:

=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)))

doc-sortuj-liczby-w-komórkach-1

2. Następnie naciśnij Ctrl + Shift + Enter klucze razem, a następnie przeciągnij uchwyt wypełniania do zakresu, w którym chcesz zastosować tę formułę, a otrzymasz posortowane liczby od małych do dużych. Zobacz zrzut ekranu:

doc-sortuj-liczby-w-komórkach-1

Uwagi:

1. Jeśli cyfra liczby w komórce jest większa niż 15, ta formuła nie da prawidłowego wyniku.

2. Jeśli chcesz posortować liczby w porządku malejącym, możesz użyć tej formuły: =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. W powyższych wzorach A1 wskazuje komórkę zawierającą liczby, które chcesz posortować, możesz ją zmienić według potrzeb.


strzałka niebieski prawy bąbelek Sortuj liczby w komórkach za pomocą funkcji zdefiniowanej przez użytkownika

Ponieważ formuła ma pewne ograniczenia, możesz użyć następującego wzoru Funkcja zdefiniowana przez użytkownika do sortowania liczb w komórkach dłuższych niż 15 cyfr.

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: sortuj liczby w komórkach

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. Następnie zapisz i zamknij ten kod, wróć do arkusza roboczego i wprowadź tę formułę = sortnumsincell (A1) do pustej komórki obok danych, zobacz zrzut ekranu:

doc-sortuj-liczby-w-komórkach-1

4. Następnie przeciągnij uchwyt wypełniania do komórek, które chcesz zawrzeć w tej formule, a wszystkie liczby w komórkach zostały posortowane w kolejności rosnącej, jak pokazano na poniższym zrzucie ekranu:

doc-sortuj-liczby-w-komórkach-1

Note: Jeśli chcesz posortować liczby w porządku malejącym, wprowadź tę formułę = sortnumsincell (A1,1).


strzałka niebieski prawy bąbelek Sortuj liczby oddzielone przecinkami w komórkach z kodem VBA

Jeśli twoje liczby są oddzielone określonymi znakami, takimi jak przecinek, średnik, kropka itp., Jak na poniższym zrzucie ekranu, jak możesz posortować je w komórkach? Teraz przedstawiam kod VBA, abyś mógł je sortować.

doc-sortuj-liczby-w-komórkach-1

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: numery sortowania są oddzielone przecinkami w komórkach

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a następnie wybierz komórki zawierające liczby w wyskakującym okienku zachęty, zobacz zrzut ekranu:

doc-sortuj-liczby-w-komórkach-1

4. A następnie kliknij OKwszystkie liczby w komórkach zostały posortowane rosnąco w pierwotnym zakresie.

Note: Możesz zmienić przecinek „,” na dowolne inne znaki, jak potrzebujesz w powyższym kodzie. Ten kod może tylko sortować dane rosnąco.


Podobne artykuły:

Jak sortować liczby z łącznikami w programie Excel?

Jak sortować dane według najczęstszej wartości w programie Excel?

Jak sortować adresy e-mail według domeny w programie Excel?

Jak sortować wiersze, aby umieścić puste komórki na górze w programie Excel?

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, se pueden ordenar letras en una sola celda por orden alfabético? Yo uso excel para Mac. Gracias
This comment was minimized by the moderator on the site
Hi thanks for nice good for sorting numbers which separated by commas within cells with VBA code
Just I have faced one problem with the code.
The code cannot detect three digit number. for example the numbers (65, 93, 53, 72, 64, 85, 103, 48, 77, 81, 54) after applying the code, the new order (103, 48, 53, 54, 64, 65, 72, 77, 81, 85, 93)
Do you have any solution for the problem?
This comment was minimized by the moderator on the site
Hello, omer,May be the below code can help you, please try:
<div data-tag="code">Public Function CellSort(r As Range) As String
Dim bry() As Long, L As Long, U As Long
ch = r(1).Text
ary = Split(ch, ",")
L = LBound(ary)
U = UBound(ary)
ReDim bry(L To U)
For i = LBound(ary) To UBound(ary)
bry(i) = CLng(ary(i))
Next i
Call BubbleSort(bry)
For i = LBound(bry) To UBound(bry)
ary(i) = CStr(bry(i))
Next i
CellSort = Join(ary, ",")
End Function

Sub BubbleSort(arr)
Dim strTemp As Variant
Dim i As Long
Dim j As Long
Dim lngMin As Long
Dim lngMax As Long
lngMin = LBound(arr)
lngMax = UBound(arr)
For i = lngMin To lngMax - 1
For j = i + 1 To lngMax
If arr(i) > arr(j) Then
strTemp = arr(i)
arr(i) = arr(j)
arr(j) = strTemp
End If
Next j
Next i
End SubAfter inserting the above code, please apply this formula: =CellSort(A1).And you will get the result you need.
This comment was minimized by the moderator on the site
How to sort A-Z text within a cell in Excel?
This comment was minimized by the moderator on the site
hOLA, MI PROBLEMA ES QUE TENGO EXEL 2019 EN ESPAÑOL COMO SERIA LA FORMULA?
This comment was minimized by the moderator on the site
Hi, the VBA code seems to output incorrectly, example before 13,50,47,7,39 and after 13-39-47-50-7. Any ideas why?
This comment was minimized by the moderator on the site
i want to sort total an amount 14000 to 20000 from various row Example:- 2000,1500 one row and like that all row amount to arrange
This comment was minimized by the moderator on the site
need to sort 84-12-74-26-98 any order 12-26-74-84-98 or 98-84-74-26-12 thank you
This comment was minimized by the moderator on the site
If CInt(Arr(xMin)) > CInt(Arr(j)) and it works
This comment was minimized by the moderator on the site
Is there is any way to sort more numbers in same time from one cell? Example, i have a list of 50000 asset numbers such as A1234,A1235... and i need to pull 500 specific numbers and i need to pull 500 at the time to make change and save.Thank you
This comment was minimized by the moderator on the site
I have a series of cells with numbers separated by a space that I want to sort. eg 8 4 5 1 6 3 that I want to sort as 1 3 4 5 6 8 Any help appreciated
This comment was minimized by the moderator on the site
Hi, I was wondering how this UDF, =sortnumsincell(A1,1), can be modified more generally, like =sortnumsincell(A1," "," ",,1) where the first argument, A1, is the target cell, the second argument," ", is a delimiter that could take any character, or a space, or nothing, with third argument, " ", a different or same delimiter, and the fourth argument, 1 or 0, indicating an ascending or descending sort, with the result string displaying, correctly sorted, within one cell, with delimiter default same as the original string unless specified in the third term. I would like it to work both on string and numerical, and sometimes the second or third argument might be a line feed, as would be manually entered with alt-enter. You'd be my hero of the month if you could do that. I tried but failed miserably. Thank you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations