在EXCEL中,如何用函数完成7个不重复的随机整数

来源：百度知道 编辑：UC知道 时间：2024/05/28 07:36:43
比如说,想在A1到G1生成7个大于等于1,且小于40的随机整数

可以用 =INT(RAND()*(40-1)+1) 来完成

但是这会使A1到G1里面有重复的数字出现,该如何设计,才能使前面出过的数不再出现?也就是全都不重复
还有,如果我想要生成100组或200组这样的数据序列,该如何设计呢?

也就是说从A1:G1到A100:G100都是这样的序列

按下ALT+F11,插入-模块,复制下面代码,按F5运行.

Sub suiji()
For x = 1 To 7
Cells(1, x) = Int(Rnd() * (40 - 1) + 1)
Do While WorksheetFunction.CountIf(Range("a1:j1"), Cells(1, x)) > 1
Cells(1, x) = Int(Rnd() * (40 - 1) + 1)
Loop
Next
End Sub