Sorting

[Fire_Chief]

I have an array of numbers that I want to sort from highest to lowest.



Numbers(100)

 

[Joe Was]

What was wrong with your same posts answer here:

http://www.mrexcel.com/board2/viewtopic.php?t=234337

 

[Fire_Chief]

That one I wanted to just know the highest number

 

[Joe Was]

Sub ShellSort()
'Dave Braden's code
Dim i As Long, j As Long, inc As Long, list As Variant
Dim var As Variant, LowIndex As Integer, HiIndex As Long
Dim myArray$

'list = [{"Nate","Colo","Orange","Ivan"}]
list = [{2,1,4,3}]

LowIndex = LBound(list): HiIndex = UBound(list)
inc = 1

Do While inc <= HiIndex - LowIndex: inc = 3 * inc + 1: Loop
Do
inc = inc \ 3

For i = LowIndex + inc To HiIndex
var = list(i)
j = i

Do While list(j - inc) > var
list(j) = list(j - inc)
j = j - inc

If j <= inc Then Exit Do
Loop
list(j) = var
Next

Loop While inc > 1

For a = 1 To 3
myArray = myArray & list(a) & ", "
Next a

myArray = myArray & list(4)

MsgBox myArray
End Sub

 

[Fire_Chief]

That certainly works well but I have no idea how to apply that to my spreadsheet..

What I have is


NUMBERS(1) = 237
NUMBERS(2) = 468
NUMBERS(3) = 15
NUMBERS(4) = 729
NUMBERS(5) = 333
NUMBERS(6) = 934

Would you please explain.

Marty