怎样使用VBA产生不重复随机数?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作各排为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 不重复随机数()

 

  Dim arr1&(1 To 10000, 1 To 1), arr2(1 To 10000) As Boolean, k&排调趴, m&

 

  [a:a].Clear

 

  Randomize

 

  m=0

 

  Do While m < 10000

 

    k=Int(10000 * Rnd)+1

 

    If Not arr2(k) Then

 

    择杰  m=m+1

 

      arr1(m, 1)=k

 

      arr2(k)=True

 

    End If

 

  Loop

 

  [a:a]=arr1

 

  [a:a].NumberFormatLocal="0000"

 

 End Sub

5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，A列将产生不重复随机数据。