Yinelenen Verilerin Sadeleştirilmesi

[ntikir]

Arkadaşlar Merhabalar;

Aranıza yeni katıldım ve belki de çözümü çok basit olan bir sorunum var.:frown:

Aynı değer bir başka hücrede de yazılmışsa yalnızca bir tanesi kalsın diğeri silinsin istiyorum. Ek'te sorunu daha iyi ifade eden bir dosya mevcut.

Yardımcı olursanız çok sevinirim.

 

[hamitcan]

B ve C sütunlarındaki verileri A sütunundaki verilerin altına ekleyin sonra VERİ sekmesinden Yinelenenleri Kaldır fonksiyonunu çalıştırın.

 

[ntikir]

Sayın HamitCan cevabınız için teşekkür ederim. Ama sorunum kolay anlaşılsın diye bu şekilde bir örnek çalışma yolladım.
Gerçek veri setim 200 satır ve 200 sütunluk.
Altına ekleme yapmaya çalıştığım zaman , veri seti büyük olduğundan program bir süre sonra hata veriyor.

Tüm sayfa dikkate alınarak Yinelenen verilerin taranması nasıl mümkündür?

 

[hamitcan]

Bu şekilde bir deneyin.

Sub BulDegistir()
    s = [a65536].End(3).Row
    For i = 1 To s
    If WorksheetFunction.CountIf(Range("a1:c" & s), Cells(i, 1)) > 1 Then
    Range("a1:c" & s).Replace _
        What:=Cells(i, 1), Replacement:="", _
        SearchOrder:=xlByColumns, MatchCase:=True
    End If
    Next
    MsgBox "Bitti"
End Sub

 

[ntikir]

Sayın Hamitcan;

Cevabınız için çok çok teşekkür ederim.
Fakat kodu çalıştırmadım. Aynı mail adresleri farklı sütunlarda hala duruyor.
Ne önerirsiniz?

 

[hamitcan]

Eki inceleyin.