Question

excel 4个数字自由组合，可重复选择，求每个组合的和

例如5、6、7、8四个数字，任选3个数字相加，每个数字可以重复使用，如5+6+7、5+5+6、6+7+7、8+8+8，求有多少种组合，每个组合的和是多少，公式应该如何写

Answer 1

组合数有64种（4*4*4），结果如下：

5    5    5    15    

5    5    6    16    

5    5    7    17    

5    5    8    18    

5    6    5    16    

5    6    6    17    

5    6    7    18    

5    6    8    19    

5    7    5    17    

5    7    6    18    

5    7    7    19    

5    7    8    20    

5    8    5    18    

5    8    6    19    

5    8    7    20    

5    8    8    21    

6    5    5    16    

6    5    6    17    

6    5    7    18    

6    5    8    19    

6    6    5    17    

6    6    6    18    

6    6    7    19    

6    6    8    20    

6    7    5    18    

6    7    6    19    

6    7    7    20    

6    7    8    21    

6    8    5    19    

6    8    6    20    

6    8    7    21    

6    8    8    22    

7    5    5    17    

7    5    6    18    

7    5    7    19    

7    5    8    20    

7    6    5    18    

7    6    6    19    

7    6    7    20    

7    6    8    21    

7    7    5    19    

7    7    6    20    

7    7    7    21    

7    7    8    22    

7    8    5    20    

7    8    6    21    

7    8    7    22    

7    8    8    23    

8    5    5    18    

8    5    6    19    

8    5    7    20    

8    5    8    21    

8    6    5    19    

8    6    6    20    

8    6    7    21    

8    6    8    22    

8    7    5    20    

8    7    6    21    

8    7    7    22    

8    7    8    23    

8    8    5    21    

8    8    6    22    

8    8    7    23    

8    8    8    24    

求和的结果有10种，每种的次数如下：

15    1    

16    3    

17    6    

18    10    

19    12    

20    12    

21    10    

22    6    

23    3    

24    1    

使用的EXCEL表格：

生成清单的程序：

追问

组合求和可以用公式吗，只在A1、B1、C1、D1分别输入5、6、7、8，就可以自动计算出和

追答

也许可能能实现，但是对于我来说，写VBA更简洁。

Answer 2

这个问题可以通过使用循环嵌套来解决。首先，在Excel中，您可以将四个数字分别放在单元格A1至A4中。然后可以使用以下代码来计算所有可能的四位数：```Sub CalculateSums() Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim sum As Integer For i = 1 To 4 For j = 1 To 4 For k = 1 To 4 For l = 1 To 4 sum = Range(\"A\" \u0026 i).Value + Range(\"A\" \u0026 j).Value + Range(\"A\" \u0026 k).Value + Range(\"A\" \u0026 l).Value Debug.Print sum Next l Next k Next j Next i End Sub```在这里，们使用嵌套循环来遍历所有可能的四位数字。们将每个单元格中的数字相加，并打印结果。您可以将这些代码放在Excel的VBA编辑器中，并按F5键执行它们。在“立即”窗口中，您将看到所有可能组合的和。

Answer 3

结果很多，这个得用代码列举出来

Answer 4

复杂的得用代码