Copy unique values only from a single cell

[eeb]

Hello,

I have a list of values separated by a hard return in a single cell, and want to copy only the unique values into a list in another cell.

Please let me know any additional information that would be required.

The initial lists are of variable length, (3-100 values). and the value is a text string of 3-40 characters. The values occur anywhere from once, to 8 times in the list.

 

[JEC]

Maybe like this(put this behind a module)

Function jec(cell As String) As String
  With CreateObject("scripting.dictionary")
    For Each it In Split(cell, Chr(10))
       c00 = .Item(it)
    Next
    jec = Join(.keys)
  End With
End Function

You can call this function as

=jec(A1)

 

[eeb]

Maybe like this(put this behind a module)

Function jec(cell As String) As String
  With CreateObject("scripting.dictionary")
    For Each it In Split(cell, Chr(10))
       c00 = .Item(it)
    Next
    jec = Join(.keys)
  End With
End Function

You can call this function as

=jec(A1)

any chance you know the GSheet conversion for this ? I used textjoin so I switched to GSheet.

thanks!!

 

[Fluff]

When you need something for anything other than Excel, please post in the General Discussion & Other Applications section of the board & clearly state what app you are working with.