Question

在excel里生成不重复的随机整数

我需要在excel里生成如下随机数：
A1到A20，产生1-20不重复随机整数
B1到B20，产生21-40不重复随机整数
……
直到Y1到Y20生成481-500不重复随机数

上述操作如何在VBA中一步完成？
代码，谢谢。可用追加50分。
二楼的答案可以产生足够的不重复随机整数，但都是在A列。随机数的大小也不符合要求。

Answer 1

1、选择A1:A100单元格，输入=RAND()   按Ctrl+Enter组合键结束；

2、选择B1:B100单元格，输入=RANK(A1,A:A)  按Ctrl+Enter组合键结束，生成100个不重复的随机整数。

 

详见附图

 

Answer 2

Sub 不重复随机数()
Dim i As Long, j As Long
i = Application.InputBox("请输入上限：" & Chr(10) & "输入1000即表示产生1到1000的不重复随机数" & " 以此类推！范围在1--60000之间。" & Chr(10) & "结果产生在新工作表。" & Chr(10) & "如果输入的数超过10000，可能要计算3-5秒，请等候结果显示！", "输入上限", 100, , , , , 1)
If i = False Or i < 1 Then Exit Sub
Randomize
Dim myArr
Worksheets.Add
Application.ScreenUpdating = False
Range("a1") = 1
Range("a1").DataSeries 2, , , 1, i
myArr = Range("a1:b" & i)
For j = 1 To i
a = Int(Rnd() * i) + 1
b = Int(Rnd() * i) + 1
c = myArr(a, 1)
myArr(a, 1) = myArr(b, 1)
myArr(b, 1) = c
DoEvents
Next
Range("a1:a" & i) = myArr
Application.ScreenUpdating = True
End Sub

Answer 3

Sub ss()
Range("a1:y20").Clear
For n = 1 To 500
j = Int((n - 1) / 20) + 1
Do
i = Int(Rnd * 20) + 1
Loop While Cells(i, j) <> ""
Cells(i, j) = n
Next
End Sub

Answer 4

在工具栏中选加载宏
添加分析工具基本统计变量等
之后数据选项里就会有统计描述填加随即变量

Answer 5

生成一个整数，然后判断是不是和前面有重复，如果有重复，重新生成。