Excel VBA代做如何生成不重复随机数

1、如下图A列是某班级19位同学的姓名，现在我们想要用vba为这19名同学随机安排座位号。

2、选中B2:B20单元格区域，然后同时按下Alt+F11

3、点击sheet1，然后在右边空白区录入vba代码，接着按下F5运行代码

4、录入1作为最小随机数，然后点击【确定】

5、接着在最大随机数字选项内录入19，点击【确定】

6、接着点击【确定】即可完成

7、完成效果如下图，最后跟大家分享一下本文这里所使用的vba代码。如果需要Excel vba 代做 请百度方方格子

Sub 生成不重复的随机数()

   On Error Resume Next

   
    Dim count As Long, needCount As Long
    Dim rn As Range
    Dim max, min, unit As Double
    Dim bRepeat As Boolean
    Dim d As Object
    Dim i, v

    count = Selection.Cells.count

    If count > 10000 Then
        MsgBox "请不要选择超过10000个单元格！"
        Exit Sub
    End If

    min = Application.InputBox(prompt:="随机最小数字", Type:=1, Default:="0")

    If Not IsNumeric(min) Then Exit Sub    'false  不够准确，0也是false
   
    max = Application.InputBox(prompt:="随机最大数字", Type:=1, Default:="100")
    If Not IsNumeric(max) Then Exit Sub
   
    unit = Application.InputBox(prompt:="随机数的精确单位,如精确到1、精确到0.2 等等", Type:=1, Default:="1")
    If Not IsNumeric(unit) Then Exit Sub  'If unit = False Then Exit Sub
   
    '---------------------------------------
    needCount = Int((max - min + unit) / unit)
    If count > needCount Then
        count = needCount  '合理个数
        'MsgBox "您选择的区域太大，无法生成不重复的随机数！ 至多只能选中" & needCount & "个单元格！"
        'Exit Sub
    End If
   
    Set d = CreateObject("scripting.dictionary")
    Randomize Timer
    For i = 1 To count
        Do
            v = Int(Rnd() * Int((max - min + unit) / unit)) * unit + min
        Loop While d.exists(v)

        Selection.Cells(i) = v

        d.Add v, ""
    Next i
End Sub