如何在excel中实现VB随机抽取的不重复

set d = CreateObject(" scripting . dictionary ")

对于i=1至100

l:

s=round(rand()，3)

如果d .存在，则转到L

d(s)= " "

然后