Создать генератор случайных чисел с вычеркиванием сгенерированных чисел

Dim n As Long, nums() As Long
'Процедура для инициализации массива (представляющего собой
'основу данного класса) диапазоном чисел от 1 до i.
Public Sub Init(ByVal i As Long)
    n = i
    ReDim nums(1 To i) As Long
    For i = 1 To n
        nums(i) = i
    Next i
End Sub
'Функция, случайным образом выбирающая очередное значение y из массива.
'Возвращает True, если из массива было выбрано очередное значение,
'или False, если массив исчерпан.
Public Function PickY(ByRef y As Long) As Boolean
    Dim i As Long, pos As Long
    If n > 0 Then 'Если в массиве еще есть числа...
        '1) Получаем позицию, откуда берется число.
        pos = Int(Rnd() * n) + 1
        '2) Берем число.
        y = nums(pos)
        '3) Удаляем число из массива.
        nums(pos) = nums(n)
        '4) Уменьшаем счетчик количества чисел в массиве.
        n = n - 1
        PickY = True
    End If
End Function

'Процедура для демонстрации использования класса AksiExhaustiveRnd
Sub UseExhaustiveRnd()
    Dim i As Long, y As Long, eRnd As AksiExhaustiveRnd
    While i <= 0
        i = InputBox("Введите i - верхнюю границу диапазона случайных чисел", "Ввод i")
        If i <= 0 Then MsgBox "Число i должно быть положительным.", vbExclamation, "Ошибка"
    Wend
    Set eRnd = New AksiExhaustiveRnd
    eRnd.Init i
    While eRnd.PickY(y)
        '--------Обработка значения у--------
        MsgBox "Обрабатывается значение y = " & y & "."
        '--------Обработка значения у--------
    Wend
    MsgBox "Нет чисел."
End Sub

Sub QWERT()
    Dim i, Y, K
    K = 10
    Randomize
    Dim OD: Set OD = CreateObject("Scripting.Dictionary")
    For i = 1 To K: OD(i) = i: Next i
    Do Until OD.Count = 0
        Do
            i = Int(K * Rnd + 1)
        Loop While Not OD.exists(i)
        Debug.Print i
        OD.Remove (i)
    Loop
    MsgBox "OK"
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim i       As Long
    Dim r()     As Long
    Dim max     As Long
    
    ' Максимальное число
    max = 1000
    ReDim r(max - 1)
    
    ' Инициализация
    NextRnd True, max
    
    ' Заполнение
    For i = 0 To max - 1
        r(i) = NextRnd
    Next
 
    ' Сортировка для проверки
    qSortLong r
    
    ' Проверка
    For i = 0 To max - 1
        If r(i) <> i + 1 Then Stop
    Next
    
End Sub
 
' Для инициализации передаем первым параметром True, вторым максимальное число
Private Function NextRnd(Optional ByVal Reset As Boolean, Optional ByVal i As Long = 1000) As Long
    Static dat() As Long, Idx As Long, Count As Long
    
    If Reset Then Count = i: ReDim dat(Count - 1): Exit Function
    If Count = 0 Then MsgBox "Нет чисел": Exit Function
    Idx = Int(Rnd * Count): NextRnd = dat(Idx): Count = Count - 1
    If NextRnd = 0 Then NextRnd = Idx + 1
    If dat(Count) = 0 Then dat(Idx) = Count + 1 Else dat(Idx) = dat(Count)
End Function

Erase Position()
 
For i = 1 To 4
For j = 1 To 4
 
aaa:
    'генерируем число от 1 до 16 и проверяем его на наличие в массиве
    'если есть то повторяем заново если нет то добавляем в массив
    'в итоге получаем массив 4х4 заполненный неповторяющимся числами от 1 до 16
    'начинать диапазон чисел с 0 нельзя т.к. цикл проверки может уйти в нирвану
    'число 16 - это пустая клеточка
    asd = CInt(Int(16 * Rnd() + 1))
    For m = 1 To 4
    For n = 1 To 4
        If asd = Position(m, n) Then GoTo aaa
    Next n
    Next m
Position(i, j) = asd
Next j
Next i

Dim LongMax As Long
    LongMax = 100 'максимальное число
    Dim StrArr As String
    For i = 1 To LongMax: StrArr = StrArr & "'" & i & "',": Next i 'собираем все числа в одну строку
    Dim a() As String
    
    Randomize
    For i = LongMax To 1 Step -1
    Erase a()
    a() = Split(Left(StrArr, Len(StrArr) - 1), ",") ' делаем из строки одномерный массив
    iRND = CLng(Int(i * Rnd() + 1)) ' генерируем случайное число
    Cells(i, 2) = CLng(Replace(a(iRND - 1), "'", "")) ' заносим число в ячейку
    StrArr = Replace(StrArr, a(iRND - 1) & ",", "") 'удаляем число из массива
    Next i
    MsgBox "Нет чисел"

Debug.Print i

Option Explicit
 
Sub FixRnd()
    'Процедура выбирает и не разу не повторяет числа из указанного диапазона
    '
    Const num = 20, z = ", "
    Dim f&, s$, s1, n&, j$()
    For f = 1 To num: s = s & " " & f - 1: Next
    j = Split(Mid$(s, 2)): Randomize Timer
    Do
        n = j(Fix(Rnd * (UBound(j) + 1))): s = " " & Join(j) & " "
        s = Replace(s, " " & n & " ", " ")
        j = Split(Trim(s))
        s1 = s1 & z & n
    Loop While UBound(j): s1 = s1 & z & j(0)
    Debug.Print "Выбранны:", Mid$(s1, 3)
    MsgBox "Выбранны: " & Mid$(s1, 3)
End Sub