第2个回答 2010-10-12
如果数据在A1:A1000中,B2中输入
=INDEX(A$1:A$1000,SMALL(IF(COUNTIF(B$1:B1,A$1:A$1000)=0,ROW(A$1:A$1000)),RANDBETWEEN(1,1000-ROW(A1))))
同时按下CTRL+SHIFT+ENTER输入数组公式,再用自动填充柄向下复制,就可以了。
就是其中的的RANDBETWEEN函数在2007版中可以直接使用,如果是2003版中,要安装加载项才能使用。还有A1:A1000中不得有空格存在,必须全部有数字,如果地址不是A1:A1000,自己调整。
弄好之后,不断按下F9,看看效果。