Como encontrar todas as somas possíveis de dois números em uma lista no Excel?

Supondo que aqui está uma lista de números, agora você poderia encontrar todas as somas possíveis de dois números nesta lista, conforme a imagem mostrada abaixo? No Excel, não existe uma função incorporada que resolva este trabalho. Agora, apresento a você um código VBA para lidar com isso.

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 você quiser encontrar todas as somas possíveis de dois números em uma lista, você pode aplicar o código VBA abaixo.

1. Pressione Alt + F11 chaves para exibir o Microsoft Visual Basic for Applications janela.

2. Clique Insert > Module, copie e cole o código abaixo no módulo.

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. Clique Tools > References, na caixa de diálogo popping, verifique Microsoft Scripting Runtime caixa de seleção.

4. Clique OK para fechar a caixa de diálogo e pressione F5 para executar o código, uma caixa de diálogo é exibida para lembrá-lo de selecionar uma lista para encontrar as somas possíveis.

5. Clique OK, então todas as somas possíveis de dois números na lista são listadas na coluna C.

Tip： Na string de código, Range ("C1"). Resize (xDic.Count, 1), você pode mudar C1 para outra célula conforme você precisa colocar o resultado.

Find all possible combinations of two lists with List All Combinations

Se você quiser encontrar ou listar todas as combinações possíveis de duas listas, como a imagem abaixo mostrada, o List All Combinations utilidade de Kutools for Excel pode te fazer um favor.

1. Clique Kutools > Insert > List All Combinations.

2. No List All Combinations caixa de diálogo, clique no botão selecionar para selecionar a primeira lista que você combinará.

3. Clique Add para adicionar a lista em Combinations list seção.

4. Repita as etapas 2 e 3 para adicionar a segunda lista ao Combinations list.

5. Então clique Ok para selecionar uma célula para colocar o resultado da combinação.

6. Clique OK. Todas as combinações possíveis foram listadas nas células.

  List all combinations