Sıralama, veriyi liste haline getirmek

[mersilen]

Merhabalar,
Tablodaki değerleri sıralamasını yapabilir miyiz ?
VBA ve olursa python.
Alternatif çözümlerde olabilir.
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Ofis 365 sürümü için alternatif..

=SIRALA(SÜTUNA(A1:E5);;1)

 

[mersilen]

Teşekkürler
Ofis 365 kullanmıyorum.
Cevabınız muhtemelen doğrudur
Mümkünse VBA kodu ve python ile kod çözümünü yapabilir miyiz ?
Döngüyü görmek istiyorum.

Asıl veri pythonda list yapısında.

 

[Korhan Ayhan]

En kestirme yol ArrayList ya da verileri bir sütuna aktarıp excelin sıralama özelliğini kullanmaktır. Ya da verileri diziye alıp "Bubble Sort" "QuickSort" gibi algoritmaları kullanabilirsiniz.

"ArrayList" için örnek kodlama... Sonuçlar N sütununa listelenir..

Option Explicit

Sub Sorting_Number_List()
    Dim Rng As Range, X As Range, My_Data As Variant
    
    Set Rng = Range("A1:E5")
    
    With CreateObject("System.Collections.ArrayList")
        For Each X In Rng
            .Add X.Value
        Next
        
        .Sort
        My_Data = .ToArray
        Range("N1").Resize(UBound(My_Data) + 1) = Application.Transpose(My_Data)
        MsgBox Join(My_Data, vbLf)
        MsgBox Join(My_Data, ",")
    End With

    Set Rng = Nothing
End Sub