求助排列组合的VBA代码

lixiaoxue

已知：10个数字，用3个数字排列组合有120种组合。
如题附件模拟答案：A到J列每行有10个单元格的数字，将它们排列组合从L列对应的行号，逐行输出答案。

mnmb

点击按钮就行！

大灰狼1976

1. Sub test()
   
2. Dim arrOri, arrRst, i&, c&, c1&, c2&, c3&
   
3. arrOri = Range("a2:j" & Cells(Rows.Count, 1).End(3).Row)
   
4. ReDim arrRst(1 To UBound(arrOri), 1 To Application.Combin(10, 3))
   
5. For i = 1 To UBound(arrOri)
   
6.   c = 0
   
7.   For c1 = 1 To 8
   
8.     For c2 = c1 + 1 To 9
   
9.       For c3 = c2 + 1 To 10
   
10.         c = c + 1
    
11.         arrRst(i, c) = arrOri(i, c1) & arrOri(i, c2) & arrOri(i, c3)
    
12.       Next
    
13.     Next
    
14.   Next
    
15. Next
    
16. [l2].Resize(i - 1, UBound(arrRst, 2)) = arrRst
    
17. End Sub

复制代码