字典随机的结果有重复项，怎么改代码

zhaodachen

Sub suiji()
Dim d As Object
Dim x As Integer, b As Integer, num As Integer, i As Integer, cc As String
Dim arr, dict
Dim arr1()
x = Sheet1.UsedRange.Rows.Count
cc = "a" & x
k = x
ReDim arr1(1 To k, 1 To 1)
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a1", cc)
b = InputBox("输入随机抽取数量", "输入数量")
For i = 1 To x
100:
  num = Int((x - 1) * rnd + 1)
  If d.exists(num) Then
  GoTo 100
  Else
  d(nmu) = ""
  arr1(i, 1) = arr(num, 1)
  End If
Next
Range("a1:a2000") = ""
Range("a1:a2000") = arr1
For i = 1 To b
  Cells(i, 3) = arr1(i, 1)
Next
End Sub

chxw68

随机抽取可以看看香川群子老师的洗牌法。

excel海

可以不用字典

liulang0808

  If d.exists(num) Then
  GoTo 100
  Else
  d(nmu) = ""
  arr1(i, 1) = arr(num, 1)
  End If

zhaodachen

liulang0808 发表于 2020-1-20 19:37
If d.exists(num) Then
  GoTo 100
  Else

谢谢修改一下

zhaodachen

chxw68 发表于 2020-1-20 16:30
随机抽取可以看看香川群子老师的洗牌法。