Сортировка одномерного массива в VBA Excel по возрастанию или убыванию с числовым или текстовым сравнением числовых элементов. Сортировка выбором.
Сортировка массива выбором
Функция, осуществляющая сортировку выбором одномерного массива по возрастанию с числовым сравнением числовых элементов массива:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Function SortArray(myArray As Variant) As Variant Dim l As Long, u As Long, i1 As Long, i2 As Long, im As Long, tmp As Variant 'Определение наименьшего индекса массива l = LBound(myArray) 'Определение наибольшего индекса массива u = UBound(myArray) For i1 = l To u im = i1 For i2 = i1 To u 'Поиск наименьшего элемента массива, начиная с элемента myArray(i1) If myArray(i2) < myArray(im) Then im = i2 Next 'Если наименьший элемент не является текущим (im <> i1), 'тогда наименьший элемент и текущий меняются местами If im <> i1 Then tmp = myArray(i1) myArray(i1) = myArray(im) myArray(im) = tmp End If Next SortArray = myArray End Function |
Внешний цикл сравнивает по очереди каждый элемент массива с наименьшем элементом, найденным вложенным циклом среди оставшихся элементов (с бóльшими индексами), и, если наименьший элемент myArray(im) не является текущим элементом myArray(i1), они меняются местами.
Функция с выбором вида сортировки
Функция сортировки одномерного массива с дополнительным параметром mySort, который позволяет выбрать сортировку по возрастанию или убыванию и с числовым или текстовым сравнением числовых элементов массива:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Function SortArrayNew(myArray As Variant, mySort As Long) As Variant Dim l As Long, u As Long, i1 As Long, i2 As Long, im As Long, tmp As Variant l = LBound(myArray) u = UBound(myArray) For i1 = l To u im = i1 For i2 = i1 To u Select Case mySort Case Is = 0 If myArray(i2) < myArray(im) Then im = i2 Case Is = 1 If CStr(myArray(i2)) < CStr(myArray(im)) Then im = i2 Case Is = 2 If myArray(i2) > myArray(im) Then im = i2 Case Is = 3 If CStr(myArray(i2)) > CStr(myArray(im)) Then im = i2 End Select Next If im <> i1 Then tmp = myArray(i1) myArray(i1) = myArray(im) myArray(im) = tmp End If Next SortArrayNew = myArray End Function |
Значения, которые может принимать параметр mySort:
| Значение | Вид сортировки |
|---|---|
| 0 | по возрастанию с числовым сравнением чисел |
| 1 | по возрастанию с текстовым сравнением чисел |
| 2 | по убыванию с числовым сравнением чисел |
| 3 | по убыванию с текстовым сравнением чисел |
Пример сортировки массива
Пример использования разных видов сортировки одномерного массива в VBA Excel с выводом результатов на рабочий лист:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Sub Primer() Dim myArr As Variant, x As Variant, i As Long, n As Long For i = 1 To 4 myArr = Array(46, 25, "Лето", 508, 35, "лес", 11, 5, "25ф", "Лес", 45, 58, "лето", 350) myArr = SortArrayNew(myArr, i - 1) n = 1 For Each x In myArr Cells(n, i) = myArr(n - 1) n = n + 1 Next Next End Sub |
Результаты разных видов сортировки массива myArr:
Добрый вечер, Евгений!
Подскажите пожалуйста, если у Вас имеется информация.
В Экселе использовал формулу массива
{=ИНДЕКС(Наим_кружка_4;ПОИСКПОЗ(НАИБОЛЬШИЙ(СЧЁТЕСЛИ(Наим_кружка_4;">"&Наим_кружка_4);СТРОКА(T1:T1));СЧЁТЕСЛИ(Наим_кружка_4;">"&Наим_кружка_4);0))}для автоматического создания списка в алфавитном порядке. Пустые строки располагались ниже данных имеющихся в списке.
А в CALC (LibreOfice) при вводе вышеуказанной формулы, пустые строки располагаются выше данных имеющихся в списке.
Прошу помощи в решении.
Спасибо!
Обсуждение закрыто.