excel高手，有请-随机取数问题

Question

在一定整数范围内按一定比例取出一定数量的数组。例如在1-50内，1-15 为50%，16-36为30%，37-50为20%，按这个比例随机选取500组（每组由8个数字组成）。请问excel里如何实现？
那么，对如何进行每组由小到大的排序呢？还有一个要求：如何在一组数字里不能有相同的数字出现。
非常感谢你们三位的帮助。另外，护国法师，在运行中出现“运行时错误 438，对象不支持改属性或方法”，调试指向“ActiveSheet.Sort.SortFields.Clear”。另外，原来取数按数字大小顺序和范围（如从1-15、16-36、37-50），如果改为一些指定或特定数字，又如何呢？这可能会比较复杂，有一定的难度。真不好意思。
排序问题解决了。但我将每组数量从8个数字改为小于或大于8个的时候，会死机或没有响应，另外你所说的用“大米的方法”，这到底怎么去做？

Answer 1

=if(rand()在A1输入上面的公式,把鼠标放到A1右下角,往右边拖到H列(这样就有8个了),再往下拖到第500行.这样每行8个,总共500行数字.解释:rand()产生大于等于0,小于1的随机数,如果产生的随机数小于0.5(即50%的机率),则生成介于1-15的整数,如果大于0.5,再生成一个随机数,这个随机数如果小于0.6(50%乘60%为30%的机率),则生成16-36的随机数,否则生成37-50的随机数(20%的机率).现附上示例图片(有机率统计):

Answer 2

又改了一下,我想你用的是2003,而我是在2007中测试的.你再试试吧.另外你要将数字改成其他指定数字,可以用大米的方法吧.你试试好了.

Sub random()
Dim a As Integer
Dim b As Integer
a = Int(Rnd() * 500) + 1
b = Int(Rnd() * 8) + 1
For x = 1 To 2000
Do While Cells(a, b).Value <> ""
a = Int(Rnd() * 500) + 1
b = Int(Rnd() * 8) + 1
Loop
Cells(a, b) = Int(Rnd() * 15) + 1
Do While WorksheetFunction.CountIf(Range("a" & a & ":h" & a), Cells(a, b)) > 1
Cells(a, b) = Int(Rnd() * 15) + 1
Loop
Next
For x = 1 To 1200
Do While Cells(a, b).Value <> ""
a = Int(Rnd() * 500) + 1
b = Int(Rnd() * 8) + 1
Loop
Cells(a, b) = Int(Rnd() * 21) + 16
Do While WorksheetFunction.CountIf(Range("a" & a & ":h" & a), Cells(a, b)) > 1
Cells(a, b) = Int(Rnd() * 21) + 16
Loop
Next
For x = 1 To 800
Do While Cells(a, b).Value <> ""
a = Int(Rnd() * 500) + 1
b = Int(Rnd() * 8) + 1
Loop
Cells(a, b) = Int(Rnd() * 14) + 37
Do While WorksheetFunction.CountIf(Range("a" & a & ":h" & a), Cells(a, b)) > 1
Cells(a, b) = Int(Rnd() * 14) + 37
Loop
Next
For x = 1 To 500
Range("A" & x & ":h" & x).Sort Key1:=Range("A" & x), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Next
End Sub

Answer 3

1.首先
工具-加载宏,勾选分析工具库.
勾选后,工具菜单下出现"数据分析"菜单

2.在A1:A50输入序列1-50
B1:B15输入=0.5/50
B16:B36输入=0.3/21
B37:B50输入=0.2/14

3.工具-数据分析,随机数字发生器.
变量个数:8
随机数个数:500
分布:离散
数值与概率输入区域:A1:B50
输出新工作表组,默认不改即可.
确定.

从小到大排序显示:

I1输入公式:
=SMALL($A1:$H1,COLUMN(A1))
向右拖动填充公式到P1,
然后选中I1:P1
向下拖动到P500