Note: The other languages of the website are Google-translated. Back to English

Hur hittar jag alla möjliga summor av två nummer i en lista i Excel?

Om du antar att här är en lista med siffror, kan du nu hitta alla möjliga summor av två nummer i den här listan enligt nedanstående skärmdump? I Excel finns det ingen inbyggd funktion som kan lösa detta jobb. Nu introducerar jag dig en VBA-kod för att hantera den.
doc alla möjliga summor av två nummer 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

Om du vill hitta alla möjliga summor av två siffror i en lista kan du använda nedanstående VBA-kod.

1. Tryck Alt + F11 för att visa Microsoft Visual Basic for Applications fönster.

2. klick Insert > Module, kopiera och klistra in under koden till modulen.

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 alla möjliga summor av två nummer 2

3. klick Tools > References, i poppdialogrutan, kontrollera Microsoft Scripting Runtime kryssrutan.

doc alla möjliga summor av två nummer 3 doc pil till höger doc alla möjliga summor av två nummer 4

4. klick OK för att stänga dialogrutan och tryck sedan på F5 för att köra koden dyker en dialog upp för att påminna dig om att du väljer en lista för att hitta möjliga summor.
doc alla möjliga summor av två nummer 5

5. klick OK, sedan listas alla möjliga summor av två siffror i listan i kolumn C.
doc alla möjliga summor av två nummer 6

Tip: I kodsträngen Range ("C1"). Ändra storlek (xDic.Count, 1), du kan ändra C1 till en annan cell eftersom du behöver placera resultatet.


Find all possible combinations of two lists with List All Combinations

Om du vill hitta eller lista alla möjliga kombinationer av två listor som visas nedan, visas List All Combinations nytta av Kutools for Excel kan göra dig en tjänst.
doc alla möjliga summor av två nummer 7

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

1. klick Kutools > Insert > List All Combinations.
doc alla möjliga summor av två nummer 8

2. I List All Combinations Klicka på väljarknappen för att välja den första listan du ska kombinera.
doc alla möjliga summor av två nummer 9

3. klick Add för att lägga till listan i Combinations list sektion.
doc alla möjliga summor av två nummer 10

4. Upprepa steg 2 och 3 för att lägga till den andra listan i Combinations list.
doc alla möjliga summor av två nummer 11

5. Klicka sedan Ok för att välja en cell för att placera kombinationsresultatet.
doc alla möjliga summor av två nummer 12

6. klick OK. Alla möjliga kombinationer har listats i celler.
doc alla möjliga summor av två nummer 13

Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL