birden fazla sütunda bulunan yinelenen verileri kaldırma

[u.L.a.s]

merhabalar

A B C sütununda farklı hücrelerde bazı yerlerde aynı veriler olsun. bu verileri kaldırmak için ne yapılablir

Örneğin A2 de xxx verisi B5 tede var C18 dede var A27 de de var C97 de de var diyelim
ben A,B,C sütunlarında bu tekrarlayan verileri nasıl kaldırabilirim

 

[u.L.a.s]

sorumu düzeltiyorum

örneğin a sütununda A2 de A5 te A10 da tekrarlayan veri var.
ben bu tekrarlayan tüm verileri kaldırmak istiyorum satırlarıyla beraber yani A2:G2 arası veri var bu satır komple kalksın
A5:G5 satırı komple kalksın A10:G10 komple kalksın

 

[Seceren]

Veri sekmesi + Yinelenenleri Kaldır. Denediniz mi?

 

[u.L.a.s]

elbette ama o sadece A sütunundaki verileri siliyor. ve 1 tanesini bırakıyor.

ben ise A sütununda bulunan tüm verileri bulup ilgili satırlarıyla birlikte hepsini silmek istiyorum.

yani A sütununda xxx verisi bir çok hücrede tekrar ediyorsa çalıştıracağım makro ile A sütununda bir tane bile xxx verisi kalmayacak haliyle xxx verisinin bulunduğu satırlarda silinmiş olmalı

 

[Seceren]

Makrosuz böyle kaldırdım.

 

[u.L.a.s]

örnek dosyam aşağıdaki linktedir

yinelenenleri kaldır işiyle bir tane veri kalıyor ben yineleyenler kaçtane ise hepsi kalksın istiyorum

örnek dosyada ilk hali ve son hali var.
ilk halinde a sütunundaki xxx verileri yinelenen veriler
son halinde ise bu xxx verileri ilgili hiiç bir satır kalmamış o şekilde olsun istiyorum yani

İndir ornek

Dosyayı indir ornek

dosya.co

 

[veyselemre]

Sub tekrarliOlanlarinTumunuSil()
        son = Cells(Rows.Count, 1).End(3).Row
        With Range("M2:M" & son)
            .Formula = "=if(countif(A$2:A$" & son & ",A2)>1,0/0,"""")"
            .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
            .ClearContents
        End With
End Sub

 

[Seceren]

[TR][TD]
Bir gün bana lazım olur.

Sub Sildi()
Son = Cells(Rows.Count, "A").End(xlUp).Row
For i = Son To 2 Step -1
If InStr(1, Cells(i, "A"), "xxx") > 0 Then
Cells(i, "A").EntireRow.Delete
End If
Next i
End Sub

[/TD][/TR]
[TR][TD]

[/TD][/TR]

 

[u.L.a.s]

veyselemre Teşekkürler emeğinize bilginize sağlık

seceren desteğin için teşekkürler