如何用vba代码生成30行9个以内的随机个数的1-10之间的不重复随机数？

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

楼主 kevinchengcw	Q: 如何用vba代码生成30行9个以内的随机个数的1-10之间的不重复随机数？ A: 代码如下： Sub test() Dim Dic, N%, I% Set Dic = CreateObject("scripting.dictionary") '创建字典项目 Cells.Clear '清空工作表 For N = 1 To 30 '循环单元格区域 I = (Int(Rnd * 100) Mod 9) + 1 '获取1到9之间的随机值成为随机数的个数依据 Do While Dic.Count <> I '当随机数个数未达到要求的个数时继续循环 Dic(CStr(Int(Rnd * 10) + 1)) = "" '获取1到10之间的不重复随机数并向字典中写入对应项（注意：这种写法当key不存在时会自动创建，从而省去判断的过程） Loop Cells(N, 1).Resize(1, I) = Dic.keys '将得到的符合数量的随机数写到对应的行中 Dic.RemoveAll '清空字典，以准备下一循环的内容 Next N Set Dic = Nothing '清空字典项目 End Sub
2楼亡者天下	跟着K哥学习VBA
3楼 kangguowei	学习.
4楼 kangguowei	学习下.
5楼张雄友	改成所选区域较好。

免责声明

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

评论列表