Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako najti vse možne vsote dveh številk na seznamu v Excelu?

Če menite, da je tukaj seznam številk, lahko najdete vse možne vsote dveh številk na tem seznamu, kot je prikazano spodaj? V Excelu ni mogoče vgrajeno funkcijo rešiti tega posla. Zdaj vam predstavim kodo VBA, ki jo bo obravnavala.
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 Combinationsdobra ideja3


List all combinations of two or more lists in Excel sheet

Na primer, imate dva seznama vrednosti, kar želite, je združiti ta dva seznama, da dobite vse možne kombinacije, kot je prikazano spodaj. Na splošno jih lahko kombiniramo enega po enega, če pa je na voljo več deset potrebnih vrednosti za kombiniranje, ta ročna metoda stane veliko časa. V tem primeru se lahko poskusite prijaviti Kutools for Excel's List All Combinations uporabnost, ki lahko hitro ustvari vse kombinacije dveh ali več seznamov, ki jih potrebujete .. Click for 60 days free trial!
kombinacije dokumentov
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.

Find all possible sums of two numbers in a list with VBA code

Če želite na seznamu najti vse možne vsote dveh številk, lahko uporabite spodnjo kodo VBA.

1. Pritisnite Alt + F11 tipke za prikaz Microsoft Visual Basic for Applications okno.

2. klik Insert > Module, kopirajte in prilepite spodnjo kodo na 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 pogovornem oknu popping, preverite Microsoft Scripting Runtime potrditveno polje.

doc vse možne vsote dveh števil 3 doc arrow 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 navedene vse možne vsote dveh števil na seznamu.
doc vse možne vsote dveh števil 6

Tip: V kodnem nizu, Range ("C1"). Spreminjanje velikosti (xDic.Count, 1), lahko C1 spremenite v drugo celico, kot želite, da rezultat dosežete.


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 sliki spodaj, se List All Combinations uporabnost Kutools for Excel ti lahko naredi uslugo.
doc vse možne vsote dveh števil 7

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

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

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

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

5. Nato kliknite Ok da izberete celico, da se doda 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

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.