Náhodné čísla v Exceli

[undertaker007]

Čaute!
Nevedeli by ste mi poradiť, aký vzorec vložiť do buniek, ak potrebujem 6 náhodne vygenerovaných čísel?
Ja viem - mám napísať ''=RANDBETWEEN(1; 1000)'' - toto mi vypíše náhodné číslo v rozsahu od 1 do 1000, lenže ja potrebujem, aby v každej bunke bolo číslo iné, ako v hociktorej inej bunke...
Proste ak napr. v tretej bunke bude číslo 50, tak v žiadnej inej už 50 nemôže vygenerovať...
Neviem, nenapadá ma, ako by som to urobil - za prípadné rady vopred vďaka

\\edit:
Napr toto - tomuto sa chcem vyhýbať...

[macejd]

Vytvoril som na to makro:

Kód: Vybrať všetko

Option Base 1
Sub NotSameRandom()
Dim n As Integer 'rozsah nahodnych cisel
Dim Pole() As Long
Dim TempF() As Long

n = 1000
ReDim Pole(n)

For i = 1 To n
    Pole(i) = i
Next i

For i = 1 To 50 'rozsah buniek, do ktorych sa budu zapisovat nahodne cisla
    n = Excel.WorksheetFunction.RandBetween(1, n)
    Cells(i, 1) = Pole(n)
    ReDim TempF(UBound(Pole) - 1)
    For j = 1 To UBound(Pole) - 1
        If j >= n Then
        TempF(j) = Pole(j + 1)
        Else
        TempF(j) = Pole(j)
        End If
    Next j
    n = UBound(TempF)
    ReDim Pole(n)
    Pole = TempF
Next i

End Sub

Makro vloží do buniek A1:A50 náhodné celé číslo medzi 1-1000, pričom, náhodné čísla sa nebudú opakovať.
Ak by to nefungovalo podľa predstáv, daj vedieť.

[undertaker007]

čauko!
Tak myslím, že to funguje presne tak, ako som chcel, veľká vďaka za toto