Hej hej

Ser att du vill åt en vba-lösning. Detta går dock utmärkt med formler:

Antingen med nya för 365, som skriver ut resultatet till flera celler:

=UNIK(Lista)

Eller med en äldre variant;

=INDEX(Lista;PASSA(0;COUNTIF($A$1:A1;Lista);0))

A2 ska vara  cellen ovanför där du skriver formeln. Denna ska slås in med ctrl+shift+enter.

Formeln Unique är lätt att använda genom vba:

application.WorksheetFunction.Unique(lista).

Den andra är ganska knepig då den måste läggas rad för rad, då finns det andra varianter, allt beroende på hur mycket data du har. Har du stora datamängder, dvs omkring 10k rader eller mer, så blir det väldigt knepigt, men resultatet blir bra. Vid stora datamängder får du kika på dictionaries. 

Mvh

Christian