Як відсортувати числа в комірці в Excel?

Нам легко і звично сортувати числа в списку стовпців, але чи намагалися ви коли-небудь сортувати числа в одній комірці? Можливо, для вас немає хорошого способу, за винятком того, щоб упорядкувати їх по одному, тут я розповім про те, як сортувати числа в клітинках у Excel.

Сортування чисел у клітинках за формулою

Сортування чисел у клітинках за допомогою функції користувача

Відсортуйте числа, розділені комами в комірках із кодом VBA

Сортування чисел у клітинках за формулою

Щоб відсортувати числа в клітинках робочого аркуша, ви можете застосувати таку довгу формулу, будь ласка, зробіть так:

1. Поруч із вашими даними введіть таку формулу, у цьому прикладі я введу її в клітинку C1, див. Знімок екрана:

=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. Потім натисніть Ctrl + Shift + Enter клавіші разом, а потім перетягніть маркер заповнення до діапазону, до якого ви хочете застосувати цю формулу, і ви отримаєте цифри, відсортовані від малого до великого. Дивіться знімок екрана:

Примітки:

1. Якщо цифра числа більше 15 у комірці, ця формула не дасть правильного результату.

2. Якщо ви хочете відсортувати числа за спаданням, ви можете скористатися цією формулою: =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. У наведених вище формулах А1 позначає клітинку, яка містить цифри, які потрібно відсортувати, ви можете змінити її відповідно до своїх потреб.

Сортування чисел у клітинках за допомогою функції користувача

Оскільки формула має деякі обмеження, ви можете використовувати наступне Визначена користувачем функція для сортування чисел у комірках довжиною більше 15 цифр.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: сортування чисел у клітинках

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. Потім збережіть і закрийте цей код, поверніться до робочого аркуша та введіть цю формулу = sortnumsincell (A1) у порожню комірку поруч із вашими даними, див. знімок екрана:

4. А потім перетягніть маркер заповнення до комірок, які ви хочете містити в цій формулі, і всі числа в клітинках відсортовані за зростанням, як показано на наступному знімку екрана:

примітки: Якщо ви хочете відсортувати номери за спаданням, введіть цю формулу = sortnumsincell (A1,1).

Відсортуйте числа, розділені комами в комірках із кодом VBA

Якщо ваші номери розділені певними символами, такими як кома, крапка з комою, крапка тощо, як показано на наступному знімку екрана, як ви можете сортувати їх у клітинках? Тепер я представляю код VBA, щоб ви могли їх сортувати.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: Номери сортування розділяються комами всередині комірок

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. Потім натисніть F5 клавішу, щоб запустити цей код, а потім виділіть клітинки, які містять номери у вікні запиту, що з’явиться, див.

4. А потім клацніть OK, всі числа в клітинках відсортовані за зростанням у вихідному діапазоні.

примітки: Ви можете змінити кому «,» на будь-які інші символи, як вам потрібно у наведеному вище коді. І цей код може сортувати дані лише за зростанням.

Статті по темі:

Як сортувати числа з дефісами в Excel?

Як відсортувати дані за найпоширенішим значенням в Excel?

Як відсортувати електронну адресу за доменом у Excel?

Як відсортувати рядки, щоб покласти порожні клітинки зверху в Excel?

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...