如何用EXCEL把“1-33”个数字挑出6个数相加等于128？

Question

如何用EXCEL把“1-33”个数字挑出6个数相加等于128，且每组的6数字不能重复，并把所有组合结果输出制成表格

Answer 1

用代码遍历实现结果如图

Sub 遍历出罗列()

Dim i1&, i2&, i3&, i4&, i5&, i6&, L&, S&

S = 128

For i1 = 1 To 33

For i2 = i1 + 1 To 33

For i3 = i2 + 1 To 33

For i4 = i3 + 1 To 33

For i5 = i4 + 1 To 33

i6 = S - i1 - i2 - i3 - i4 - i5

If i6 > i5 And i6 <= 33 Then

L = L + 1

Cells(L, 1) = i1 & "+" & i2 & "+" & i3 & "+" & i4 & "+" & i5 & "+" & i6

End If

Next i5

Next i4

Next i3

Next i2

Next i1

End Sub

本回答被提问者采纳