Сортировка данных в одной ячейке excel

{quote}{login=Horn}{date=08.02.2008 12:32}{thema=}{post}А без Plex’а? Наверняка ведь кто-нибудь сталкивался с такой проблемой?{/post}{/quote}  
Собственно не сталкивался…  
Но идея заинтересовала !  
Вот держи :  

  Function SORT(inpute)  
‘ 8.02.2008 автор Drony  
ishodnoe = inpute  
a = Len(ishodnoe) ‘ длина текста ячейки  
b = Len(Replace(ishodnoe, » «, «»)) ‘ длина текста ячейки без ПРОБЕЛОВ  
c = a — b ‘ количество ПРОБЕЛОВ  
F = c + 1 ‘ количество отдельностоящих слов в ячейке  

  ‘ Создаем массив  
Dim D()  
ReDim D(F)  
n = 0  
Start = 1  
For x = 1 To F  
   n = n + 1  
‘    ReDim Preserve D(n)  
   If n = F Then D(n) = Mid(ishodnoe, Start, (a — Start + 1)): GoTo 10  
   D(n) = Mid(ishodnoe, Start, (InStr(Start, ishodnoe, » «, 1) — Start))  
10:  
Start = InStr(Start, ishodnoe, » «) + 1  
Next x  

  ‘ сортируем массив ПУЗЫРЬКОВЫМ методом  
Dim First As Integer, Last As Integer  
Dim i As Integer, j As Integer  
Dim Temp As String  
First = LBound(D)  
Last = UBound(D)  
For i = First To Last — 1  
For j = i + 1 To Last  
If D(i) > D(j) Then  
Temp = D(j)  
D(j) = D(i)  
D(i) = Temp  
End If  
Next j  
Next i  

  ‘ выгружаем массив  
For i = LBound(D) + 1 To UBound(D)  
SORT = SORT & D(i) & » »  
Next i  
End Function  

      Только в исходных ячейках я » , » заменил на » »  — пробел.  
Сильно стого не судите, может можно как то и упростить…  
Я шел по простому пути, т.е. то с чем когда-либо сталкивался, с помощью тех кусков и решил задачу…

Сортировка данных – распространенный способ упорядочивания значений от большего к меньшему, по алфавиту или другим параметрам. В Excel это можно сделать несколькими методами – обращаясь к функциям или используя пункты в меню.

Вариант 1: Быстрая сортировка в Excel

Иногда требуется максимально быстро отсортировать данные в столбце по возрастанию чисел, убыванию или по алфавиту. Для этого идеально подойдут кнопки быстрой сортировки, предназначенные как раз для выполнения поставленной задачи.

1. Выделите зажатой левой кнопкой мыши столбец с данными и вызовите меню «Редактирование».

2. Откройте список «Сортировка и фильтр» и выберите подходящий для вас вариант упорядочения. С числами это по возрастанию или убыванию, а для текста – по алфавиту и в обратную сторону.

3. Если вы выделили не все ячейки в столбце, появится окно с предложением расширить диапазон. Сделайте это, если за пределами выделения тоже находятся значения, которые нужно сортировать. Укажите сортировку в пределах данного диапазона, если за ним находятся исключительно заголовки.

4. Изменения вступают в силу сразу же. Нажмите Ctrl + Z для отмены действия, если что-то выполнено неправильно.

Обратите внимание на то, что сортировка сбивается после внесения любых изменений в клетках. Придется снова обращаться к тем же самым кнопкам, упорядочив уже новый массив с данными.

Вариант 2: Настраиваемая сортировка

Более продвинутый вариант, позволяющий задать сразу несколько условий упорядочения, – это настраиваемая сортировка, выполняющаяся через соответствующее окно. Давайте разберем сортировку по двум разным параметрам:

1. Вы можете не выделять заранее столбец, если для него задано название. Вызовите то же меню редактирования, но на этот раз нажмите по «Настраиваемая сортировка».

2. Выберите вариант с расширением или сохранением диапазона, если предварительно выделили столбец.

3. Вы увидите первый уровень сортировки, который и стоит настроить с самого начала.

4. Выберите столбец для сортировки из первого выпадающего списка.

5. Далее укажите вариант сортировки. Это может быть значение, цвет шрифта или ячейки, знаки условного форматирования.

6. В завершение укажите, в каком порядке необходимо отсортировать данные.

7. Если затем нужно применить еще один вариант сортировки, добавьте уровень и настройте его должным образом.

8. После применения вернитесь к таблице и убедитесь в том, что действия произведены верно. Учитывайте, что в этом случае сортировка тоже собьется, если вы внесете изменения в любой ячейке.

Вариант 3: Функция НАИБОЛЬШИЙ или НАИМЕНЬШИЙ

Последний вариант – единственный динамический, то есть после внесения изменений в клетках сортировка автоматически перестроится и ее последовательность будет правильной. Как вы уже поняли, для этого понадобится использовать функцию НАИБОЛЬШИЙ или НАИМЕНЬШИЙ.

1. В пустом столбце выберите первую ячейку для сортировки (желательно, чтобы она находилась параллельно ячейке с существующего столбца). Вызовите одну из указанных функций, отталкиваясь от необходимого вам типа упорядочения.

2. Далее в скобках укажите (C:C;СТРОКА(C1)), поменяв буквы на номер столбца сортировки.

3. Растяните функцию, зажав левую кнопку мыши в правой нижней точке ячейки и потянув вниз. Вы увидите, что данные указанного столбца перенесены параллельно, но соблюдена сортировка по возрастанию или убыванию. При этом исходные данные остаются в таком же хаотичном порядке, как были и раньше.

Теперь в исходном столбце вы можете вносить любые изменения для значений, а параллельные данные в отсортированном столбце поменяются в зависимости от указанных данных, но порядок все равно будет правильным.

Используйте любой из вариантов сортировки по надобности, но учитывайте, что динамически меняется только способ с применением функции. Конечно, он потребует создания дополнительного столбца, но в некоторых случаях это является оптимальным решением. Только не забудьте дать название столбцу, чтобы все пользователи таблицы понимали, для чего он нужен на листе.

Добрый день!
Я тоже, беря пример с Вас, позволю без примера…

Итак, Интегрировать в Excel просто: Alt+F11 и Вы попадаете в среду разработки макросов VBA. Ну или на ярлычке листа ПКМ (правой кнопкой мышки)  и кликнуть по Исходный текст

Далее в редакторе пишем:
Sub SortNeTarKakNado()
   ‘Между этими «субчиками» и разместим код макроса
End Sub

собственно сам мкрос, что он делает? Пробегает по ячейкам выделенного блока ячеек (ну, тут наверное следует определять что собственно выделено: часть строки — столбца или часть нескольких строк — столбцов?!). Значения каждой ячейки разбивает по параметру <br>, в одномерный массив. Массив сортирует, ну скажем «методом пузырька». Результат сортировки записывает в ячейку (ту же откуда была взята исходная информация, либо правее — левее -выше — ниже исходной ячейки).

Вот пример функции сортирующей массив, причем одномерный массив в данном случае — частный случай. Эта функция может сортировать и двумерные массивы:

Function sortArr(spisok() As String, nomColSort As Integer, glubina As Integer)
    Dim rrBl() As String
    Dim endArr As Long, i As Long, j As Long, k As Long

И так, если будут вопросы при реализации — пишите, постараюсь ответить.

Для нас легко и часто сортировать числа в списке столбцов, но пробовали ли вы когда-нибудь сортировать числа в одной ячейке? Возможно, для вас нет хорошего способа, кроме как расположить их по одному, здесь я расскажу о том, как сортировать числа в ячейках в 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. Затем нажмите Shift + Ctrl + 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. В приведенных выше формулах A1 указывает ячейку, содержащую числа, которые вы хотите отсортировать, вы можете изменить ее по своему усмотрению.

Сортировка чисел в ячейках с помощью функции, определяемой пользователем

Поскольку у формулы есть некоторые ограничения, вы можете использовать следующие Функция, определяемая пользователем для сортировки чисел в ячейках длиной более 15 цифр.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код 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. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код 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 сверху были пустые ячейки?