[已解决]生成随即不重复数字

搁浅2008

bEDpL9ar.rar (1.52 KB, 下载次数: 1)

2010-11-27 19:12 上传

点击文件名下载附件
生成随即不重复数字 是随即不重复的整数

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-11-27 19:37

Sub justtest()
    Dim k%, dic, i%
    Set dic = CreateObject("scripting.dictionary")
    k = 0
    Do While k < 10
        i = Int(Rnd() * 51)
        If Not dic.exists(i) Then
            k = k + 1
            dic.Add i, ""
        End If
    Loop
    Cells(3, 2).Resize(10, 1) = Application.Transpose(dic.keys)
    Set dic = Nothing
End Sub

TB0o2fcx.rar (8.24 KB, 下载次数: 4)

2010-11-27 19:37 上传

点击文件名下载附件
生成随即不重复数字

跳转到最佳答案楼层

liuguansky

Sub justtest()
    Dim k%, dic, i%
    Set dic = CreateObject("scripting.dictionary")
    k = 0
    Do While k < 10
        i = Int(Rnd() * 51)
        If Not dic.exists(i) Then
            k = k + 1
            dic.Add i, ""
        End If
    Loop
    Cells(3, 2).Resize(10, 1) = Application.Transpose(dic.keys)
    Set dic = Nothing
End Sub

TB0o2fcx.rar (8.24 KB, 下载次数: 4)

2010-11-27 19:37 上传

点击文件名下载附件
生成随即不重复数字

tony3

谢谢楼上的了。

有没有高手最好是用函数写，VBA可不是我等新手能看懂的。

liuguansky

函数写也可以的。[em03]