Jak najít všechny možné součty dvou čísel v seznamu v aplikaci Excel?

Předpokládejme, že zde je seznam čísel, nyní byste mohli najít všechny možné součty dvou čísel v tomto seznamu, jak je zobrazeno níže? V aplikaci Excel neexistuje žádná vestavěná funkce, která by tuto úlohu mohla vyřešit. Nyní vám představím kód VBA, který to zvládne.

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

Pokud chcete najít všechny možné součty dvou čísel v seznamu, můžete použít níže uvedený kód VBA.

1. lis Alt + F11 klávesy pro zobrazení Microsoft Visual Basic for Applications okno.

2. cvaknutí Insert > Module, zkopírujte a vložte pod kód do modulu.

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. cvaknutí Tools > References, v rozbalovacím dialogu zaškrtněte Microsoft Scripting Runtime checkbox.

4. cvaknutí OK zavřete dialogové okno a stiskněte F5 ke spuštění kódu se zobrazí dialogové okno, které vám připomene výběr seznamu k vyhledání možných součtů.

5. cvaknutí OK, pak jsou ve sloupci C uvedeny všechny možné součty dvou čísel v seznamu.

Tip： V řetězci kódu Range ("C1"). Resize (xDic.Count, 1) můžete změnit C1 na jinou buňku, protože potřebujete umístit výsledek.

Find all possible combinations of two lists with List All Combinations

Pokud chcete najít nebo vypsat všechny možné kombinace dvou seznamů, jak je uvedeno níže, snímek obrazovky List All Combinations užitečnost Kutools for Excel může vám udělat laskavost.

1. cvaknutí Kutools > Insert > List All Combinations.

2. V List All Combinations V dialogu klikněte na tlačítko výběru a vyberte první seznam, který budete kombinovat.

3. cvaknutí Add pro přidání seznamu do Combinations list sekce.

4. Opakováním kroků 2 a 3 přidejte do seznamu druhý seznam Combinations list.

5. Pak klikněte na tlačítko Ok vyberte buňku k umístění výsledku kombinace.

6. cvaknutí OK. V buňkách byly uvedeny všechny možné kombinace.

  List all combinations