用于2D阵列VBA的随机数发生器

Question

我正在尝试在矩阵中创建一个随机数生成器，但没有重复项。我可以创建随机性，但不是唯一性，是否有人有任何想法？

Sub makeInitialSolution(Sol() As Integer, numSlots As Integer, numRooms As Integer, numExams As Integer)

Dim i As Integer, j As Integer

For i = 1 To 3
    For j = 1 To 3

        Sol(i, j) = Int((8 - 1 + 1) * Rnd + 1)

    Next j
Next i

Sol(i - 1, j - 1) = -1

End Sub