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.

[TABLE="width: 647"]
<colgroup><col><col span="4"><col><col span="6"></colgroup><tbody>[TR]
[TD]28oz Daily Granite Spray[/TD]
[TD]1501[/TD]
[TD]1501[/TD]
[TD]1501[/TD]
[TD]1501[/TD]
[TD]1522[/TD]
[TD]1553[/TD]
[TD]1501[/TD]
[TD]1501[/TD]
[TD]1502[/TD]
[TD]1555[/TD]
[TD]1501[/TD]
[/TR]
[TR]
[TD]28oz Granite Spray OrangeTngr[/TD]
[TD]1501[/TD]
[TD]1553[/TD]
[TD]1501[/TD]
[TD]1502[/TD]
[TD]1555[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]68oz Granite Refill[/TD]
[TD]1501[/TD]
[TD]1522[/TD]
[TD]1553[/TD]
[TD]1555[/TD]
[TD]1501[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]68ozGranite OrangeTngrRefill[/TD]
[TD]1501[/TD]
[TD]1553[/TD]
[TD]1555[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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