如何生成乱序且不重复的随机整数？

作者：绿色风分类：时间：2022-08-17 浏览：152

楼主 gvntw	Q：如何生成乱序且不重复的随机整数，如1—5000，并把结果放在A1:A5000？ A：代码如下： Private Sub CommandButton1_Click() Dim Arr1(1 To 5000) As Boolean Dim Arr2(1 To 5000, 0) As Integer t = Timer [A:A] = Empty For i = 1 To 5000 num = Int(5000 * Rnd + 1) Do While Arr1(num) num = Int(5000 * Rnd + 1) Loop Arr1(num) = True Arr2(i, 0) = num Next i [A1:A5000] = Arr2 MsgBox "共花费时间" & Timer - t & "秒", , "gvntw" End Sub 乱序不重复数字.rar
2楼 apollo_qx	虽然我不会，但支持一个！谢谢了！
3楼 yangkeyuan	好东西值得学习呀！
4楼绝情宝贝	还是不会
5楼 sea9413	初次接触vba，一个新的世界

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表