Question

如何用excel生成1-100的随机数，同时要求随机数的80%分布在1-50。

如何用excel生成1-100的随机数，由于是批量生成随机数，要求所有的随机数的80%分布在1-50。

Answer 1

'试一下：
Option Explicit
Dim arr(1 To 100), c As Long
Sub test()
Dim brr(1 To 100), i, j
c = 0
fc 80, 1, 50 '范围及个数
fc 20, 51, 100 '范围及个数
For i = 1 To 100 '随机生成1-100数且不重复
Randomize
brr(i) = Int(Rnd * 100) + 1
If i > 1 Then
For j = 1 To i - 1
If brr(i) = brr(j) Then
i = i - 1
Exit For
End If
Next
End If
Next
For i = 1 To 100 '乱序
brr(i) = arr(brr(i))
Next
[a1].Resize(UBound(arr), 1) = WorksheetFunction.Transpose(brr)
End Sub
Function fc(n, lowerbound, upperbound)
Dim i
For i = 1 To n
c = c + 1
Randomize
arr(c) = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Next
End Function