Excel如何在数据范围生成多个随机不重复的数字。

excel 55分钟前 软件技巧 94 次浏览

Excel如何在数据范围生成多个随机不重复的数字，下面就介绍一下

材料/工具

excel2010

方法

打开excel

按Alt + F11启动VBA

选择要生成随机数的工作表。

输入以下代码：
Sub m()
Range("A:A").ClearContents'
For i = 1 To 10'
kkk:
Randomize
x = Int(Rnd * 10) + 1
If Application.CountIf(Range("A:A"), x) = 0 Then
Cells(i, 1) = x
Else
GoTo kkk
End If
Next i
End Sub

按F5，就能得到随机不重复数据