随机填充指定个数的数值到固定单元格区域

作者：绿色风分类：时间：2022-08-18 浏览：139

楼主 hlxz	问题：燃烧的水(68004149) 18:22:57 我有100个单元格，只有8的是12个。。10的是20个。12的是18个。。怎么样能不用手一个一个填，，直接出来，而且这些数还是平均混编到这100个格里欢乐小爪(461699029) 18:24:09 其他什么数据燃烧的水(68004149) 18:25:40 就是说这个数你要**个，随机放在指定一区域里，至于放在哪一个格中不限制混编数据到数据中.rar
2楼 0Mouse	帮顶楼贴一哈代码！ Public Function 不重复随机数(小数 As Integer, 大数 As Integer, 个数 As Integer) If 个数 > 大数 - 小数 + 1 Then Exit Function Dim arr() ReDim arr(个数 - 1) Dim b() As Boolean ReDim b(大数 - 小数) '取数标志 Dim x As Integer, y As Integer Randomize For I = 0 To 个数 - 1 Do '找到x的位置，y表示x在取数标志数组的位置 x = Int(Rnd * (大数 - 小数 + 1)) + 小数 y = x - 小数 Loop While b(y) b(y) = True arr(I) = x '找到未取的数，并放入数组，设置标志位 Next I 不重复随机数 = Application.Transpose(arr) End Function Sub 矩形1_单击() Range("a1：a100").ClearContents For I = 1 To Range("D65536").End(xlUp).Row Range("a" & Range("D" & I)) = Range("C" & I) Next End Sub
3楼 kangguowei	学习l

免责声明

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

评论列表