Question

想在EXCEL中找出0-9中和为24的6个数，可不可以给出准确的过程

要求一定要简单而明了，
在EXCEL中
（1）在0-9数字中随意找6个数可重复，和为24
（2）在0-9数字中随意找5个数可重复，和为24
（3）在0-9数字中随意找4个数可重复，和为24
告诉我方法，可加分

Answer 1

数字可以重复，这样的数的组合成24太多了。即使用VBA也算不完，给你VBA代码，运行不结束按CRTL+PAUSE BREAK健。A1、A2、A3...A9、A10输入1、2、3、、、9、0等10个数字。运行代码后，从B1-G1起按行显示组合，记住CRTL+PAUSE BREAK健中断结束代码。
（1）题：
Sub NUM24()
n = 1
For a = 1 To 10
For b = 1 To 10
For c = 1 To 10
For d = 1 To 10
For e = 1 To 10
For f = 1 To 10
If Cells(a, 1) + Cells(b, 1) + Cells(c, 1) + Cells(d, 1) + Cells(e, 1) + Cells(f, 1) = 24 Then
Cells(n, 2) = Cells(a, 1)
Cells(n, 3) = Cells(b, 1)
Cells(n, 4) = Cells(c, 1)
Cells(n, 5) = Cells(d, 1)
Cells(n, 6) = Cells(e, 1)
Cells(n, 7) = Cells(f, 1)
n = n + 1
End If
Next f
Next e
Next d
Next c
Next b
Next a
End Sub

（2）题：
Sub NUM24()
n = 1
For a = 1 To 10
For b = 1 To 10
For c = 1 To 10
For d = 1 To 10
For e = 1 To 10
If Cells(a, 1) + Cells(b, 1) + Cells(c, 1) + Cells(d, 1) + Cells(e, 1) = 24 Then
Cells(n, 2) = Cells(a, 1)
Cells(n, 3) = Cells(b, 1)
Cells(n, 4) = Cells(c, 1)
Cells(n, 5) = Cells(d, 1)
Cells(n, 6) = Cells(e, 1)
n = n + 1
End If
Next e
Next d
Next c
Next b
Next a
End Sub

（3）题：
Sub NUM24()
n = 1
For a = 1 To 10
For b = 1 To 10
For c = 1 To 10
For d = 1 To 10
If Cells(a, 1) + Cells(b, 1) + Cells(c, 1) + Cells(d, 1) = 24 Then
Cells(n, 2) = Cells(a, 1)
Cells(n, 3) = Cells(b, 1)
Cells(n, 4) = Cells(c, 1)
Cells(n, 5) = Cells(d, 1)
n = n + 1
End If
Next d
Next c
Next b
Next a
End Sub

追问

可我不会用VBA，能不能给个具体步骤。最好是准确而详细的。从头开始的。

追答

第一步：新建一个EXCEL表，在A1-A10中输入数字1-9和0（最后是0）。第二步：按键ALT+F11，会弹出一个窗口，双击左边的SHEET1，粘贴上面的Sub NUM24()。。。一直到第一个END SUB（共有三段这样代码，取其中一个）第三步，按F5运行。如果老没运行完，则按CTRL+PAUSE BREAK键中止运行。由于提出问题的答案太多，要穷尽所有需运行很长时间，不知有没必要。

追问

若变为和为21时，是不是将24改为21就可以了有什么窍门吗
有点笨，请谅解，对了，看你挺精通的，可不可以介绍一些关于这方面的书呀，我上网上搜了搜，不如你这个明了

追答

已发邮件《等于24的组合表》。如要等于21，则把三个表中VBA窗口里的24改成21，分别按F5运行就可以了。

追问

(1）在0-9数字中随意找6个数，和为24，一组数中数字不可重复，如1234569，6954321就是重复，一组不可出现11等情况。组合也不可重复。
（2）在0-9数字中随意找5个数，和为24。只可重1位数且只重一次，如112389或122379，组合不可重复。
（3）在0-9数字中随意找4个数可重复，和为24。可重2位数且重的数只可重一次。如113379，组合不可重复。

追答

稍后答复。

追问

(1）在0-9数字中随意找6个数，和为24，一组数中数字不可重复，如1234569，6954321就是重复，一组不可出现11等情况。组合也不可重复。
（2）在0-9数字中随意找5个数，和为24。只可重1位数且只重一次，如112389或122379，组合不可重复。
（3）在0-9数字中随意找4个数可重复，和为24。可重2位数且重的数可重一次，也可重2次。如113379，111489，组合不可重复。
这好像是彩票用的，一个可气又可爱的老人问的。请尽力帮个忙。

追答

（1）把邮件表里代码And a <= b And b <= c And c <= d And d <= e And e <= f 的=去掉，就不会重复了。
（2）组合方式只能穷尽，快晕了。
（3）是取4个数吧？怎么举例有6个数。
已发邮件。