Aynı hücrelerin birini bırakmak

[ErdemBakir24]

Merhaba,

http://s3.dosya.tc/server10/1kghzw/Ornek.xlsx.html

Ekteki dosyadaki listede a sütununda benzer değerler kuralı var.

bu benzer hücrelerden, birini silip birini bırakmam lazım.

Yardımcı olurmusunuz

 

[tirEdsOuL]

A-B-C sütunlarını seçip Veri sekmesinden Yenilenenleri Kaldır seçeneğini seçin, çıkan ekrandan tüm tikleri kaldırıp sadece A sütunu seçin ve tamam diyin.

 

[ErdemBakir24]

Teşekkürler.

 

[tahsinanarat]

ABC Sutunları aynı ise kaydın birini siler, modüle yapıştırıp çalıştırınız.

Sub mukerrer()
For a = [a65536].End(3).Row To 1 Step -1
say = Evaluate("=SUMPRODUCT((A1:A" & a & "=A" & a & ")*(B1:B" & a & "=B" & a & ")*(C1:C" & a & "=C" & a & "))")
If say > 1 Then Rows(a).Delete
Next
End Sub

örneğinizde; a sütunundaki YAPAR 32774R adlı satırda mükerrer görünsede satırın birinde bir boşluk var o yüzden silmedi, satır sonlarındaki boşlukları sildirip çalıştırırsanız dah asağlıklı olur, bilgilerinize.