如何在Excel中创建按钮触发的不重复随机数选择函数

核心需求 #

点击按钮在指定范围（比如1-50）生成随机数，再次点击时自动排除之前已经选中过的数字，直到范围内所有数字都被选完。

实现步骤 #

1. 准备存储已选数字的隐藏区域

• 新建一个工作表，右键标签重命名为HiddenData，再右键标签选择「隐藏」，用这个表的A列来记录所有已经选中过的数字，避免干扰主表。

2. 编写VBA宏代码

按Alt+F11打开VBA编辑器，点击「插入」→「模块」，粘贴下面两段代码：

生成唯一随机数的宏

Sub GenerateUniqueRandom()
    Dim minNum As Integer, maxNum As Integer
    Dim excluded As Variant, newRand As Integer
    Dim isUnique As Boolean
    Dim ws As Worksheet, i As Integer
    
    ' 这里设置随机数的范围，按需修改
    minNum = 1
    maxNum = 50
    
    ' 指向存储已排除数字的隐藏工作表
    Set ws = ThisWorkbook.Worksheets("HiddenData")
    
    ' 读取已经选中过的数字列表
    excluded = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).Value
    
    ' 循环生成随机数，直到找到未被选中过的
    Do
        newRand = Int((maxNum - minNum + 1) * Rnd + minNum)
        isUnique = True
        
        ' 检查当前随机数是否已经被选过
        If Not IsEmpty(excluded) Then
            For i = 1 To UBound(excluded)
                If excluded(i, 1) = newRand Then
                    isUnique = False
                    Exit For
                End If
            Next i
        End If
    Loop Until isUnique
    
    ' 将生成的随机数输出到主表的指定单元格，比如Sheet1的A1，按需修改
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = newRand
    
    ' 把新选中的数字添加到排除列表
    ws.Cells(ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1, "A").Value = newRand
    
    ' 可选：如果范围内所有数字都被选完，弹出提示
    If ws.Cells(ws.Rows.Count, "A").End(xlUp).Row = maxNum - minNum + 1 Then
        MsgBox "范围内所有数字都已选完！"
    End If
End Sub

重置排除列表的宏（可选）

如果需要重新开始选数，添加这个宏方便一键清空记录：

Sub ResetRandomList()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("HiddenData")
    
    ' 清空已选数字记录
    ws.Range("A1:A" & ws.Rows.Count).ClearContents
    ' 清空主表的输出单元格
    ThisWorkbook.Worksheets("Sheet1").Range("A1").ClearContents
    MsgBox "已重置随机数列表，可以重新生成！"
End Sub

3. 添加触发按钮

回到Excel主界面，点击「开发工具」→「插入」→「表单控件（按钮）」，在合适的位置画一个按钮，关联GenerateUniqueRandom宏，确定后修改按钮文字为「生成随机数」。

如果需要重置按钮，同样插入一个按钮，关联ResetRandomList宏，文字改为「重置随机数」。

使用说明 #

• 点击「生成随机数」按钮，主表指定单元格会出现1-50的随机数，再次点击自动排除之前的数字；
• 所有已选数字都存在隐藏的HiddenData表中，不用担心误删；
• 选完所有数字后会自动弹出提示；
• 点击「重置随机数」可以清空记录，重新开始生成。

内容的提问来源于stack exchange，提问作者FraV