Tekrar edenleri bulup silme

[hasankardas]

Tekrar edenleri bulup silmek istiyorum ama tekrar edenin bir tanesi kalmalı.

Sub sil()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = "aa" Then
Rows(i).Delete
End If
Next
End Sub



bu makroda aaradığımı bulup siliyor ama satırları yukarı taşıyor. bunu direk aranan şeklinde değil tüm veri içerisinde yapabilir miyiz?

 

[Necdet]

Merhaba,

3 kere okudum mesajınızı tam olarak ne yapmak istediğinizi anlamadım.
Silmekten kastınız satırı silmek mi, içeriğiniz silmek mi?
"Aranan şeklinde d eğil tüm vleri içerisinde" ne demek?

 

[hasankardas]

Necdet Bey hakkınızı helal ediniz. içeriğin silinmesini istiyorum. c sütununda olduğu gibi.

 

[hasankardas]

Merhaba,

3 kere okudum mesajınızı tam olarak ne yapmak istediğinizi anlamadım.
Silmekten kastınız satırı silmek mi, içeriğiniz silmek mi?
"Aranan şeklinde d eğil tüm vleri içerisinde" ne demek?

Necdet Bey hakkınızı helal ediniz. içeriğin silinmesini istiyorum. c sütununda olduğu gibi.

 

[Necdet]

Merhaba,
Aşağıdaki kodlar A sütununda mükerrer değerleri bulur ve içeriğini siler.

Not : 1. satırın başlık, verilerin 2. satırdan itibaren başladığı düşünülmüştür.

Sub AynıVerileriSil()

    Dim i   As Long, _
        c   As Range
   
    For i = 3 To Cells(Rows.Count, "A").End(3).Row
        Set c = Range("A2:A" & i - 1).Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Cells(i, "A") = ""
    Next i
   
End Sub

 

[hasankardas]

teşekkür ederim