|
楼主 |
发表于 2023-3-26 13:34
|
显示全部楼层
这是全组合算法! 谢谢!
刚才AI写出10组合4个数的代码:
'以下是一个使用VBA代码从A1单元格中选出4个不重复的数并输出到G2单元格下的示例:
'
Sub Combination()
Dim arr(10) As Long
Dim i As Long, j As Long, k As Long, l As Long
Dim counter As Long, rowCounter As Long
'将A1到A10的数据存入数组
For i = 1 To 10
arr(i) = Cells(i, 1)
Next i
counter = 1 '计数器初始化为1
rowCounter = 2 '行计数器初始化为2(G2单元格下)
'循环遍历数组,选出4个不重复的数
For i = 1 To 7
For j = i + 1 To 8
For k = j + 1 To 9
For l = k + 1 To 10
'将组合结果输出到G列
Cells(rowCounter, 7) = arr(i) & " " & arr(j) & " " & arr(k) & " " & arr(l)
rowCounter = rowCounter + 1 '行计数器加1
Next l
Next k
Next j
Next i
End Sub
'
'运行此代码后,将从A1单元格中选出4个不重复的数,并将组合结果输出到G列,起始单元格为G2。
'
|
|