Sıralama ile aynı olanların elenmesi

[qwasque]

Arkadaslar.

Forumda bu konu önceden açılmadığını umuyorum. Konu başlıklarından bulamadım. Hangi fonksiyonla olacağını bilmediğim için arama yapmakta zorlandım.

Bu konu önceden çözümlenmişse affedersiniz.

Sıralama yapıp aynı olanları tek tek silmekten kurtulmak istiyorum.
Bu konuda excelde bir formül var mı? Makro ile mi yapılması gerekiyor?

 

[Korhan Ayhan]

Selamlar,

Yardımcı sütun kullanarak ve sıralama yapmadan rahatlıkla yapabilirsiniz.

C4 hücresine Filtre yazın.
C5 hücresine =EĞERSAY($B$5:B5;B5) formülünü uygulayın. Ve aşağı doğru uygulayın.
Daha sonra B4:C4 hücrelerini seçin.
Veri menüsünden Filtre Uygula-Otomatik Filtre Uygula seçeneğini seçin.
C sütunundaki filtreden 2 yazanları süzerek filtrelenmiş satırları silin.
Bu şekilde mükerrer-aynı olan kayıtlardan kurtulmuş olursunuz.

İkinci bir alternatif ise hiç yardımcı sütun kullanmadan Veri menüsünden Filtre Uygula bölümünü açın ve buradan da Gelişmiş Filtre seçeneğini seçin.

Eylem kısmından Başka bir yere kopyala seçeneğini seçin.
Liste aralığı kısmında B sütunundaki verilerinizi seçin.
Hedef hücre kısmında yeni listeyi nerde görmek istiyorsanız o hücreyi seçin.
Yalnızca benzersiz kayıtlar seçeneğinide seçip tamam deyin.

Bu şekilde de mükerrer-aynı kayıtları elemiş olursunuz.

 

[Ali]

Arkadaslar.

Forumda bu konu önceden açılmadığını umuyorum. Konu başlıklarından bulamadım. Hangi fonksiyonla olacağını bilmediğim için arama yapmakta zorlandım.

Bu konu önceden çözümlenmişse affedersiniz.

Sıralama yapıp aynı olanları tek tek silmekten kurtulmak istiyorum.
Bu konuda excelde bir formül var mı? Makro ile mi yapılması gerekiyor?

Aşağıdaki linkteki dosyayı inceleyebilirsiniz.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[Orion1]

Kod ile aşağıdaki gibi olur.

Sub benzersiz()
Dim a As Variant, hcr As Range
Range("G6:G65536").ClearContents
With CreateObject("Scripting.Dictionary")
    For Each hcr In Range("B5:B" & Cells(65536, "B").End(xlUp).Row)
        If Not .exists(hcr.Value) Then
            .Add hcr.Value, Nothing
        End If
    Next
Range("G6").Resize(.Count, 1) = Application.Transpose(Array(.keys))
End With
Range("G6:G65536").Sort Range("G6")
End Sub