satırda yinelen değerleri kaldır makrosu

[musaliha]

Merhaba ben satırda iki hücre arası yinelenen değerlerden bir tanesinin ,olduğu hücrede kalması, diğer yinelenenlerin silinmesini sağlayan bir makroya ihtiyacım var.yardımcı olabilirmisiniz

 

[Muzaffer Ali]

Merhaba.
Verilerinizin A kolonunda olduğunu varsayarsak aşağıdaki kod satırını kullanabilirsiniz.

Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

 

[muratboz06]

Hangi satırdaki yinelenenleri kaldırmak istiyorsanız o satırda herhangi bir hücreye tıklayınız ve aşağıdaki kodu çalıştırınız.

Sub SatirdaYinelenleriKaldir()
Dim sonSütun As Integer
sonSütun = ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Column
For i = 2 To sonSütun
  
    If WorksheetFunction.CountIf(Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, i)), Cells(ActiveCell.Row, i)) = 2 Then
    Cells(ActiveCell.Row, i) = ""
    End If
    
Next i
End Sub

 

[musaliha]

Teşekkür ederim.Tam istediğim gibi