Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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.
doc todas as somas possíveis de dois números 1

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinationsgood idea3


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

doc todas as somas possíveis de dois números 2

3. Clique Tools > References, na caixa de diálogo popping, verifique Microsoft Scripting Runtime caixa de seleção.

doc todas as somas possíveis de dois números 3 doc seta para a direita doc todas as somas possíveis de dois números 4

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.
doc todas as somas possíveis de dois números 5

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

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.
doc todas as somas possíveis de dois números 7

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

1. Clique Kutools > Insert > List All Combinations.
doc todas as somas possíveis de dois números 8

2. No List All Combinations caixa de diálogo, clique no botão selecionar para selecionar a primeira lista que você combinará.
doc todas as somas possíveis de dois números 9

3. Clique Add para adicionar a lista em Combinations list seção.
doc todas as somas possíveis de dois números 10

4. Repita as etapas 2 e 3 para adicionar a segunda lista ao Combinations list.
doc todas as somas possíveis de dois números 11

5. Então clique Ok para selecionar uma célula para colocar o resultado da combinação.
doc todas as somas possíveis de dois números 12

6. Clique OK. Todas as combinações possíveis foram listadas nas células.
doc todas as somas possíveis de dois números 13

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.