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

Question

我有数字列表 B201:B523 。我想从 E200:E230 中的这个列表中提取 30 个随机数。

我使用了这个代码。它在所有输出单元格中仅给出 1 个随机数。

Sub Generate_random_values_from_a_column()

'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
ws.Range("e200:e229") = WorksheetFunction.Index(Range("B201:B523"), WorksheetFunction.RandBetween(1, ws.Range("B201:B523").Rows.Count), 1)

End Sub

然后我尝试了一些其他代码，但这些代码比这个更糟糕。

Answer 1

我们可以先把公式放在单元格里，然后再改成数值。

Sub Generate_random_values_from_a_column()
    'declare a variable
    Dim ws As Worksheet
    Set ws = Worksheets("sheet1")
    
    With ws
        .Range("e200:e229").Formula = "=RANDBETWEEN(1, " & .Range("B201:B523").Rows.Count & ")"
        .Range("e200:e229").Value = .Range("e200:e229").Value
    End With
End Sub