[VBA] vygenerovat unikátní náhodné číslo + další

[Kon]

Dim VstupniBunka as Range, VystupniBunka as Range

Set VstupniBunka=Range("A1")
Set VystupniBunka=Range("A1")

...
VystupniBunka.Offset(Nejake Rnd Cislo,Nejake Rnd Cislo) = VstupniBunka.Offset(Nejake Rnd Cislo,Nejake Rnd Cislo)

...

Toto jenom prepise hodnotu. si tam muzes nastavit ty odkazy misto toho.

.Offset(posun o x radku, posun o y sloupcu) -- tzn. ty nahodne cisla musis udrzovat v potrebnem max intervalu (2^16 - 1,2^8 -1)

Int((horní_mez - dolní_mez + 1) * Rnd + dolní_mez)