求高手编写个excel随机数函数

用vba吧
Private Sub rnd1()
dim a(11) as single ,i as integer,j as integer
for i = 1 to 11
a(i)=rnd
if i<>1 then
for j = 1 to i-1
if a(i)=a(j) then exit for
next j
if j<>i then i