如何使用VBA代码从列表中获取唯一的30个随机数

Sub GetUniqueRandomNumbers()
    Dim OriginalList As Range
    Dim RandomNumbers As Object
    Dim i As Integer
    Dim j As Integer
    Dim NumCount As Integer
    
    ' 设置原始列表范围
    Set OriginalList = Range("A1:A100") ' 假设原始列表在A1到A100单元格
    
    ' 创建一个集合对象来存储唯一的随机数
    Set RandomNumbers = CreateObject("Scripting.Dictionary")
    
    ' 获取30个唯一的随机数
    NumCount = 0
    Do While NumCount < 30
        i = Application.WorksheetFunction.RandBetween(1, OriginalList.Rows.Count)
        j = OriginalList.Cells(i, 1).Value
        If Not RandomNumbers.Exists(j) Then
            RandomNumbers.Add j, j
            NumCount = NumCount + 1
        End If
    Loop
    
    ' 将结果输出到B列
    Range("B1").Resize(RandomNumbers.Count, 1).Value = Application.Transpose(RandomNumbers.Keys)
End Sub