Вообще есть куча разнообразных способов и методов... Вот еще один: http://www.vbrussian.com/Article.asp?ID=97  
P.S. Google рулит)

Очень интересные демо показы различных сортировок  
 
http://www.cs.ubc.ca/~harrison/Java/sorting-demo.html

В VBA насколько я понимаю, ф-ции swap нету. Значит, напрямую преобразовать Си-пример в код VBA не получится. Вот в этой теме - http://www.planetaexcel.ru/forum.php?thread_id=5274 (была указана выше) - Турбо-Ёж впроде бы предлагал подогнаный под Excel метод Fast Quick Sort.

Потестил 2 способа Ежа и по ссылке http://www.vbrussian.com/Article.asp?ID=97  
с помощью  
Sub TestSort()  
   Dim iEntry()  
   Dim j: j = 1000000  
   ReDim iEntry(1 To j)  
   For iOuter = LBound(iEntry()) To UBound(iEntry())  
       iEntry(iOuter) = Int((20 * Rnd) - 10)  
   Next  
  Start1 = Timer  
  Call ShellSort2(iEntry())  
  MsgBox Format((Timer - Start1), "00:00")  
End Sub  
 
Так вот, сортировка Ежа на миллионе случайных чисел - 21 секунда, вторая сортировка - 7 секунд..  
Кстати, может кто-нибудь знает алгоритм извлечения уникальных элементов,кроме последовательного перебора отсортированного массива

{quote}{login=Артем}{date=09.01.2009 07:35}{thema=}{post}Потестил 2 способа Ежа и по ссылке http://www.vbrussian.com/Article.asp?ID=97  
с помощью  
Sub TestSort()  
   Dim iEntry()  
   Dim j: j = 1000000  
   ReDim iEntry(1 To j)  
   For iOuter = LBound(iEntry()) To UBound(iEntry())  
       iEntry(iOuter) = Int((20 * Rnd) - 10)  
   Next  
  Start1 = Timer  
  Call ShellSort2(iEntry())  
  MsgBox Format((Timer - Start1), "00:00")  
End Sub  
 
Так вот, сортировка Ежа на миллионе случайных чисел - 21 секунда, вторая сортировка - 7 секунд..  
Кстати, может кто-нибудь знает алгоритм извлечения уникальных элементов,кроме последовательного перебора отсортированного массива{/post}{/quote}  
 
 
по извлечению уникальных элементов посмотрите здесь:http://sql.ru/forum/actualthread.aspx?bid=46&tid=333152&pg=-1  
сортировать не надо..  
лучший способ с scripting.dictionary  
но и с коллекциями очень неплохо..  
 
на миллионе не пробовал, но на 60000(в 2003 икселе) доли секунды..

В приложенном архиве 3 файла  
 
1) сортировка от Chip Pearson, которую дал Слэн  
2) сортировка по методу Шелла с сайта http://www.vbrussian.com/Article.asp?ID=97  
3) сортировка взятая отсюда http://www.vbnet.ru/forum/show.aspx?id=90781&page=1  
 
По моим результатам 3-й вариант самый быстрый. Если я не прав, поправьте меня.

согласен с Павлом, метод с Vbnet самый быстрый - на моем ПК миллион значений обрабытывает за 5 сек, пирсоновский аж 34 секунды.(Не смотрел пока то что выложил ZVI)

Хм, а кто знает, как запустить этот метод бинарных деревьев с одномерным массивом? ))  
 
Объявил массив  
 
Dim MyArr() As Double, i As Long  
 
   ReDim MyArr(0 To 50000)  
   For i = 0 To 50000  
       MyArr(i) = Round(Rnd * 50000, 0)  
   Next i  
 
 
Вызываю процедуру сортировки    
 
HeapSort MyArr(), 1    
 
1 - т.е. одномерный массив (в процедуре написано указывать размерность)  
 
но процедура сразу заканчивается, т.к. в начале процедуры написано    
 
   If N = 1# Then  
       Exit Sub  
   End If  
 
С размерностью 0 - выходит ошибка (ну, это логично)  
с размерностю 2 - сортировка не происходит.    
 
Файл прилагаю.

Потестировал я сортировку QuickSort из файла Sort_Routines.xls, которую так полюбил автор этого файла. При тестировании я чуть не умер... лучший результат ... эм вам в миллисекундах сказать или лучше в минутах? )) В общем 252312 мс, на сколько я понимаю, это 4,2 минуты.    
 
Файл прикладываю.  
 
На сколько я понимаю, всё-таки самый быстрый пока остаётся 3-й вариант из моего поста post_44028.xls (http://www.planetaexcel.ru/docs/forum_upload/post_44028.rar), который я выложил выше в этой теме. Так?  
 
так... 5 утра ... надо ложиться спать. Всем споки.

Насчет оценок методов я предупреждал :) в VBA результаты методов иные, чем на C++. Коды, что приложил в архиве, не мои, рассматривайте их просто как (до)исторические :-)  
А метод, выбранный Павлом, действительно работает очень шустро.    
Да и сам Павел поработал этой ночкой очень плодотворно, за что ему большое спасибо.    
Интересно было бы, конечно, достичь в VBA скорости сортировки Excel-я.  
А то в определенных случаях все же приходится сортировать в ячейках.

