在某几个数间按其相应的频率产生N个随机数

哈啊嘻哈啊

如何根据固定的频率在一定范围内产生随机数，例如在11-21范围间其数字频率分别为0.0001，0.0008 ，0.0037，0.0375，0.3276，0.3259 ，0.2379，0.0582，0.0076，0.0005 ，0.0002 ，那么在11-21之间按照这个频率生成2000个随机数，公式应该怎么输入

tiger1976

Sub lll()

Dim arr()
Dim i As Integer
Dim j, k

For i = 1 To 2000
    ReDim Preserve arr(1 To i)
    arr(i) = Application.WorksheetFunction.RandBetween(11, 21)
    j = j & "，" & arr(i)
Next
    k = VBA.Mid(j, 2, 10000)
End Sub