Sadece bir kolonda ki tekrarı silmek

[winpeace]

Diyelim a sütünunda ali-veli-ali-veli
b sütunundada ali-veli-ali-veli
c sütunundada ali-veli-ali-veli yazsın.

Ben sadece a sütunudaki mükerrer kayıtları silmek istiyorum.Ama aşağıdaki kod b ve c sütunlarındaki mükerrer kayıtlarıda siliyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then
Cells(a, "a").Delete shift:=xlUp
End If
Next
End Sub

 

[winpeace]

Teşekkür ederim.
Bunu b,c....vb diğer harfli sütunlar için yapmak istediğimizde tüm 'a' harflerini istediğimiz sütunun harfiylemi değiştereceğiz?

 

[N.Ziya Hiçdurmaz]

Teşekkür ederim.
Bunu b,c....vb diğer harfli sütunlar için yapmak istediğimizde tüm 'a' harflerini istediğimiz sütunun harfiylemi değiştereceğiz?

Evet hangi sütunsa ona göre a,b,c gibi.