tekrarlayan verilerden sadece 1 tanesini listeleme

[feraset045]

arkadaşlar 2 sütunumuz var birinde isimler diğerinde başarı notu ben bunları sıralamak istiyorum
örnek listem şu:
1-ahmet 64,28
2-hüseyin 64,28
3-ali 66,20
4-hasan 66,20
5-hakan 66,20
6-veli 75,10
7-selin 75,10

ben şu şekil yapmak istiyorum
1-ahmet 64,28
2-ali 66,20
3-veli 75,10

 

[feraset045]

kısaca arkadaşlar tekrarlayan sayılar gözükmesin yada sıralamaya girmesin istiyorum

 

[Saban Sertkaya]

İsimler sonundaki rakamlar hep aynı şekilde midir?
12,45 = Virgül ile birlikte 5 karakter
Eğer bu şekilde ise rakamlar bir sütuna alınıp orada işlem yaptırılabilir.


Veya verileriniz tam olarak bu şekilde midir ?
Ahmet 12,34
Soyisim var mıdır ? Sadece isim ve rakam ise aradaki boşluk karakteri kullanılarak yine rakamlar bir sütuna alınıp işlem yaptırılabilir.

Kısaca örnek bir dosya eklemeniz, hem bizleri tekrar tekrar kod yazmaktan kurtaracak hem de sizin için direkt çözüm olacaktır.
Upload sitesi olarak www.dosya.web.tr 'yi kullanabilirsiniz.

 

[bzace]

Merhabalar,
Şaban Bey'in vereceği örneğe alternatif olarak;
Varsayımlar üzerinden gidelim.

• A2:A5 aralığına isimler,
• B2:B5 aralığına sayılar,
• F2 hücresine 1. formül,
• E2 hücresine 2. formül,

girişlerini yaparak deneyiniz.
1. formül;

=İNDİS(B$2:B$5;KAÇINCI(;EĞERSAY(F$1:F1;B$2:B$5);))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

2. formül;

=YERİNEKOY(DÜŞEYARA("*"&F2;A$2:A$5&B$2:B$5;1;);F2;)
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Uitser Madina

Not: Hücreye yazdığınız sayılar yuvarlama yapmadığı düşünüldü.
Örnek: 38,4678 ve 38,4677 hücre ondalık basamak sayısı 2 basamak olduğunda sayılar aynı gibi görünür ama sayılar aynı değildir. Bu hususu atlamayınız.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Veriler a ve b sütunlarındadır.
Link aşağıdadır.

DOSYAYI İNDİR

Sub benzersiz59()
Dim z As Object, liste(), i As Long
Set z = CreateObject("Scripting.dictionary")
Range("D2:E" & Rows.Count).Clear
liste = Range("A2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 2)) Then z.Add liste(i, 2), liste(i, 1)
Next i
Range("D2").Resize(z.Count, 2) = Application.Transpose(Array(z.items, z.keys))
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub