求助（双色球的排列组合自动统计）

wcjdyx

我是通过彩票接触的excel，希望还是在这上面找到学习excel的切入点，有一个彩票统计的问题把我都快累死了，所以想请各位老师帮帮忙
双色球是无序排列33选6，所开出的奖号有六位，主要想统计出当中的3~4~5~6位数的各自排列及出现次数，同时自动将结果填充到工作表2中相应的数据后面，详情请见附件，由于我对excel的了解还在入门阶段，所以我也不知道自己是否表达的够清楚，先谢谢各位老师。
如果能讲一下原理更好
例如1 2 3 4 5 6的 3位数组合有 20个
1 2 3
1 2 4
1 2 5
1 2 6
1 3 4
1 3 5
1 3 6
1 4 5
1 4 6
1 5 6
2 3 4
2 3 5
2 3 6
2 4 5
2 4 6
2 5 6
3 4 5
3 4 6
3 5 6
4 5 6
这个结果还是感谢彭老师的杰作算出来的，都已经让我受益匪浅了，在此再次感谢。

wcjdyx

耐心的 等待

northwolves

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Column < 8 Then
   
4.         Dim arr, dic, i As Long, a, b, c, t
   
5.         Set dic = CreateObject("scripting.dictionary")
   
6.         arr = [a1].CurrentRegion
   
7.         For i = 1 To UBound(arr)
   
8.             For a = 2 To 5
   
9.                 For b = a + 1 To 6
   
10.                     For c = b + 1 To 7
    
11.                         t = Right(0 & arr(i, a), 2) & " " & Right(0 & arr(i, b), 2) & " " & Right(0 & arr(i, c), 2)
    
12.                         dic(t) = dic(t) + 1
    
13.                     Next c, b, a, i
    
14.                     With Sheet2
    
15.                         .[a:b] = ""
    
16.                         .[a1].Resize(dic.Count) = WorksheetFunction.Transpose(dic.keys)
    
17.                         .[b1].Resize(dic.Count) = WorksheetFunction.Transpose(dic.items)
    
18.                         .[a:b].Sort .[a1]
    
19.                     End With
    
20.                     Set dic = Nothing
    
21.                 End If
    
22.       

复制代码

wcjdyx

谢谢狼斑竹
但是我的excel水平实在是很差，希望您能教我怎么将代码用到表格当中。
我自己倒腾了一个多小时，实在没有办法，再次麻烦。

蓝桥玄霜

请见附件。代码仍然是狼版主的。
增加一个按钮，输入奖号以后，点击按钮即可。

wcjdyx

谢谢蓝桥老师的加工，但是没有解决掉我要达到的目的，仔细看了找了一下原因，发现是自己的提问没有表达清楚意思，现在才真的知道书到用时方恨少，就连提问也要有起码的基础知识才行，决定先深入学习excel，再根据水平阶段来提问，还是要谢谢两位老师。

海雾

哈哈，谢谢，搞来看看。

丁壬易龙

又增长了见识！

darren86

排列组合的方法还在学习中  这个例子不错

zsbin

很好,下来看看