怎样使用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列将产生不重复随机数据。