dubbele waarden in 1 cel verwijderen

[appie36]

Hallo,

Ik heb een bestand waar veel dubbele waarden in 1 cel voorkomen, nu wil ik de dubbele waarden in 1 cel verwijderen. Is zoiets mogelijk ? in het voorbeeldje heb ik de gewenste uitkomst er achter gezet.

Mvg,

Ab.

 

[AlexCEL]

Met Excel 365 is het nog redelijk te doen:

I4: =TEKST.COMBINEREN(", ";WAAR;UNIEK(SPATIES.WISSEN(DEEL(SUBSTITUEREN(C4;", ";HERHALING(" ";100));1+(RIJ($1:$100)-1)*100;99))))

Voor eerdere versies van Excel wordt het er niet gemakkelijker op met een formule in 1 cel... dan worden het wat hulpkolommen of VBA gok ik.

 

[JEC.]

Deze werkt ook

Sub j()
For i = 4 To Cells(4, 3).End(xlDown).Row
  Cells(i, 3).TextToColumns Range("N4"), xlDelimited, Comma:=True
  jv = Cells(4, 14).CurrentRegion
    With CreateObject("scripting.dictionary")
        For ii = 1 To WorksheetFunction.CountA(jv)
           .Item(Trim(jv(1, ii))) = jv(1, ii)
        Next ii
          Cells(i, 9) = Join(.items, ",")
    End With
Cells(4, 14).CurrentRegion.ClearContents
Next i
End Sub

 

[snb]

Speciaal voor JVeer een UDF (User Defined Function)

Function F_snb(c00)
   sn = Split(c00, ",")
   With CreateObject("scripting.dictionary")
     For j = 0 To UBound(sn)
       x0 = .Item(sn(j))
     Next

     F_snb = Join(.keys, ",")
    End With
End Function

In I4:

=F_snb(C4)

 

[JEC.]

@Snb bedankt:thumb:
Hard aan het oefenen!

 

[snb]

Dat komt wel goed.

Realiseer je wel: de keys (sleutels) zijn altijd uniek in een dictionary.
Als je op zoek bent naar unieke 'items' moet je gebruik maken van de .keys van een dictionary en niet van de .items.

 

[appie36]

Bedankt voor het meedenken, die van #4 doet het geweldig. In ieder geval genoeg informatie om verder te komen. :thumb:

 

[JEC.]

Ik had ze beide getest. In dit geval leek het niet uit te maken of ik nou .keys of .items gebruikte. Omdat het geen 2 dimensionale data is?

 

[snb]

In mijn code wordt het item in de dictionary leeggehouden en wordt alleen de .key eigenschap gebruikt.
Jij geeft aan iedere key dezelfde key-waarde aan de eigenschap .item. Dat is overbodig. Ann de .keys heb je voldoende.