Come trovare tutte le possibili somme di due numeri in un elenco in Excel?

Supponendo che questo sia un elenco di numeri, ora potresti trovare tutte le possibili somme di due numeri in questo elenco come mostrato nell'immagine sottostante? In Excel, non esiste una funzione integrata in grado di risolvere questo lavoro. Ora ti presento un codice VBA per gestirlo.

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

Se vuoi trovare tutte le possibili somme di due numeri in un elenco, puoi applicare sotto il codice VBA.

1. Stampa Alt + F11 per visualizzare il file Microsoft Visual Basic for Applications finestra.

2. Clic Insert > Module, copia e incolla sotto il codice nel modulo.

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. Clic Tools > References, nella finestra di dialogo popping, seleziona Microsoft Scripting Runtime casella di controllo.

4. Clic OK per chiudere la finestra di dialogo, quindi premere F5 per eseguire il codice, viene visualizzata una finestra di dialogo per ricordare di selezionare un elenco per trovare le possibili somme.

5. Clic OK, quindi tutte le possibili somme di due numeri nell'elenco sono elencate nella colonna C.

Tip： Nella stringa di codice, intervallo ("C1"). Ridimensiona (xDic.Count, 1), puoi cambiare C1 in un'altra cella in base alla necessità di posizionare il risultato.

Find all possible combinations of two lists with List All Combinations

Se desideri trovare o elencare tutte le possibili combinazioni di due elenchi come mostrato nell'immagine sottostante, il file List All Combinations utilità di Kutools for Excel puoi farti un favore

1. Clic Kutools > Insert > List All Combinations.

2. Nel List All Combinations finestra di dialogo, fare clic sul pulsante di selezione per selezionare il primo elenco da combinare.

3. Clic Add per aggiungere l'elenco in Combinations list .

4. Ripetere i passaggi 2 e 3 per aggiungere il secondo elenco a Combinations list.

5. Quindi fare clic Ok per selezionare una cella in cui posizionare il risultato della combinazione.

6. Clic OK. Tutte le possibili combinazioni sono state elencate nelle celle.

  List all combinations