В варианте Павла, работает и  Call QuickSortNonRecursive(Rng) и просто QuickSortNonRecursive Rng.  
 
Насчет swap все правильно: для уменьшения времени лучше явно вписать перестановку в общую процедуру, чем многократно вызывать функцию. Сам вызов функции на любом языке программирования - это время, не говоря уже о времени на создание локальных переменных внутри функции при каждом вызове и еще, возможно, на приведение типов данных.  
Например, в С, когда нужна скорость, вместо вызова функций используют макросы типа #define isdigit(x) ((x) >= '0' && (x) <= '9'), которые компилятор подсовывает в каждое место, откуда вызывался макрос. Но, с другой стороны, это увеличивает размер кода.  
В VBA тоже код увеличивается в размере, если подстановку (swap) потребуется вписать в несколько мест, зато сэкономится время тем большее, чем больше обрабатывемый массив.

крутил-крутил.. кроме swap ничего улучшить не получается. ну памяти чуть сэкономил, но и это еще вопрос :)  
Public Sub QuickSortNonRecursive(SortArray As Variant)  
Dim i As Long, j As Long, lb As Long, ub As Long  
Dim stack() As QuickStack, stackpos As Long, ppos As Long, pivot As Variant, swp  
   ReDim stack(1 To 64)  
   stackpos = 1  
 
   stack(1).Low = LBound(SortArray)  
   stack(1).High = UBound(SortArray)  
   Do  
       'Взять границы lb и ub текущего массива из стека.  
       lb = stack(stackpos).Low  
       ub = stack(stackpos).High  
       stackpos = stackpos - 1  
       Do  
           'Шаг 1. Разделение по элементу pivot  
           ppos = (lb + ub) \ 2  
           i = lb: j = ub: pivot = SortArray(ppos)  
           Do  
                While SortArray(i) < pivot: i = i + 1: Wend  
                While pivot < SortArray(j): j = j - 1: Wend  
                If i <= j Then  
                    swp = SortArray(i): SortArray(i) = SortArray(j): SortArray(j) = swp  
                    i = i + 1  
                    j = j - 1  
               End If  
          Loop While i <= j  
 
           'Сейчас указатель i указывает на начало правого подмассива,  
           'j - на конец левого lb ? j ? i ? ub.  
           'Возможен случай, когда указатель i или j выходит за границу массива  
           'Шаги 2, 3. Отправляем большую часть в стек  и двигаем lb,ub  
 
           If i < ppos Then   'правая часть больше  
               If i < ub Then  
                   stackpos = stackpos + 1  
                   If stackpos > UBound(stack) Then ReDim Preserve stack(1 To UBound(stack) + 32)  
                   stack(stackpos).Low = i  
                   stack(stackpos).High = ub  
               End If  
               ub = j        'следующая итерация разделения будет работать с левой частью  
           Else  
               If j > lb Then  
                   stackpos = stackpos + 1  
                   If stackpos > UBound(stack) Then ReDim Preserve stack(1 To UBound(stack) + 32)  
                   stack(stackpos).Low = lb  
                   stack(stackpos).High = j  
               End If  
               lb = i  
           End If  
       Loop While lb < ub  
   Loop While stackpos  
End Sub

Павел, у Слэна как раз и сделан вариант как для строк, так и для чисел.  
Только если вместо:  
Public Sub QuickSortNonRecursive(SortArray As Variant)  
написать:  
Public Sub QuickSortNonRecursive(SortArray() As Variant)  
то будет примерно в 1.6 раза быстрее.  
Всего лишь 2 скобки добавили :-)  
 
В приложении немного переделанный файл для совместной сортировки строк и чисел.

интересно, ZVI, почему именно умножать на 2 при увеличении массива stack?  
 
это не слишком? ведь выход за пределы массива вовсе не обозначает, что потребуется еще столько же уровней, скорее наоборот.. можно даже предположить сколько понадобится по формуле:  
например, для                 If i < ub Then  
                   stackpos = stackpos + 1  
 
можно оценить как:  (ub-i)/(ub-lb)*stackpos  
 
да и на самом деле, для случайных чисел , количество уровней колеблется в пределах: 10-11  
а при изначально упорядоченном массиве, возрастает лишь до 14  
 
на массиве из 65000 значений  
 
ps  не лень вам ждать каждый раз пока массив создается? да икак в таком случае сравнивать методы?  
 
свой файл прилагаю. перед первой сортировкой(ну и , соответственно, по желанию) нажать "поменять массив"