[已解决]排列组合的问题

sucdb

用宏做一个2位（每一位都是A-Z的字母）字母的排列组合，然后将这两位排列组合出来的字母随机抽取366个（输出在另外一个表上）。如何做？或者上传附件，谢谢：）

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-15 11:56

sucdb 发表于 2014-11-15 11:29
不可以重复

1. Sub demo()
   
2.     Dim ar(1 To 676), d As Object, n As Long, m As Long
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 65 To 90
   
5.         For j = 65 To 90
   
6.             n = n + 1
   
7.             ar(n) = Chr(i) & Chr(j)
   
8.         Next
   
9.     Next
   
10.     Do While m < 366
    
11.         Randomize
    
12.         x = Int((676 * Rnd) + 1)
    
13.         If Not d.Exists(ar(x)) Then
    
14.             m = m + 1
    
15.             d(ar(x)) = ""
    
16.         End If
    
17.     Loop
    
18.     Range("a1").Resize(m, 1) = Application.Transpose(d.keys)
    
19. End Sub
    

复制代码

楼主试试，附件楼下

跳转到最佳答案楼层

qh8600

是排列还是组合啊

sucdb

qh8600 发表于 2014-11-15 10:41
是排列还是组合啊

先排列，后组合366个

qh8600

sucdb 发表于 2014-11-15 11:05
先排列，后组合366个

先排列一共是676个，然后随机抽出366个是吧，这366个可以重复吗

sucdb

qh8600 发表于 2014-11-15 11:19
先排列一共是676个，然后随机抽出366个是吧，这366个可以重复吗

不可以重复

qh8600

sucdb 发表于 2014-11-15 11:29
不可以重复

1. Sub demo()
   
2.     Dim ar(1 To 676), d As Object, n As Long, m As Long
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 65 To 90
   
5.         For j = 65 To 90
   
6.             n = n + 1
   
7.             ar(n) = Chr(i) & Chr(j)
   
8.         Next
   
9.     Next
   
10.     Do While m < 366
    
11.         Randomize
    
12.         x = Int((676 * Rnd) + 1)
    
13.         If Not d.Exists(ar(x)) Then
    
14.             m = m + 1
    
15.             d(ar(x)) = ""
    
16.         End If
    
17.     Loop
    
18.     Range("a1").Resize(m, 1) = Application.Transpose(d.keys)
    
19. End Sub
    

复制代码

楼主试试，附件楼下

qh8600

sucdb 发表于 2014-11-15 11:29
不可以重复

排列.rar (15.51 KB, 下载次数: 6)

2014-11-15 11:56 上传

点击文件名下载附件

sucdb

qh8600 发表于 2014-11-15 11:56

非常感谢，就是这个。{:1112:}