Excel之产生不重复的随机整数

我们知道rand或者randbetween函数可以产生随机数，但是如果我们想要产生完全不重复的数该怎么办呢？
这时我们可以用VBA来解决问题。
按alt+f11打开宏编辑器，点选要处理的sheet.
新建脚本，粘贴内容如下：

Sub t()Dim i, a, test, s(1 To 100) As IntegerFor i = 1 To 100line1: test = Application.WorksheetFunction.RandBetween(1, 100)        For a = 1 To i            If s(a) = test Then            GoTo line1            End If        Nexts(i) = testCells(i, 1) = s(i)NextEnd Sub

效果是产生1-100之间不重复的随机整数。
如果想要其他区间的数，可以做相应修改。