作业帮 > 综合 > 作业

excel 如何在A1到E1这5个单元格里面产生5个0—9的随机数(这5个数不能重复)求公式

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/08 19:49:09
excel 如何在A1到E1这5个单元格里面产生5个0—9的随机数(这5个数不能重复)求公式
Sub 随机不重复数()
Dim i%, j%
For i = 1 To 150
    For j = 1 To 5
        Cells(i, j) = Int(Rnd() * 10)
        Do Until WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, j)), Cells(i, j)) = 1
           Cells(i, j) = Int(Rnd() * 10)
        Loop
    Next j
Next i
End SubALT+F11——F7——粘贴上面的代码.运行即可.

再问: 很感谢你的答案,我要的是A1到E150这一个区域的150行,每一行都能从0--9里面随机出现5个不同的数字,如何解决?谢谢了
再答: 你试过代码没有?