怎样将A-B-C-D-E-F 6选3组合情况用VBA显示出来?

f459802564

怎样将A-B-C-D-E-F 6选3组合情况用VBA显示出来? A-B-C-D-E-F 6选3的组合数 - 副本.rar (6.19 KB, 下载次数: 41)

2016-5-25 13:14 上传

点击文件名下载附件

lenghonghai601

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i%, j%, k%, jg$()
   
3. arr = Range("a1").CurrentRegion
   
4. For i = 2 To UBound(arr) - 2
   
5.     For j = i + 1 To UBound(arr) - 1
   
6.         For k = j + 1 To UBound(arr)
   
7.             m = m + 1
   
8.             ReDim Preserve jg(1 To m)
   
9.             jg(m) = arr(i, 1) & arr(j, 1) & arr(k, 1)
   
10.         Next k
    
11.     Next j
    
12. Next i
    
13. Range("b2").Resize(m, 1) = WorksheetFunction.Transpose(jg)
    
14. End Sub

复制代码

rtian

1. Sub rtian()
   
2. a = [a2:a7]
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. For i = 1 To 6
   
5.     For j = 1 To 6
   
6.         If j <> i Then
   
7.         For k = 1 To 6
   
8.             If k <> j And k <> i Then
   
9.              dic.Add a(i, 1) & a(j, 1) & a(k, 1), ""
   
10.             End If
    
11.         Next
    
12.         End If
    
13.     Next
    
14. Next
    
15. [b2].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
16. End Sub

复制代码

f459802564

rtian 发表于 2016-5-25 13:55

谢谢你的回复，但是你的算法结果是120种，是属于排列计算。我这个不用考虑顺序的，实际结果为30种。（是组合）,能不能再帮我帮我改一下

rtian

f459802564 发表于 2016-5-25 14:08
谢谢你的回复，但是你的算法结果是120种，是属于排列计算。我这个不用考虑顺序的，实际结果为30种。（是 ...

组合 c（6，3）=20

1. Sub rtian()
   
2. a = [a2:a7]
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. For i = 1 To 6-2
   
5.     For j = i + 1 To 6-1
   
6.         For k = j + 1 To 6
   
7.              dic.Add a(i, 1) & a(j, 1) & a(k, 1), ""
   
8.         Next
   
9.     Next
   
10. Next
    
11. [b2].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
12. End Sub

复制代码

f459802564

rtian 发表于 2016-5-25 14:19
组合 c（6，3）=20

太感谢你了!

dalin2018

找了好久，太感谢了！！！！