求教：怎么随机选出不重复的数（在线跪求）

backspeed

各位大大好：
     如题，打个比方，怎么从1列中的10个数中随机选出几个4重复的数字。在线跪求。

pureshadow

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

A2输入：

1. =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

高，实在是高。
我一直在找的函数解决办法
仰视ING

gouweicao78

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