Dubbele waarde welke i 1 cel staan

[jjmermen]

Goedemorgen,

Ik heb in kolom A meerdere waardes in cel A1:A214 staan die punt komma gescheiden zijn.
Het komt voor dat er in één cel dubbele waardes in staan. Is het mogelijk om doormiddel van bijvoorbeeld een formule in te voeren, de unieke waardes overblijven.

Alvast bedankt.

 

[AlexCEL]

Deze excel 365 formule geeft per regel de unieke waarden tussen de punt-komma's terug in weer 1 cel

=TEKST.COMBINEREN(";";WAAR;UNIEK(TEKST.SPLITSEN(A1;";");WAAR))

 

[snb]

Het lijkt alsof je een exportprobleem aan de importkant wil oplossen.
Vraag de exporteur om een csv-bestand met correcte gegevens.

Sub M_snb()
   sn = Cells(1).CurrentRegion
   
   For j = 1 To UBound(sn)
     sp = Split(Replace("|" & sn(j, 1) & "|", ";", "|;|"), ";")
     For jj = 0 To UBound(sp)
       If UBound(Filter(sp, sp(jj))) > 0 Then sp(jj) = "~"
     Next
     sn(j, 1) = Replace(Join(Filter(sp, "~", 0), ";"), "|", "")
   Next
   
   Cells(1, 10).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub

NB er staan ook waarden in die met uitzondering van 2 voorloopnullen identiek zijn, of waarvan de een een punt bevat en de andere niet.

 

[jjmermen]

Deze excel 365 formule geeft per regel de unieke waarden tussen de punt-komma's terug in weer 1 cel

=TEKST.COMBINEREN(";";WAAR;UNIEK(TEKST.SPLITSEN(A1;";");WAAR))

Hartelijk bedankt voor deze oplossing. Precies wat ik zocht.

 

[jjmermen]

Het lijkt alsof je een exportprobleem aan de importkant wil oplossen.
Vraag de exporteur om een csv-bestand met correcte gegevens.

Sub M_snb()
   sn = Cells(1).CurrentRegion
   
   For j = 1 To UBound(sn)
     sp = Split(Replace("|" & sn(j, 1) & "|", ";", "|;|"), ";")
     For jj = 0 To UBound(sp)
       If UBound(Filter(sp, sp(jj))) > 0 Then sp(jj) = "~"
     Next
     sn(j, 1) = Replace(Join(Filter(sp, "~", 0), ";"), "|", "")
   Next
   
   Cells(1, 10).Resize(UBound(sn), UBound(sn, 2)) = sn
End Sub

NB er staan ook waarden in die met uitzondering van 2 voorloopnullen identiek zijn, of waarvan de een een punt bevat en de andere niet.

Het klopt wat je zegt. Deze waardes in dit geval mogen blijven bestaan. Met de formule van @AlexCel ben ik geholpen.

 

[Haije]

@jjmermen,

Met de formule van @SNB ben ik geholpen.

moet dat niet @AlexCel zijn?

 

[jjmermen]

@jjmermen,


moet dat niet @AlexCel zijn?

Oeps, sorry. Ik het aangepast in de quote.

 

[snb]

Kun je stoppen met zinloos quoten/citeren?