aynı 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.

 

[hamitcan]

Böyle deneyin.

Sub TespitEtSil()
    For i = [a65536].End(3).Row To 1 Step -1
        If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
          Cells(i, 1).Interior.Color = vbRed
        End If
    Next
    For i = [a65536].End(3).Row To 1 Step -1
        If Cells(i, 1).Interior.Color = vbRed Then
            Rows(i).Delete
        End If
    Next
End Sub

 

[bursacem]

Böyle deneyin.

Sub TespitEtSil()
    For i = [a65536].End(3).Row To 1 Step -1
        If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
          Cells(i, 1).Interior.Color = vbRed
        End If
    Next
    For i = [a65536].End(3).Row To 1 Step -1
        If Cells(i, 1).Interior.Color = vbRed Then
            Rows(i).Delete
        End If
    Next
End Sub

hocam çok saolun inşallah satırın belli hücreleri için uygulayabilirim