Preskoči na glavno vsebino

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.
doc vse možne vsote dveh števil 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

Č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

doc vse možne vsote dveh števil 2

3. klik Tools > References, v pojavnem pogovornem oknu potrdite Microsoft Scripting Runtime potrditveno polje.

doc vse možne vsote dveh števil 3 doc puščica desno doc vse možne vsote dveh števil 4

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.
doc vse možne vsote dveh števil 5

5. klik OK, potem so v stolpcu C navedeni vsi možni vsoti dveh števil na seznamu
doc vse možne vsote dveh števil 6

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.
doc vse možne vsote dveh števil 7

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

1. klik Kutools > Insert > List All Combinations.
doc vse možne vsote dveh števil 8

2. V Ljubljani List All Combinations kliknite gumb za izbiro, da izberete prvi seznam, ki ga boste združili.
doc vse možne vsote dveh števil 9

3. klik Add , da dodate seznam v Combinations list oddelek.
doc vse možne vsote dveh števil 10

4. Ponovite koraka 2 in 3, da dodate drugi seznam na Combinations list.
doc vse možne vsote dveh števil 11

5. Nato kliknite Ok , da izberete celico, v katero boste postavili rezultat kombinacije.
doc vse možne vsote dveh števil 12

6. klik OK. Vse možne kombinacije so bile navedene v celicah.
doc vse možne vsote dveh števil 13

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations