VBA Example: Sort Array Function

preview_player
Показать описание
Рекомендации по теме
Комментарии
Автор

Function SortVector(rng As Range)
Dim i As Integer, j As Integer, n As Integer
Dim Temp As Integer, A()
n = rng.Rows.Count
ReDim A(n, 1)
A = rng

For i = 2 To n
For j = 2 To n
If A(j - 1, 1) > A(j, 1) Then
Temp = A(j, 1)
A(j, 1) = A(j - 1, 1)
A(j - 1, 1) = Temp
End If
Next j
Next i
SortVector = A

End Function

amogussiiuuu
Автор

This is awesome! I modified to change order i.e. ascending/descending with optional parameter. Learned a lot! Thanks for sharing :)) Thumbs up!!

wayneedmondson
Автор

this quite a bit simillar to my project however does your code sir works for sorting letters?

edtardaguila
Автор

hi, its better late than never, may I ask why is it 2 to n, why it started in 2, not 1? noob here, I know I have to start in 1, but in here, it started on 2, please teach me a bit. thank you.

arielzabatecuizon