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.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Demonstração: Encontre todas as combinações possíveis de duas listas com Kutools para Excel
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins