作业帮 > 综合 > 作业

如何在EXCEL中用随机数表抽样且结果不重复?要简单易行的方法.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/01 11:31:25
如何在EXCEL中用随机数表抽样且结果不重复?要简单易行的方法.
给你一个随机整数的VBA代码,记得点采纳哦.
Sub Comm()
Randomize Timer
Dim c(255) As Byte
For i = 1 To 255 '
c(i) = i
Next
k = 255
Do While l < 255
r = Int(Rnd() * k) + 1 '
aa = c(r)
c(r) = c(k)
c(k) = aa
k = k - 1
l = l + 1
Cells(l,1) = aa
Loop
End Su