如何在EXCEL中生成不重复随机数

2024-11-12 14:40:05

推荐回答（2个）

回答1：

在A2中输入=rand()
在B2中输入=rank(A2,A:A,0)
同时向下复制，你要多长的随机数，就向下复制多少行即可。
如果你要的随机数起始值不为1，比如要100到200内的随机数，就把第二个公式加个基数就行，如：
=rank(A2,A:A,0)+99
然后向下复制100行就是了

回答2：

Sub five() 
For Each c In Range("A1:F10") '可以在某一个区间内，比如A1：F10
c.Value = Int(Rnd() * 60) + 1 
Do While WorksheetFunction.CountIf(Range("A1:F10"), c) > 1 
c.Value = Int(Rnd() * 60) + 1 
Loop 
Next 
End Sub