Remove Duplicates Function for Single Cells

I have numerous cells, each cell in the column contains duplicate values that I would like removed (duplicates to be removed from each individual cell, not from entire column).

Example:

Cell A1 contains: MX-30, MX-30, MX-30, MX-31, MX-32, result after function should be: MX-30, MX-31, MX-32.

Cell A2 contains: MX-30, MX-30, MX-31, result after function should be: MX-30, MX-31.

All of my values are separated by commas, so I just need a function/formula that I can copy and paste down across the entire column so that it will remove the duplicate values that appear inside of each cell.

Thank you in advance for anyone that chimes in with a solution,

Red Engine

Do you know that maximum how many unique values will stay in a cell?

If you want a VBA solution then you can use this :

Function Remove_Dupli(Rng As Range) As String
    Dim strArray() As String
    Dim strColl As Collection
    Set strColl = New Collection
    strArray = Split(Rng, ",")
    On Error Resume Next
    For i = LBound(strArray) To UBound(strArray)
        strColl.Add Trim(strArray(i)), CStr(Trim(strArray(i)))
    Next i
    For i = 1 To strColl.Count
        If Result = "" Then
            Result = strColl(i)
        Else
            Result = Result & ", " & strColl(i)
        End If
    Next i
    Remove_Dupli = Result
End Function

Then write this formula on B1 :

Remove_Dupli($A1)

There is no maximum unique values - each cell contains a different # of values, sometimes a cell may have up to 100 unique values after duplicates are removed. Thank you guys for writing in, I will try the above suggestions. Does anyone have something that I could paste into the adjacent cell though?

For instance, if A1 contains: MX-30, MX-40, MX-30, MX-50, MX-60, is there something like an "=IF" formula I could paste into cell B1 to return: MX-30, MX-40, MX-50, MX-60? That way, I could just copy the formula down across the column to remove duplicates from the cells.

As you don't know the maximum unique values, so it is not possible with formula as far as I know. But may be an expert can give you the correct answer. Because sometimes they create some awesome array formulas to solve the problem like that. But my suggestion is to use the VBA instead.

Okay, so for the VBA I would inject that code into my VBA module section, then run it, then paste "Remove_Dupli($A1)" into B1 and copy it down onto all the cells that I need?

Yes. That's all you need.

Thank you, I will give it a try.

I tried the VBA recommendation, input the VBA into the module section, saved and closed the window, then pasted "Remove_Dupli($A1)" into the B1, it doesn't execute any results, it only yields "#NAME!".

May be you are doing something wrong. See the attachment.

BTW you need to save your file with a macro-enabled format such as .xls or .xlsm

Okay, I just got it to work and it executed perfectly, so thank you. I had a minor typo issue when I copied the VBA into the module. Thank you for the solution and thank you to everyone who wrote in with answers, this community is great and I sincerely appreciate the feedback on my post.

You are welcome.

Marked as solved, thanks guys.