Excel中如何得到不重复的随机数 推荐

启动Excel

按Alt+F11启动VBA

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

输入以下代码：

Subm()

Range("A:A").ClearContents'   这里是A列，根据需要修改

Fori=1To10'             这里是10个数字，根据需要修改

kkk:

Randomize

x=Int(Rnd*10)+1

IfApplication.CountIf(Range("A:A"),x)=0Then

Cells(i,1)=x

Else

GoTokkk

EndIf

Nexti

EndSub

按F5运行，即可得到结果。