Excel三个vba生成不重复随机整数的案例 _知识经验

文章提供三个vba代码生成不重复随机数的案例供学习。
vba不重复随机数案例一：
下面的代码，将在A1：A5000单元格产生1-5000的不重复随机整数。
Private Sub vba不重复随机数()
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
End Sub
vba不重复随机数案例二：
在A1:A100中产生1-100的不重复随机整数，代码如下：
Sub vba不重复随机数()
Dim TempArr1(99) As Integer, TempArr2(0 To 99, 1 To 1) As Integer
Dim RndNumber As Integer, i As Integer
Randomize (Timer) ‘初始化随机数生成器
For i = 0 To 99 ‘产生包含1－100的不重复的随机数列
TempArr1(i) = i
Next i
For i = 99 To 0 Step -1
RndNumber = Int(i * Rnd)
TempArr2(99 – i, 1) = TempArr1(RndNumber) + 1
TempArr1(RndNumber) = TempArr1(i)
Next i
‘在A1:A100中输入这些数字
Range("a1:a100").Value = https://www.i8ku.com/2022/TempArr2
End Sub
【Excel三个vba生成不重复随机整数的案例】vba不重复随机数案例三：
在A1：A10单元格产生10个0-100的随机整数，以下是代码：
Sub vba不重复随机数()
Dim i As Long
i = 100
Dim num As Long
ReDim arr(i) As Long
ReDim Arr2(i, 0) As Long
Dim x As Long
For x = 0 To i
arr(x) = x
Next x
For x = 0 To i
num = Int(Rnd() * (i – x))
Arr2(x, 0) = arr(num)
arr(num) = arr(i – x)
Next x
Range("A1:A10") = Arr2
End Sub

Excel三个vba生成不重复随机整数的案例

推荐阅读

什么是痘痘肌

12306常用联系人性别错了怎么办

韩国辣白菜好吃谁吃过？

红薯为什么不开花在什么条件下会开花

穿心莲什么时候吃好有副作用吗

铜官区美食

猫咪可以通过什么识别身份

黄花倒水莲煲汤配方黄花倒水莲煲汤配方大全

科普下马克思主义基本原理

敢于质疑的格言警句敢于质疑的格言警句有哪些

聚餐|母亲节家庭聚餐好去处，家宴仪式感满满的私厦里

稠鱼烧怎么做可爱的稠鱼烧做法

Photoshop如何抠出玻璃杯

改善睡眠质量的方法有哪些如何改善睡眠质量

绝句的诗意绝句的诗意是

百香果皮的功效与作用有哪些呢？

胸贴怎么用

快手直播卖货权限怎么开通？如何直播？

洛神的演员介绍

唐印被扔海里是什么电视剧里的情节