使用Excel抽取1--500随机整数（抽一个，少一个）

如题，比如第一次抽到了“323”，那么，第二次抽取的范围就是1--500里面出去323的整数。。。。

用宏自定义函数很容易实现。
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Function Sj(xRng As Range) As Integer
Dim iFlag As Boolean
Do
Sj = Int(Rnd() * 500) + 1
If WorksheetFunction.CountIf(xRng, Sj) < 1 Then iFlag = True
Loop Until iFlag
End Function

回到Excel，在单元格A2输入 =sj(A$1:A1)将A2的公式向下复制。