Remove Duplicate Text By Formula

[chetanmehra1989]

Hello Evryone,

I Need A formula to remove Duplicate text in the Cells lets take an ex:


Cells A1 A,A,B,N,B,B
Answer A,B,N

 

[VBA Geek]

UDF.

how to call it

if your string is in, lets say A1

you would do

=returnUniques(A1,","), where the second argument is the delimiter of the string.

Function returnUniques(S As String, Delim As String) As String
    Dim strOut   As String
    Dim Arr      As Variant
    Dim intCount As Integer
    Arr = VBA.Split(S, Delim)
    For intCount = LBound(Arr) To UBound(Arr)
        If Application.Match(Arr(intCount), Arr, 0) = intCount + 1 Then strOut = strOut & Arr(intCount) & Delim
    Next
    returnUniques = Left$(strOut, Len(strOut) - 1)
End Function

 

[chetanmehra1989]

I need Excel Formula, i don't want any type of vb script
will u pls help me to sort out this

 

[VBA Geek]

I am not even sure you can do this with just 1 formula without using helper columns. and for sure the process and speed would take much longer than installing the UDF and calling it from the worksheet

I need Excel Formula, i don't want any type of vb script
will u pls help me to sort out this