跳到主要內容

如何在Excel中的列表中找到兩個數字的所有可能和?

作者:孫 最後修改時間:2020-11-20

假設這裡是一個數字列表,現在您可以在此列表中找到兩個數字的所有可能總和,如下面的屏幕截圖所示? 在Excel中,沒有內置函數可以解決此任務。 現在,我向您介紹一個VBA代碼來處理它。
doc兩個數字的所有可能和1

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

Find all possible combinations of two lists with List All Combinationsgood idea3


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

doc兩個數字的所有可能和2

3。 點擊 Tools > References,在彈出的對話框中,選中 Microsoft Scripting Runtime 複選框。

doc兩個數字的所有可能和3 doc箭頭向右 doc兩個數字的所有可能和4

4。 點擊 OK 關閉對話框,然後按 F5 要運行代碼,將彈出一個對話框,提醒您選擇一個列表以查找可能的金額。
doc兩個數字的所有可能和5

5。 點擊 OK,則列表C中列出了列表中兩個數字的所有可能總和。
doc兩個數字的所有可能和6

Tip:在代碼字符串Range(“ C1”)。Resize(xDic.Count,1)中,您可以根據需要將C1更改為另一個單元格。


Find all possible combinations of two lists with List All Combinations

如果要查找或列出兩個列表的所有可能組合,如下面的屏幕截圖所示,則 List All Combinations 的效用 Kutools for Excel 可以幫你一個忙。
doc兩個數字的所有可能和7

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

1。 點擊 Kutools > Insert > List All Combinations.
doc兩個數字的所有可能和8

2。 在裡面 List All Combinations 對話框中,單擊選擇按鈕以選擇要合併的第一個列表。
doc兩個數字的所有可能和9

3。 點擊 Add 將列表添加到 Combinations list 部分。
doc兩個數字的所有可能和10

4.重複步驟2和3,將第二個列表添加到 Combinations list.
doc兩個數字的所有可能和11

5。 然後點擊 Ok 選擇要放置組合結果的單元格。
doc兩個數字的所有可能和12

6。 點擊 OK。 所有可能的組合已在單元格中列出。
doc兩個數字的所有可能和13

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations