jacky
问题补充说明：有0123456789 10个数字如何让它们随机排个序列啊
做个按钮指定该宏
Sub生成0到9随机数()
DimrngAsRange,rng1AsRange
久挥础肉衡还Setrng=Range("a1:a10")
rng.ClearContents
ForEachrng1Inrng
Do
rng1=Int(Rnd*10)
LoopUntilApplication.WorksheetFunction.CountIf(rng,rng1)=1
Next
EndSub
就会在a1:a1块德物损排了害苗0随机生成0--9的不重复随机数，点一次，更新一次
