Lotterilodder, hvordan generes der forskellige lodder

Har set noget på http://www.eksperten.dk/spm/440099 det kan bruges, men er ikke klar over hvordan jeg undgår dubletter.

Prøv med denne makro:

Sub UdfyldTal()
    Do
        n = InputBox("Indtast antal tal, deleligt med tre")
    Loop Until n Mod 3 = 0
    For i = 0 To n - 1
        Range("a1").Offset(i, 0).Value = i + 1
        Range("a1").Offset(i, 1).FormulaLocal = "=Slump()"
    Next i
    Range("A1:B" & i).Sort Key1:=Range("B1"), Order1:=xlAscending
    Range("B1:B" & i).ClearContents
End Sub

Den beder dig om at indtaste et antal tal, deleligt nmed tre. Derefter genererer den tal mellemm 1 og dit valgte antal, skrevet i tilfældig rækkefølge. Herefter er det bare at tage den tre og tre og overføre til dine lodder.

Tallene skrives i A-kolonnen i et ark.

Det virker, så du må hellere send et svar.

Et svar :-)