[已解决]Excel中利用VBA生成无重复随机码2

yjwdjfqb

Excel中利用VBA生成无重复随机码
请老师们帮帮忙，谢谢大家了。
根据指定字符生成不重复的随机码
Excel中利用VBA生成无重复随机码.rar (9.69 KB, 下载次数: 24)

2015-11-1 09:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

wp8680

2015-11-1 10:15

1. Sub text()
   
2.     Dim str$, d, w%, g%, m%, x%, s$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     str = Range("D2").Value
   
5.     w = Range("A2").Value
   
6.     g = Range("B2").Value
   
7.     Range(Range("C2").Value).Resize(99, 1).Clear
   
8.    
   
9.     Do
   
10.         For m = 1 To w
    
11.             x = Int(Rnd * Len(str)) + 1
    
12.             s = s & Mid(str, x, 1)
    
13.         Next m
    
14.         d(s) = s
    
15.         s = ""
    
16.     Loop While d.Count < g
    
17.     Range(Range("C2").Value).Resize(g, 1).NumberFormatLocal = "@"
    
18.     Range(Range("C2").Value).Resize(g, 1) = Application.Transpose(d.keys)
    
19. End Sub

复制代码

跳转到最佳答案楼层

wp8680

1. Sub text()
   
2.     Dim str$, d, w%, g%, m%, x%, s$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     str = Range("D2").Value
   
5.     w = Range("A2").Value
   
6.     g = Range("B2").Value
   
7.     Range(Range("C2").Value).Resize(99, 1).Clear
   
8.    
   
9.     Do
   
10.         For m = 1 To w
    
11.             x = Int(Rnd * Len(str)) + 1
    
12.             s = s & Mid(str, x, 1)
    
13.         Next m
    
14.         d(s) = s
    
15.         s = ""
    
16.     Loop While d.Count < g
    
17.     Range(Range("C2").Value).Resize(g, 1).NumberFormatLocal = "@"
    
18.     Range(Range("C2").Value).Resize(g, 1) = Application.Transpose(d.keys)
    
19. End Sub

复制代码

yjwdjfqb

wp8680 发表于 2015-11-1 10:15

谢老师的帮助，很好用！