1,2,3,4,5,6六个数任意选6个组成一组,6个数字不重复有多少种组合能重复,顺序无要求, 求Excel排列公式

可以用Excel VBA实现。代码如下:代码使用方法和执行效果如下:(随便打开一个空工作簿)徐徐不倦-15选7-演示视频https://www.zhihu.com/video/1357649315477917697效果图:视频中粘贴的源代码如下:Sub 徐徐不倦()Dim a, b, c, d, e, f, g, i As IntegerApplication.ScreenUpdating = FalseSheets(1).Range("b1") = "第一个数"Sheets(1).Range("c1") = "第二个数"Sheets(1).Range("d1") = "第三个数"Sheets(1).Range("e1") = "第四个数"Sheets(1).Range("f1") = "第五个数"Sheets(1).Range("g1") = "第六个数"Sheets(1).Range("h1") = "第七个数"i = 2Sheets(1).Range("a2").SelectFor a = 1 To 9
For b = a + 1 To 10
For c = b + 1 To 11
For d = c + 1 To 12
For e = d + 1 To 13
For f = e + 1 To 14
For g = f + 1 To 15
Range("a" & i) = "第" & i - 1 & "组:"
Range("b" & i) = a
Range("c" & i) = b
Range("d" & i) = c
Range("e" & i) = d
Range("f" & i) = e
Range("g" & i) = f
Range("h" & i) = g
i = i + 1
Next
Next
Next
Next
Next
NextNextApplication.ScreenUpdating = TrueSheets(1).Range("a" & i).SelectEnd Sub

我要回帖

更多关于 6个数字不重复有多少种组合 的文章