Mükerrer Satırları Bulma

[makgoren]

Merhaba,
ekteki dosyada ortalama 14 Bin satır veri var.
B-C-D-E kolonlarında verilere göre mükerrer olan satırları tespit etmek istiyorum.
Bir kaç çalışmada yaptım ancak süre olacak çok uzun sürüyor.
Hızlı sonuç üretecek bir çözüme ihtiyacım var.

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

_

 

[tamer42]

G hücresine aşağıdaki formülü uygulayın...

=EĞERSAY(B:B;B5)

 

[Necdet]

Merhaba,
Makrolu öneri, dosyanızın yedeğini alıp deneyiniz.

Public Sub mukerrerBul()

'Referanslardan Microsoft Scripting Runtime Seçili Olmalı

Dim arr As Variant
Dim dic As New Dictionary
Dim i   As Long
Dim x   As Variant

arr = Range("A4").CurrentRegion.Value

For i = 2 To UBound(arr, 1)
    x = arr(i, 2) & arr(i, 3) & arr(i, 4) & arr(i, 5)
    If Not dic.Exists(x) Then
        dic.Add x, i
    Else
        arr(dic.Item(x), 7) = "Mükerrer"
        arr(i, 7) = "Mükerrer"
    End If
    
Next i

Range("A4").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

MsgBox "İşlem Tamamlanmıştır...."

End Sub

 

[NADİR YILDIZ]

Necdet hocam benimde çalışmalarımı kullanabileceğim bir kod
uyguladım ancak olmadı

'Referanslardan Microsoft Scripting Runtime Seçili Olmalı

sanırım buradan kaynaklı bu nedir nasıl olmalı nereden seçmeliyim yardımcı olurmusunuz

iyi çalışmalar

 

[Necdet]

vba ekranında, tools - references

 

[makgoren]

Çok teşekkürler Necdet bey,
çok hızlı çalışıyor.

 

[Necdet]

Güle güle kullanınız.