在A2中输入=rand()
在B2中输入=rank(A2,A:A,0)
同时向下复制，你要多长的随机数，就向下复制多少行即可。
如果你要的随机数起始值不为1，比如要100到200内的随机数，就把第二个公式加个基数就行，如：
=rank(A2,A:A,0)+99
然后向下复制100行就是了
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024