[Tasos]

Καλημέρα!
Είχα φτιάξει κάτι παρόμοιο αλλά δεν το δημοσίευσα τελικά αφού η χρήση του
σε πολλά δεδομένα (όπου θα υπάρξει αισθητή διαφορά χρόνου εκτέλεσης) θα είναι μάλλον περιορισμένη:

Function MixArray(LngMin&, LngMax&) As Variant

    Dim i&, x#, rng&, Itm&

    ReDim xKeys(LngMin To LngMax)

    For i = LngMin To LngMax - 1

        xKeys(i) = i + 1

    Next

    rng = LngMax - LngMin

    For i = LngMin To LngMax - 1

        x = Int(Rnd * rng) + i

        Itm = xKeys(x)

        xKeys(x) = xKeys(i)

        xKeys(i) = Itm

        rng = rng - 1

    Next

    MixArray = xKeys

End Function



Sub MakeMixedArray()

    Dim MyMixedArray

    MyMixedArray = MixArray(1, 500000)

End Sub