[已解决]求高人指点，EXCEL不重复随机数字

ly4506 · 发表于 2011-11-21 20:57

如题，在R22-R27中出现220-240中的不重复随机数字。。。。。菜鸟在线等{:4812:}

最佳答案

liuts

2011-11-21 21:11

本帖最后由 liuts 于 2011-11-21 21:12 编辑

Sub aa()
    Dim dic As Object
    Set dic = CreateObject("scripting.dictionary")
        For i = 1 To 6
            dic(Int(Rnd() * 20 + 220)) = "" '220~240
        Next
    [R22:R27]=dic.KEYS
    Set dic = Nothing
End Sub

跳转到最佳答案楼层

ly4506 · 发表于 2011-11-21 21:00

22.0-24.0的随机不重复数字最好

liuts · 发表于 2011-11-21 21:04

到底是220还是22.0？

liuts · 发表于 2011-11-21 21:11

本帖最后由 liuts 于 2011-11-21 21:12 编辑

Sub aa()
    Dim dic As Object
    Set dic = CreateObject("scripting.dictionary")
        For i = 1 To 6
            dic(Int(Rnd() * 20 + 220)) = "" '220~240
        Next
    [R22:R27]=dic.KEYS
    Set dic = Nothing
End Sub

ly4506 · 发表于 2011-11-21 22:07

谢谢高手

顶一个

		自动登录	找回密码
密码			注册