excel区间内产生随机数不重复，要能更新

来源：百度知道 编辑：UC知道 时间：2024/06/21 03:28:50
我看了GS_Andy的宏模块程序，成功在Excel区间内产生了不重复的随机数，但是一旦产生后，数字却不能再改了。请哪位高手能帮忙改一下，是的随机产生的不重复数字能每次都能变化吗?谢谢。原始程序如下。

可以在某一个区间内，比如A1：F10
Sub five()
For Each c In Range("A1:F10")
c.Value = Int(Rnd() * 60) + 1
Do While WorksheetFunction.CountIf(Range("A1:F10"), c) > 1
c.Value = Int(Rnd() * 60) + 1
Loop
Next
End Sub
请问如果用按钮做，要怎么操作呢？谢谢。

你把 Rnd() * 60 改成 Rnd() * 100 或者 100 以上就可以了。

25个人抽签 随机产生，你参考吧

sub abc()
For i = 1 To 25
Cells(i, "A") = Int(Rnd() * 25) + 1
For j = 1 To i - 1
If Cells(j, "A") = Cells(i, "A") Then
i = i - 1
Exit For
End If
Next j
Next
End Sub

可以用按钮做。