Програмирование в excel

[Roky]

как сортировать числа в столбце по возрастанию или убыванию в среде VBA

[R Dmitry]

Сообщение от Roky

как сортировать числа в столбце по возрастанию или убыванию в среде VBA

"На этой же странице не нашли? "

[SAS888]

Однако, если требуется сортировать именно числа, то ни "пузырьковый", ни какой-либо другой метод сортировки не сравнится в скорости с методом пересчета. Выигрыш по времени в десятки (сотни) раз.
Представлю пример использования данного метода:

Option Base 1
Sub Main()
    Dim i As Long, j As Long, k As Long, a(), b() As Long, x, y
    a = Array(31, 42, 3, 6, 23, 56, 77, 18, 12, 93, 9, 20, 82, 62) 'Исходный массив
    x = Application.min(a): y = Application.max(a): ReDim b(x To y)
    For i = LBound(a) To UBound(a): b(a(i)) = b(a(i)) + 1: Next
    k = LBound(a)
    For i = x To y
        For j = 1 To b(i)
            a(k) = i: k = k + 1
    Next: Next
'Для наглядности, выведем полученный массив в 1-ю строку рабочего листа
    [A1].Resize(, UBound(a)).Value = a
End Sub