Benzer verileri silme

[bursacem]

Sayın Hocalarım ;

bir satır veya hücredeki aynı olan değerleri komple silmek istiyorum.

Fakat yenilenenleri kaldırda benzeyenlerden bir tanesini kaldırıyor.

a
a
b
c
d
e
e
ben aynı olan değerleri silsin istiyorum..yani

sonuçta b c d verileri kalsın.

 

[catalinastrap]

Sayın Hocalarım ;

bir satır veya hücredeki aynı olan değerleri komple silmek istiyorum.

Fakat yenilenenleri kaldırda benzeyenlerden bir tanesini kaldırıyor.

a
a
b
c
d
e
e
ben aynı olan değerleri silsin istiyorum..yani

sonuçta b c d verileri kalsın.

aşağıdaki kodu bi denermisiniz

Sub tekrarlarıSil()
son = [A65536].End(3).Row
formul = Replace("SUMPRODUCT((A2:A65536=A999)*(B2:B65536=B999))", 65536, son)
For i = [A65536].End(3).Row To 2 Step -1
If Evaluate(Replace(formul, 999, i)) > 1 Then Rows(i).Delete Shift:=xlUp
Next i
End Sub