如何在Excel列表中找到两个数字的所有可能和？

如果需要在列表中找到两个数字的所有可能和，或者列出两个列表的所有可能组合，Excel并没有直接实现此功能的内置函数。本指南介绍了一种使用VBA代码计算和的方法，以及Kutools for Excel中的“列出所有组合”工具来高效处理组合问题的解决方案。

使用VBA代码查找列表中两个数字的所有可能和

使用“列出所有组合”工具查找两个列表的所有可能组合

使用VBA代码查找列表中两个数字的所有可能和

如果要查找列表中两个数字的所有可能和，可以应用以下VBA代码。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，将以下代码复制并粘贴到模块中。

VBA：列出列表中两个数字的所有可能和

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

3. 单击 工具 > 引用，在弹出的对话框中勾选 Microsoft Scripting Runtime 复选框。

4. 单击 确定 关闭对话框，然后按 F5 运行代码。将出现一个对话框，提示您选择一个列表以计算可能的和。

5. 单击 确定，然后列表中两个数字的所有可能和将显示在C列中。

提示：在代码字符串 区域("C1").Resize(xDic.Count, 1) 中，您可以将 C1 更改为任何其他想要放置结果的单元格。

使用“列出所有组合”工具查找两个列表的所有可能组合

如果您想列出两个列表的所有可能组合，如下图所示， 列出所有 组合 工具来自 Kutools for Excel 可以帮助您完成任务。

1. 单击 Kutools > 插入 > 列出所有组合.

2. 在 列出所有组合 对话框中，单击选择按钮以选择要组合的第一个列表。

3. 单击 添加 将列表添加到 组合列表 部分。

4. 重复步骤2和3，将第二个列表添加到 组合列表.

5. 然后单击 确定 选择一个单元格以放置组合结果。

6. 单击 确定。所有可能的组合都已列在单元格中。

演示：使用Kutools for Excel查找两个列表的所有可能组合