哪位大神看看如何做 我要做一组随机数要有合格率的
自己录了个宏但是10个工作表就第一个和第10个出数了 中间的都没有

随机函数。。。

有人帮下吗

可以生成a到b范围的随机数，并将她们填入各表的a列,a,b替换成你要的数，并保证有至少10个表
sub hh()
dim i%,k%
dim arr(1 to 10)
for k=1 to 10
arr(k)=format(rnd*(b-a)+a,"0.00")
next
for i=1 to 10
worksheets(i).cells(1,1).resize(10,1).value=arr
next
end sub