VBA find unikke i et range og indsæt disse i et andet range

Kunne du vise et eksempel på den omtalte struktur?

Hvis ikke du bruger en VBA løsning, så er det muligt med en Formel, som denne, der returnerer det unikke antal af tal og tegn. Indsæt formlen, der hvor du ønsker antallet returneret, og kopier ned. Husk at det er en Array formel (Ctrl + Shift og Enter). Formlen tager udgangspunkt i, at data er i kolonne A2 til A50 (tilret selv).
{=HVIS.FEJL(INDEKS($A$2:$A$50;SAMMENLIGN(0;TÆL.HVIS($B$1:B1;$A$2:$A$50);0));"")}

Hvis du blot vil tælle antal unikke enheder, kan følgende formel gøre det. Det er også en Array formel (Ctrl + Shift og Enter).

{=SUM(HVIS(A2:A50<>"";1/TÆL.HVIS(A2:A50;A2:A50);0))}

Til at finde unikke værdier kan du gennemløbe dit range og indsætte værdierne i en collection, hvor du også bruger en nøgle. Nøglen skal være af datatypen String, så måske skal der konverteres. Hvis en dublet tilføjes, vil det udløse en fejl, og derfor skal man først skrive: "On Error Resume Next".

Eksempel på http://sitestory.dk/excel_vba/collections.htm