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

内容提要：文章提供三个vba代码生成不重复随机数的案例供学习。对Excel感兴趣的朋友可加 Excel学习交流群：284029260（www.itblw.com）

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