求一款软件用于列举数字的排列组合,最好能在excel中输出结果

发布网友发布时间：2022-04-29 12:29

共3个回答

热心网友时间：2022-06-27 17:27

给你一段VBA代码吧，放入EXCEL的代码页中（ALT+F11），运行主程序MYCMB()就会把结果输出到表格中。

Sub MYCMB()
Const t = 5, Z = 8 '从8个数字中取5个进行组合
Dim CNO, q(), CM(), CM2()
st = Timer
'为保证速度，用数组存储结果
ReDim q(1 To t)
ReDim CM(1 To WorksheetFunction.combin(Z, t))
nq 1, 1, t, Z, CNO, q(), CM()

'转二维数组，以便EXCEL存放
ReDim CM2(1 To CNO, 1 To t)
For i = 1 To CNO
For j = 1 To t
CM2(i, j) = CM(i)(j)
Next j
Next i
'输出结果到表格
Cells(1, t + 2) = "组合数"
Cells(1, t + 3) = CNO
If CNO > 65536 Then CNO = 65536
Range(Cells(1, 1), Cells(CNO, t)) = CM2
Cells(2, t + 2) = "运行时间(秒)"
Cells(2, t + 3) = Timer - st
End Sub
'递归函数
Sub nq(n, s, x, E, CNO, q(), CM())
For i = s To E - x + n
q(n) = i
If n = x Then '当前组合的数字已经选完
CNO = CNO + 1
CM(CNO) = q
Else
nq n + 1, i + 1, x, E, CNO, q(), CM()
End If
Next i
End Sub
希望能解决您的问题。

热心网友时间：2022-06-27 17:27

首先求出1到49之间的随机数利用“=INT(RAND()*48+1)”函数，再利用”&“把3个数合并，最后在由大到小排列，即可！

热心网友时间：2022-06-27 17:28

我这个可以自定义的

第一列是数据源

第二列是组合个数