算法设计：int rand（）是一个能产生（0,65565）的随机数函数,怎么随机产生十个（1,300000）的不相等的

在单位格中写入 =int(rand()*300000+1)
这样就产生1 到 300000 的随机整数,随机很难保证不重出现,如果要不相等,就比较复杂了,得用到VBA,做一个循环,如果出现相同重新随机, 下面的代码是在第1列生成100个不重复的随机数的代码
在excel表格中选 工具-->宏-->VB编辑器-->插入模块-->粘贴下面的代码--->运行
Sub 生成100个不重复随机数()
For i = 1 To 100
Cells(i, 1).Select
cxsj:
Sheet1.Cells(i, 1).Value = Int(Rnd() * 30000 + 1)
If i > 1 Then
For j = 1 To i - 1
If Sheet1.Cells(i, 1).Value = Sheet1.Cells(j, 1).Value Then GoTo cxsj
Next
End If
Next
End Su