Aynı formattaki tekrar eden verileri silme !

[huseyingodek]

merhaba arkadaslar , elimde 32.000 satırlık bir excel dosyası var ve içinde surekli tekrar eden veriler mevcut. Tekrar eden verileri makro yoluyla silmeyi denedim olmadı. Yardım edermisiniz ? Işletim sistemi Mac excel sürümü 2011

 

[bzace]

Merhaba,
http://www.excel.web.tr/f14/benzersizleri-ykarma-t134396/sayfa3.html
Linkini incelermisiniz.

 

[huseyingodek]

baktımda hocam benim sorunum daha farklı , aynı kelimelerin gectiği satırları silmesi gerekiyor

 

[asi_kral]

baktımda hocam benim sorunum daha farklı , aynı kelimelerin gectiği satırları silmesi gerekiyor

Merhaba
A sütununda olduğu varsayılmıştır.

Option Explicit
Sub sil()
Dim STR As Long
Application.ScreenUpdating = False
For STR = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & STR), Cells(STR, "A")) > 1 Then
Cells(STR, "A").Delete
Next
Application.ScreenUpdating = True
End Sub