excel的排列组合问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:00:39
有这样一问题:从3到26这24个数字中 ,任意选出不相同的六个数为一组,
每组6个数的和为79的组合有几个,然后怎么在excel中列出这些组合?

共3066组
编一个宏,运行一遍
Sub abc()
k = 1
For i1 = 3 To 26
For i2 = i1 + 1 To 22
For i3 = i2 + 1 To 23
For i4 = i3 + 1 To 24
For i5 = i4 + 1 To 25
For i6 = i5 + 1 To 26
If i1 + i2 + i3 + i4 + i5 + i6 = 79 Then
Cells(k, 1) = i1
Cells(k, 2) = i2
Cells(k, 3) = i3
Cells(k, 4) = i4
Cells(k, 5) = i5
Cells(k, 6) = i6
k = k + 1
End If
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub