DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(EĞERSAY($A$1:A1;A1)=1;A1;"")
Sub tekedusur()
For i = 1 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1)) <> 1 Then
Cells(i, 1).ClearContents
End If
Next
End Sub