Kako najti vse možne vsote dveh števil na seznamu v Excelu?
Recimo, da je tukaj seznam številk, ali bi lahko zdaj našli vse možne vsote dveh številk na tem seznamu, kot je prikazano spodaj? V Excelu ni vgrajene funkcije, ki bi lahko rešila to nalogo. Zdaj vam predstavljam kodo VBA, s katero jo obravnavate.
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
Če želite na seznamu najti vse možne vsote dveh števil, se lahko prijavite pod kodo VBA.
1. Pritisnite Alt + F11 tipke za prikaz Microsoft Visual Basic for Applications okno.
2. klik Insert > Module, kopirajte in prilepite spodnjo kodo v modul.
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. klik Tools > References, v pojavnem pogovornem oknu potrdite Microsoft Scripting Runtime potrditveno polje.
4. klik OK , da zaprete pogovorno okno, nato pritisnite F5 Če želite zagnati kodo, se odpre pogovorno okno, ki vas opomni, da izberete seznam in poiščete možne vsote.
5. klik OK, potem so v stolpcu C navedeni vsi možni vsoti dveh števil na seznamu
Tip: V kodnem nizu, Obseg ("C1"). Spremenite velikost (xDic.Count, 1), lahko spremenite C1 v drugo celico, če želite postaviti rezultat.
Find all possible combinations of two lists with List All Combinations
Če želite poiskati ali našteti vse možne kombinacije dveh seznamov, kot je prikazano na spodnji sliki zaslona, se prikaže List All Combinations uporabnost Kutools for Excel ti lahko naredi uslugo.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
1. klik Kutools > Insert > List All Combinations.
2. V Ljubljani List All Combinations kliknite gumb za izbiro, da izberete prvi seznam, ki ga boste združili.
3. klik Add , da dodate seznam v Combinations list oddelek.
4. Ponovite koraka 2 in 3, da dodate drugi seznam na Combinations list.
5. Nato kliknite Ok , da izberete celico, v katero boste postavili rezultat kombinacije.
6. klik OK. Vse možne kombinacije so bile navedene v celicah.