Removing Duplicates - Same Row

[ReggaeYT]

hey all -

I may be overthinking this one, but I'm having difficulty removing duplicate codes on the same row. Transposing is not an option - Excel keeps rejecting it, as I have 1729 rows with between 1 and 16 codes in them. Unfortunately, some are duplicates and I'd like to get rid of them in a single stroke, but I'm not sure how. Duplicates are also not necessarily next to each other, so a for loop macro won't work for me (and my limited VBA experience).

Below is a small example of what I'm working with.

28oz Daily Granite Spray	1501	1501	1501	1501	1522	1553	1501	1501	1502	1555	1501
28oz Granite Spray OrangeTngr	1501	1553	1501	1502	1555
68oz Granite Refill	1501	1522	1553	1555	1501
68ozGranite OrangeTngrRefill	1501	1553	1555

<colgroup><col><col span="4"><col><col span="6"></colgroup><tbody>
</tbody>

Thanks for any help!

 

[Fluff]

How about

Sub ReggaeYT()
    Dim Cl As Range, c As Range
    
    With CreateObject("scripting.dictionary")
        For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
            For Each c In Cl.Offset(, 1).Resize(, 16)
                .Item(c.Value) = Empty
            Next c
            Cl.Offset(, 1).Resize(, 16).ClearContents
            Cl.Offset(, 1).Resize(, .Count).Value = .Keys
            .RemoveAll
        Next Cl
    End With
End Sub

 

[ReggaeYT]

Worked like a charm, thanks!

 

[Fluff]

You're welcome & thanks for the feedback