Looping Thru Cell List??

[Esham]

What would be the best approach to removing duplicates in a list with a definate seperator? Here is my issue: Cell "A1" has a list of numbers seperated by a "\". I know I can split the list by using SPLIT(expression,"\"). Now once the list is split I want to put only once instance of a number back in the cell i.e. Cell "A1" has the following numbers: "5\5\5\10\10\15\15\5\10" What I want to have is: "5\10\15"

[manavo11]

I'm sure there are better ways, but this seems to work :

Option Explicit
 
Private Sub Form_Load()
    Dim S As String
    Dim Ar() As String
    Dim i As Integer
    Dim j As Integer
    Dim sNew As String
    
    S = "5\5\5\10\10\15\15\5\10"
    
    Ar = Split(S, "\")
    
    For i = 0 To UBound(Ar)
        For j = i + 1 To UBound(Ar)
            If Ar(i) = Ar(j) Then
                Ar(j) = vbNullString
            End If
        Next
    Next
    
    sNew = Join(Ar, "\")
    Do While InStr(1, sNew, "\\")
        sNew = Replace$(sNew, "\\", "\")
    Loop
    
    MsgBox sNew
End Sub

I don't know if you are coding in VBA, but this is VB6. You can take the whole form load code and make it a function and use it in your VBA code just as easily.