如何用Excel VBA实现指定数字列表的随机展示？

需求实现方案 #

针对你需要从固定数字列表（如{3,5,8,11}）中随机展示数字的需求，以下提供两种VBA实现方式：

方式1：每次随机展示列表中的一个数字

运行代码后，会在指定单元格输出列表中的随机一个数字：

Sub RandomDisplaySingleNumber()
    ' 定义你的固定数字列表，可直接修改括号内的数字
    Dim numList As Variant
    numList = Array(3, 5, 8, 11)
    
    Dim randomIndex As Integer
    Dim targetCell As Range
    
    ' 设置结果输出的单元格，示例为Sheet1的A1，可自行调整
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    Randomize ' 初始化随机数生成器，保证每次结果不同
    ' 生成数组范围内的随机索引
    randomIndex = Int(UBound(numList) * Rnd)
    
    ' 将随机选中的数字写入目标单元格
    targetCell.Value = numList(randomIndex)
End Sub

关键说明：

• Randomize必须添加，否则每次打开文件运行代码可能得到重复的随机序列
• 数组索引从0开始，UBound(numList)获取数组最大索引（这里是3），结合Rnd生成0-3的随机整数，对应列表中的4个数字
• 可直接修改Array()内的数字替换成自己的列表，或修改targetCell调整输出位置

方式2：打乱顺序展示所有数字

如果需要一次性随机排列并展示列表中所有数字，用经典的Fisher-Yates洗牌算法实现：

Sub ShuffleAndDisplayAllNumbers()
    Dim numList As Variant
    numList = Array(3, 5, 8, 11)
    
    Dim i As Integer, j As Integer, temp As Variant
    Dim startCell As Range
    
    ' 设置输出起始单元格，示例为Sheet1的A1，横向排列结果
    Set startCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    Randomize
    ' Fisher-Yates洗牌：从后往前遍历交换元素
    For i = UBound(numList) To LBound(numList) Step -1
        j = Int((i - LBound(numList) + 1) * Rnd + LBound(numList))
        ' 交换当前元素与随机选中的元素
        temp = numList(i)
        numList(i) = numList(j)
        numList(j) = temp
    Next i
    
    ' 将打乱后的数组写入单元格区域
    startCell.Resize(1, UBound(numList) - LBound(numList) + 1).Value = numList
End Sub

关键说明：

• 洗牌算法确保每个数字的排列概率均等，无偏随机
• 代码默认横向输出，若要纵向输出，将Resize(1, ...)改为Resize(..., 1)即可
• 同样支持修改数字列表和输出起始位置

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