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

สมมติว่านี่คือรายการของตัวเลขตอนนี้คุณสามารถหาผลรวมที่เป็นไปได้ทั้งหมดของตัวเลขสองตัวในรายการนี้ตามภาพด้านล่างนี้หรือไม่? ใน Excel ไม่มีฟังก์ชันในตัวที่สามารถแก้ปัญหานี้ได้ ตอนนี้ฉันแนะนำรหัส VBA เพื่อจัดการกับมัน

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： ในสตริงโค้ดช่วง ("C1") ปรับขนาด (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. ชุดค่าผสมที่เป็นไปได้ทั้งหมดแสดงอยู่ในเซลล์

  List all combinations