生成一组不重复的随机数

如火骄阳

我想生成一组不重复的随机数，写了如下的代码。但总是得不到我想要的结果，请大家一起来看看这段代码。
Sub maro()
Dim arry(1 To 5) As Integer
Dim temp, i, number As Integer
For i = 1 To 5
    arry(i) = Int(5 * Rnd + 1)
    If i > 1 Then
        For temp = 1 To i - 1
            While arry(i) = arry(temp)
                arry(i) = Int(5 * Rnd + 1)
            Wend
        Next temp
    End If
Next i

For i = 1 To 5
    Worksheets("sheet1").Range("b2").Cells(i, 1).Value = arry(i)
Next
End Sub