Office中国论坛/Access中国论坛

标题: 求教：怎么随机选出不重复的数（在线跪求） [打印本页]

作者: backspeed 时间: 2009-4-6 20:38
标题: 求教：怎么随机选出不重复的数（在线跪求）
各位大大好：
如题，打个比方，怎么从1列中的10个数中随机选出几个4重复的数字。在线跪求。

作者: pureshadow 时间: 2009-4-6 23:35
Sub 产生不重复随机整数()
Dim mr As Range
For Each mr In Range("a1:a4")
Do 'do…loop until语句，指循环至loop until后的条件实现即终止
mr = Int(Rnd() * 10 + 1)
Loop Until Application.CountIf(Range("a1:a4"), mr) = 1
Next mr
End Sub

作者: gouweicao78 时间: 2009-4-14 17:20
A2输入：

=SMALL(IF(COUNTIF(A$1:A1,ROW($1:$10))=0,ROW($1:$10)),INT(RAND()*(10-COUNT(A$1:A1))+1))

复制代码

数组公式，按CTRL+SHIFT+ENTER结束，向下复制。

作者: pureshadow 时间: 2009-4-14 19:18
高，实在是高。
我一直在找的函数解决办法
仰视ING

作者: gouweicao78 时间: 2009-4-15 11:20
不重复随机数还可以用RAND()加辅助列实现，比如：
A1:A10输入=RAND()
B1输入=RANK(A1,A$1:A$10)——下拖至B10，同样是获得1~10的不重复随机数。要4个，就只要拖到B4就行了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)