如题所述
在A2中输入=rand()
在B2中输入=rank(A2,A:A,0)
同时向下复制，你要多长的随机数，就向下复制多少行即可。
如果你要的随机数起始值不为1，比如要100到200内的随机数，就把第二个公式加个基数就行，如：
=rank(A2,A:A,0)+99
然后向下复制100行就是了
在B2中输入=rank(A2,A:A,0)
同时向下复制，你要多长的随机数，就向下复制多少行即可。
如果你要的随机数起始值不为1，比如要100到200内的随机数，就把第二个公式加个基数就行，如：
=rank(A2,A:A,0)+99
然后向下复制100行就是了
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-12-08
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
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
