วิธีค้นหาผลรวมของตัวเลขสองตัวที่เป็นไปได้ทั้งหมดในรายการใน Excel

หากคุณต้องการค้นหาผลรวมที่เป็นไปได้ทั้งหมดของตัวเลขสองตัวในรายการหรือแสดงรายการการรวมกันที่เป็นไปได้ทั้งหมดของสองรายการใน Excel ไม่มีฟังก์ชันในตัวที่จะดำเนินการนี้ได้โดยตรง คู่มือนี้จะแนะนำโซลูชันโค้ด VBA สำหรับการคำนวณผลรวมและยูทิลิตี้ List All Combinations ใน Kutools สำหรับ 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

3 คลิก Tools > Referencesในกล่องโต้ตอบ popping ให้เลือก Microsoft Scripting Runtime ช่องทำเครื่องหมาย

4 คลิก OK เพื่อปิดกล่องโต้ตอบจากนั้นกด F5 ในการรันโค้ด กล่องโต้ตอบจะปรากฏขึ้นพร้อมแจ้งให้คุณเลือกรายการสำหรับคำนวณผลรวมที่เป็นไปได้

5 คลิก OKจากนั้นผลรวมที่เป็นไปได้ทั้งหมดของตัวเลขสองตัวจากรายการจะแสดงในคอลัมน์ C

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 สามารถช่วยคุณได้

1 คลิก Kutools > Insert > List All Combinations.

2 ใน List All Combinations คลิกปุ่มเลือกเพื่อเลือกรายการแรกที่คุณจะรวมเข้าด้วยกัน

3 คลิก Add เพื่อเพิ่มรายชื่อเข้าไป Combinations list มาตรา.

4. ทำซ้ำขั้นตอนที่ 2 และ 3 เพื่อเพิ่มรายการที่สองลงในไฟล์ Combinations list.

5 จากนั้นคลิก Ok เพื่อเลือกเซลล์เพื่อวางผลการผสม

6 คลิก OK. ชุดค่าผสมที่เป็นไปได้ทั้งหมดแสดงอยู่ในเซลล์

สาธิต: ค้นหาการรวมกันที่เป็นไปได้ทั้งหมดของสองรายการด้วย Kutools สำหรับ Excel