excel在区间范围内随机取值

Excel在一定范围内生成指定数量不重复的随机整数 ，你知道如何来完成这个操作吗？

Sub randomnum2()
    Dim Arr(1 To 100), i, d, X
    Set d = CreateObject("scripting.dictionary")
    Randomize
    Do While i < 100
        X = Int((Rnd * 1000) + 1)
        If Not d.exists(X) Then
            i = i + 1
            Arr(i) = X
            d(X) = ""
        End If
    Loop
    Sheets(1).Range("A1").Resize(100, 1) = Application.Transpose(Arr)
End Sub