Как упорядочить массив из N элементов по убыванию в VBA?

Ответ от Ѓдачник[гуру]
Для сортировки массива в VBA чаще всего применяют алгоритм пузырьковой сортировки. Чтобы упорядочить массив по возрастанию, необходимо менять элементы местами, если текущий элемент больше следующего. Для сортировки по убыванию условие сравнения меняется на противоположное. Пример универсального кода для сортировки по возрастанию:
Dim i As Long, j As Long, temp As Variant
For i = LBound(A) To UBound(A) - 1
For j = i + 1 To UBound(A)
If A(i) > A(j) Then
temp = A(i)
A(i) = A(j)
A(j) = temp
End If
Next j
Next iЕсли вам нужно упорядочить массив по убыванию, просто замените знак больше на меньше в условии: If A(i) < A(j) Then. Использование функций LBound и UBound делает этот код надежным, так как он автоматически учитывает реальные границы индексов вашего массива, а переменная temp в формате Variant гарантирует корректную работу с любыми типами данных.