Como encontrar todas as somas possíveis de dois números numa lista no Excel?
Se precisar de encontrar todas as somas possíveis de dois números numa lista ou listar todas as combinações possíveis entre duas listas no Excel, saiba que não existem funções incorporadas para realizar estas tarefas diretamente. Este guia apresenta uma solução prática com código VBA para calcular somas e destaca a utilidade **Listar todas as combinações** do Kutools para Excel, que permite gerir combinações de forma rápida e eficiente.
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 pretender encontrar todas as somas possíveis de dois números numa lista, pode utilizar o código VBA abaixo.
1. Prima as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Insert > Module e 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 em Tools > References e, na caixa de diálogo que surgir, marque a caixa de verificação Microsoft Scripting Runtime.
 |  |  |
4. Clique em OK para fechar a caixa de diálogo e, em seguida, prima F5 para executar o código. Irá surgir uma caixa de diálogo a solicitar que selecione uma lista para calcular as somas possíveis.
5. Clique em OK e todas as somas possíveis de dois números da lista serão apresentadas na coluna C.
Dica: Na cadeia de código Range("C1").Resize(xDic.Count, 1), pode alterar C1 para qualquer outra célula onde pretenda colocar os resultados.
Find all possible combinations of two lists with List All Combinations
Se pretender listar todas as combinações possíveis de duas listas, como mostrado na imagem abaixo, a funcionalidade List All Combinations do Kutools for Excel pode ajudá-lo.
1. Clique em Kutools > Insert > List All Combinations.
2. Na caixa de diálogo List All Combinations, clique no botão de seleção para escolher a primeira lista a combinar.
3. Clique em Add para adicionar a lista à secção Combinations list.
4. Repita os passos 2 e 3 para adicionar a segunda lista à Combinations list.
5. Em seguida, clique em Ok para selecionar uma célula onde colocar o resultado das combinações.
6. Clique em OK. Todas as combinações possíveis foram listadas nas células.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Encontrar todas as combinações possíveis de duas listas com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos