如何在Excel中的某一列用vba产生五组1到10的随机数?如何在Excel中的某一列产生五组1到10的随机数?例如：在A1至A50中产生五组1到10的随机数,产生一组容易实现,可是产生五组就有问题了,每一组

　　如何在Excel中的某一列用vba产生五组1到10的随机数?

　　如何在Excel中的某一列产生五组1到10的随机数?

　　例如：在A1至A50中产生五组1到10的随机数,产生一组容易实现,可是产生五组就有问题了,每一组产生的随机数要不一样,比如第一组产生的是2,8,10,3,7,5,4,1,9,6.第二组7,10,9,5,6,8,3,1,2,4等!

　　PublicSubsjs()

　　DimrngAsRange,rng1AsRange

　　DimxAsInteger,yAsInteger,iAsInteger

　　x=1

　　y=10

　　m=50/10

　　Fori=1Tom

　　Setrng=Range("A(x):A(y)")

　　rng.ClearContents

　　Randomize

　　ForEachrng1Inrng

　　Do

　　rng1=Int(Rnd*10+1)

　　LoopUntilApplication.WorksheetFunction.CountIf(rng,rng1)=1

　　Next

　　x=x+10

　　y=y+10

　　Next

　　EndSub