如何在 Excel 中找出清單中任意兩個數字的所有可能總和？

作者Sun修改日期2024-11-20

若您需要在 Excel 中找出清單內兩個數字的所有可能總和，或列出兩個清單的所有可能組合，Excel 本身並未提供可直接達成此目的的內建函數。本指南將介紹一種 VBA 程式碼解決方案，協助您輕鬆計算所有可能總和，以及運用「列出所有組合」工具（屬於 Kutools for Excel）高效生成所有組合的方法。
顯示用於計算 Excel 中所有可能總和的數字清單的螢幕截圖

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinations

Find all possible sums of two numbers in a list with VBA code

若要找出清單中任意兩個數字的所有可能總和，請使用以下 VBA 程式碼。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 點選 Insert > Module，並將下方程式碼複製貼上至模組中。

VBA: List all possible sums of two numbers in a list

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

顯示用於列出 Excel 中兩個數字所有可能總和之程式碼的 VBA 編輯器螢幕截圖

3. 點選 Tools>References，在彈出的對話方塊中勾選 Microsoft Scripting Runtime 核取方塊。

顯示 Excel VBA 中用於啟用 Microsoft Scripting Runtime 函式庫的「參考」對話框螢幕截圖

4. 點選 OK 關閉對話方塊，再按下 F5 執行程式碼。此時將彈出一個對話方塊，提示您選取用於計算可能總和的清單。
顯示用於選擇清單以計算所有可能總和的對話框螢幕截圖

5. 點選 OK 後，清單中兩個數字的所有可能總和將顯示於 C 欄。
顯示所有兩個數字的可能總和列於 C 欄中的螢幕截圖

小技巧：在程式碼字串 Range("C1").Resize(xDic.Count, 1) 中，您可以將 C1 替換為任何其他想要放置結果的儲存格。

Find all possible combinations of two lists with List All Combinations

若您想列出兩個清單的所有可能組合（如下方截圖所示），List All Combinations 工具（屬於）Kutools for Excel）可助您一臂之力！
顯示用於在 Excel 中建立所有可能組合的兩個數值清單的螢幕截圖

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 點選 Kutools > Insert > List All Combinations。
顯示 Excel 中 Kutools 分頁內「列出所有組合」工具的螢幕截圖

2. 在 List All Combinations 對話方塊中，點選「選取」按鈕，選擇您要進行組合的第一個清單。
顯示在「列出所有組合」工具中選取第一個清單的螢幕截圖

3. 點選 Add，將清單加入 Combinations list 區段。
顯示如何在 Kutools 中將第一個清單新增至組合清單的螢幕截圖

4. 重複步驟 2 與 3，將第二個清單加入。 Combinations list。
顯示如何在 Kutools 中將第二個清單新增至組合清單的螢幕截圖

5. 接著點選 Ok，即可選取儲存格來放置組合結果。
顯示用於放置組合結果的儲存格選取對話框螢幕截圖

6. 點選 OK，所有可能的組合都已列於儲存格中。
顯示使用 Kutools 在 Excel 中建立的兩個清單所有可能組合的螢幕截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用 Kutools for Excel 找出兩個清單的所有可能組合

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多