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

Se você precisa encontrar todas as somas possíveis de dois números em uma lista ou listar todas as combinações possíveis de duas listas no Excel, não existem funções nativas para alcançar isso diretamente. Este guia apresenta uma solução com código VBA para calcular somas e o utilitário Listar Todas as Combinações no Kutools para Excel para lidar com combinações de forma eficiente.

Encontre todas as somas possíveis de dois números em uma lista com código VBA

Encontre todas as combinações possíveis de duas listas com Listar Todas as Combinações

Encontre todas as somas possíveis de dois números em uma lista com código VBA

Se você deseja encontrar todas as somas possíveis de dois números em uma lista, pode aplicar o seguinte código VBA.

1. Pressione as teclas Alt + F11 para exibir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, copie e cole o código abaixo no módulo.

VBA: Liste todas as somas possíveis de dois números em uma lista

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 em Ferramentas > Referências, na caixa de diálogo que aparece, marque a caixa de seleção Microsoft Scripting Runtime.

4. Clique OK para fechar a caixa de diálogo, depois pressione F5 para executar o código. Uma caixa de diálogo aparecerá, solicitando que você selecione uma lista para calcular as somas possíveis.

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

Dica: Na string de código Intervalo("C1").Redimensionar(xDic.Contagem, 1), você pode alterar C1 para qualquer outra célula onde deseja colocar os resultados.

Encontre todas as combinações possíveis de duas listas com Listar Todas as Combinações

Se você deseja listar todas as combinações possíveis de duas listas, conforme mostrado na captura de tela abaixo, o Listar Todas Combinações utilitário do Kutools para Excel pode ajudá-lo.

1. Clique Kutools > Inserir > Listar Todas as Combinações.

2. No Listar Todas as Combinações diálogo, clique no botão selecionar para escolher a primeira lista que você irá combinar.

3. Clique Adicionar para adicionar a lista à Lista de Combinação seção.

4. Repita os passos 2 e 3 para adicionar a segunda lista à Lista de Combinação.

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

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

Demonstração: Encontre todas as combinações possíveis de duas listas com Kutools para Excel