rastgele veriden sıralama

[thegame]

selamlar excel severler

şöyle bir sütunum var

4
7
8
4
9
4
5

sırasız ve aynı değerlerden mevcut ve 120 satır filan benim istediğim bu sıralamaya göre

4
5
7
9 şeklinde her veriden bir adet ve sıralı bir biçimde diğer bir sütuna yazdırması

ilgilenen arkadaşlara çok teşekkür ederim

 

[apocalyt]

bunun için bir formüle yada koda ihtiyacınız yok..bu sutunun aynısını yan sutuna kopyalayın..sonra kopya oluşturduğunuz sutunu seçin..yukarıdan excel "veri" sekmesine tıklayın.."yinelenenleri kaldır" sekmesini kullanın..daha sonra yine aynı "veri" sekmesinde bulunan "sırala" tool unu kullanarak sıralayın..

 

[thegame]

çok mantıklı ancak bunun gibi ondan fazla sütunum ve her bütün işlemleri tekrarlayacağım bi 20 sekmem filan var onun için kod istemiştim eğer yoksa sizin dediğiniz de faydalı olur ilginiz için teşekkür ederim =)

 

[apocalyt]

verilerinizi a sutununda olduğu ve a1 hücresinden başladığı varsayıldı..b sutununa istediğiniz sonuçlar gelicektir..aşağıdaki kodu deneyiniz thegame..

Sub daylight()
a = WorksheetFunction.CountA(Range("a1:a6500"))
Range("a1:a" & a).Copy Range("b1")
Range("b1:b" & a).Sort Range("b1")
For i = 1 To a
For y = 1 + i To a
If Cells(i, 2).Value = "" Then Exit Sub
If Cells(i, 2).Value = Cells(y, 2) Then
Cells(y, 2).Delete shift:=xlUp
y = y - 1
Else
Exit For
End If
Next y
Next i
End Sub

 

[f_desat]

bu örnek yardımcı olur sanırım