Excel में किसी सूची में दो संख्याओं का सभी संभावित योग कैसे ज्ञात करें?

लेखक: रवि अंतिम संशोधित: 2020-11-20

मान लीजिए कि यहां संख्याओं की एक सूची है, तो क्या अब आप इस सूची में दो संख्याओं के सभी संभावित योग ढूंढ सकते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है? एक्सेल में, ऐसा कोई अंतर्निहित फ़ंक्शन नहीं है जो इस कार्य को हल कर सके। अब मैं आपको इसे संभालने के लिए एक वीबीए कोड पेश करता हूं।
दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 1

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

दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 2

3। क्लिक करें Tools > References, पॉपिंग डायलॉग में, जांचें Microsoft Scripting Runtime चेकबॉक्स.

दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 3

दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 4

4। क्लिक करें OK संवाद बंद करने के लिए, फिर दबाएँ F5 कोड को चलाने के लिए, संभावित रकम ढूंढने के लिए एक सूची चुनने की याद दिलाने के लिए एक संवाद पॉप आउट होता है।
दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 5

5। क्लिक करें OK, तो सूची में दो संख्याओं के सभी संभावित योग कॉलम सी में सूचीबद्ध हैं।

Tip:कोड स्ट्रिंग में, रेंज("C1").Resize(xDic.Count, 1), आप C1 को किसी अन्य सेल में बदल सकते हैं क्योंकि आपको परिणाम डालने की आवश्यकता है।

Find all possible combinations of two lists with List All Combinations

यदि आप नीचे दिखाए गए स्क्रीनशॉट के अनुसार दो सूचियों के सभी संभावित संयोजनों को ढूंढना या सूचीबद्ध करना चाहते हैं, तो List All Combinations की उपयोगिता Kutools for Excel आप पर एक उपकार कर सकते हैं.
दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 7

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं।

मुफ्त डाउनलोड
30 दिनों में निःशुल्क पूर्ण-विशेषीकृत

1। क्लिक करें Kutools > Insert > List All Combinations.
दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 8

2। में List All Combinations संवाद, पहली सूची का चयन करने के लिए चयन बटन पर क्लिक करें जिसे आप संयोजित करेंगे।
दो संख्याओं के सभी संभावित योग ज्ञात कीजिए 9