今天看啥  ›  专栏  ›  完美Excel

VBA自定义函数:在单元格区域中创建不重复的随机数

完美Excel  · 公众号  · Excel  · 2024-03-07 06:00
学习Excel技术,关注微信公众号:excelperfect标签:VBA,自定义函数有时候,我们需要创建一组不重复的随机组,例如在指定单元格区域中创建一组不重复的随机数用于模拟数据分析。下面的一个VBA自定义函数,可用于创建指定数值范围的不重复随机数。代码如下:Function RandomSeq(MinValue, MaxValue) Dim Seed As Double '随机生成的种子数 Dim NumberOfRandoms As Long '要选择的随机值数目 (默认为全部) Dim TempArray_Source() '保存最小值到最大值的源列表 Dim TempArray_Result() '保存随机选择的结果 (随机排序) Dim SrcULimit As Long '源数组的上限. 用于消除重复 Dim UsedSourceNo As Long '从源数组中随机选择. 用于消除重复 Dim Result_Index As Integer Dim i As Integer Dim TempValue As Integer Application.Scre ………………………………

原文地址:访问原文地址
快照地址: 访问文章快照