excel中VB隨機抽取如何實現不重復

set d=CreateObject("Scripting.dictionary")

for i=1 to 100

L:

s=round(rand(),3)

if d.exists(s) then goto L

d(s)=""

next