EXCEL中，如何从1——49 这49个数值中随机选出36个不重复的的随机数？ 最好50000组宏程序，谢

EXCEL中，如何从1——49 这49个数值中随机选出36个不重复的的随机数？ 最好50000组宏程序，谢

代码如下：这个代码运行一次可以生成50组，如果你要生成50000组，多点几次，你也可以修改第一个for循环For j = 1 To 50，改成For j = 1 To 50000，这样可以一次跑出50000组，但是你的电脑要足够好，否则会跑死你的Excel.
Sub 随机数()
Dim str As String
Dim i, j, x As Integer
Range("A1").EntireColumn.ClearContents
str = 49
For j = 1 To 50
x = Int((50 - 1) * Rnd() + 1)
For i = 1 To 36
Do While WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(1, i)), x) > 0
x = Int((50 - 1) * Rnd() + 1)
Loop
Cells(1, i) = x
Next
Rows(1).Insert shift:=xlUp
Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息