[已解决]我想在D1-D2000单元格填入2000个4位随机数

sx001

如题,我想在D1-D2000单元格填入2000个4位随机数(可含字母),不重复,这个宏是怎样的,谢谢!

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-22 15:45

Sub 随机数()
    Dim d As Object
    Dim Arr, i%, j%, strTemp$
    ReDim Arr(1 To 62)
    For i = 1 To 10
        Arr(i) = i - 1
    Next i
    For i = 11 To 36
        Arr(i) = Chr(i + 54)
    Next i
    For i = 37 To 62
        Arr(i) = Chr(i + 60)
    Next i
    Set d = CreateObject("Scripting.Dictionary")
    Do While d.Count < 2000
        Randomize
        strTemp = Arr(Int(Rnd * 62 + 1)) & Arr(Int(Rnd * 62 + 1)) & Arr(Int(Rnd * 62 + 1)) & Arr(Int(Rnd * 62 + 1))
        d(strTemp) = 1
    Loop
    [d1].Resize(2000, 1) = Application.Transpose(d.keys)
End Sub

跳转到最佳答案楼层

开辆小富康

那个叫随机字符串

开辆小富康

不重复有2个含义：如不出现AA12，就是同一字符串中没有2个A。还有就是2000个字符串没有雷同的，请楼主表达清楚，以便楼下完成[em01][em01][em01][em01]

sx001

我顶顶！

amulee

Sub 随机数()
    Dim d As Object
    Dim Arr, i%, j%, strTemp$
    ReDim Arr(1 To 62)
    For i = 1 To 10
        Arr(i) = i - 1
    Next i
    For i = 11 To 36
        Arr(i) = Chr(i + 54)
    Next i
    For i = 37 To 62
        Arr(i) = Chr(i + 60)
    Next i
    Set d = CreateObject("Scripting.Dictionary")
    Do While d.Count < 2000
        Randomize
        strTemp = Arr(Int(Rnd * 62 + 1)) & Arr(Int(Rnd * 62 + 1)) & Arr(Int(Rnd * 62 + 1)) & Arr(Int(Rnd * 62 + 1))
        d(strTemp) = 1
    Loop
    [d1].Resize(2000, 1) = Application.Transpose(d.keys)
End Sub

yuang68

 好东东