Remove duplicates in a row

[Danny54]

whats the best way to remove duplicate data in each column specifying a starting and ending column

beginning sheet remove duplicates starting in row1 column J-P

J K L M N O P
1 cat dog mouse cat
2 bat car ball switch car ball key
3 man boy man woman
4 dog bat ball

output after removal done on row by row

J K L M N O P
1 cat dog mouse
2 bat car ball switch key
3 man boy woman
4 dog bat ball

Thanks

 

[JLGWhiz]

OK, think I have it figured out. Try this.

Sub t5()
Dim c As Range, i As Long
    For Each c In Range("J2", Cells(Rows.Count, 10).End(xlUp))
        For i = Cells(c.Row, Columns.Count).End(xlToLeft).Column To c.Column Step -1
            c.Resize(, i - 9).Replace " ", ""
            If Application.CountIf(c.Resize(, i - 9), Cells(c.Row, i).Value) > 1 Then
                Cells(c.Row, i).Delete xlShiftToLeft
            End If
        Next
    Next
End Sub

 

[Danny54]

Thanks to the both of you. Dante, yes, yours works well.

as for yours JLGWhiz, I did notice that the code was looking at data starting in row 2. I adjusted it as follows moving it to J1, what else should I have adjusted?
Im trying to learn is why Im asking in order to understand.

Thanks Guys


Here's my adjusted code for your solution


Sub t3()
Dim c As Range, i As Long
For Each c In Range("J1", Cells(Rows.Count, 10).End(xlUp))
For i = Cells(c.Row, Columns.Count).End(xlToLeft).Column To c.Column Step -1
If Application.CountIf(c.Resize(, i), Cells(c.Row, i).Value) > 1 Then
Cells(c.Row, i).Delete xlShiftToLeft
End If
Next
Next
End Sub

 

[DanteAmor]

Glad we could help & thanks for the feedback