EXCEL如何随机生成指定范围的不重复的整数？

用VBA编程可以实现。其方法有多种，一是字典功能，凡是重复的无法插入字典。其缺陷是程序运行的时间不确定，发生重复就继续生成随机数，直到没有重复为止。另一种是第一次生成1~100的随机数，将得到的随机数取走；再生成1~99的随机数，。。。这样循环到1，就完成了题目要求。

我们采用第二种方法做成如下代码：

Sub 随机数()

Dim mYarr(1 To 100, 1 To 2)

Dim Tarr(1 To 100, 1 To 2) '存放随机生成的数

Dim I, J, K, L As Integer

'读取原始数据

I = 2

Do While Cells(I, 1) > 0

mYarr(I - 1, 1) = Cells(I, 1)

mYarr(I - 1, 2) = Cells(I, 2)

I = I + 1

Loop

I = I - 2

L = 1

For K = I To 1 Step -1

Randomize

J = Int((Rnd * K) + 1)

Tarr(L, 1) = L

Tarr(L, 2) = mYarr(J, 2)

'将数值自J+1个开始向上移动一格

    For M = J To I - 1

        mYarr(M, 1) = mYarr(M + 1, 1)

        mYarr(M, 2) = mYarr(M + 1, 2)

    Next M

L = L + 1

Next K

'输出随机整数

For J = 1 To I

  Cells(J + 1, 5) = Tarr(J, 1)

  Cells(J + 1, 6) = Tarr(J, 2)

Next J

End Sub

该宏

第一步：将第1、2列数据读入MYARR数组

第二步：随机生成随机数，将该随机数对应的数值移入TARR数组（目标数组）

第三步：将目标数组TARR数值输出到第5、6列。运行结果如图：

可以看到G列检查是否有重复列，结果是没有。

做一个按钮或录一个宏,把内容换为如下:

Dim a As Range, b As Range
Set a = Range("A1:A17")
a.ClearContents
Randomize
For Each b In a
Do
b = Int(1 + Rnd * 36)
Loop Until Application.WorksheetFunction.CountIf(a, b) = 1
Next
说明:每点一次按钮或执行一次宏,就可以生成一次新的数.

增加B、C、D三列辅助列（设置好以后可以把它们隐藏起来）。
B1输入=RAND() 下拉到B36
C1输入1 向下填充1、2、3...到C36
D1输入=SMALL($B$1:$B$36,C1) 下拉到D36
A1输入=VLOOKUP(D1,$B$1:$C$36,2,FALSE) 下拉到A17
搞定

在A1-A36中输入1,2,3,4.......36
在B1中输入=rand(),下拉到B36
然后换B例排序,
A例的前17个就是你要的.