Hur hittar jag alla möjliga summor av två nummer i en lista i Excel?
Om du antar att det här är en lista med siffror, kan du nu hitta alla möjliga summor av två siffror i den här listan enligt skärmbilden nedan? I Excel finns det ingen inbyggd funktion som kan lösa detta jobb. Nu presenterar jag en VBA-kod för att hantera det.
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
Om du vill hitta alla möjliga summor av två tal i en lista kan du ansöka nedan 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 nedanstående kod i 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
3. klick Tools > References, i poppdialogrutan, kontrollera Microsoft Scripting Runtime kryssrutan.
4. klick OK för att stänga dialogrutan och tryck sedan på F5 för att köra koden visas en dialogruta för att påminna dig om att välja en lista för att hitta möjliga summor.
5. klick OK, då listas alla möjliga summor av två tal i listan i kolumn C.
Tip:i kodsträngen, Range("C1").Resize(xDic.Count, 1), kan du ändra C1 till en annan cell allteftersom 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 enligt skärmbilden nedan, visas List All Combinations nytta av Kutools for Excel kan göra dig en tjänst.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
1. klick Kutools > Insert > List All Combinations.
2. I List All Combinations klickar du på knappen Välj för att välja den första listan du ska kombinera.
3. klick Add att lägga till listan i Combinations list sektion.
4. Upprepa steg 2 och 3 för att lägga till den andra listan till Combinations list.
5. Klicka sedan Ok för att välja en cell för att placera kombinationsresultatet.
6. klick OK. Alla möjliga kombinationer har listats i celler.