Sadece hücre içindeki bilgilerin silinmesi makro

[senerozun]

sayfa1 deki A -B- C sutunlarındaki hüsrelerde bulunan aynı isimleri sildirmek istiyorum. Bu işlem yapılırken satırların silinmemesi gerekiyor. Sadece hücre içindeki bilgilerin silinmesi lazım. Bunun için nasıl bir makro oluşturabiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub duzenle()
Application.ScreenUpdating = False
Set s1 = Sheets("sayfa1")
For a = s1.[b65536].End(3).Row To 2 Step -1
If WorksheetFunction.CountIf(s1.Range("b1:b" & a), s1.Cells(a, "b")) > 1 Then
s1.Range("a" & a & ":c" & a).ClearContents
Else
s1.Rows(a).Insert
End If
Next
End Sub