Potential Pair Combinations

[marcox22]

Hi All,
I kindly ask you to help me out on what I'd like to reach.
I have a list of numbers (around 100) and I'd like to get all the potential combinations of sums in pairs.


To simplify:
If I have these three numbers: 1 - 2 - 3, I would like to get the follwing result.


1+1= 2
2+2= 4
3+3= 6
1+2= 3
1+3= 4
2+3= 5


Therefore as output I would like to have the above mentioned results : 2,4,6,3,4,5.


Is there any formula/macro that would allow me to get this output in a larger scale?


Thank you very very much!

 

[ranman256]

start with this:

Public Sub aMacro()
Dim colNums As New Collection
Dim i As Integer, j As Integer


  'load all nums from excel list
Range("A1").Select
While ActiveCell.Value <> ""
   colNums.Add ActiveCell.Value
   ActiveCell.Offset(1, 0).Select    'next row
Wend


   'output
Range("D1").Select
For i = 1 To colNums.Count
   For j = 1 To colNums.Count
      ' colNums(i) & "+" & colNums(j) & "=" & colNums(i) + colNums(j)
      ActiveCell.Offset(0, 0).Value = colNums(i)
      ActiveCell.Offset(0, 1).Value = "+"
      ActiveCell.Offset(0, 2).Value = colNums(j)
      ActiveCell.Offset(0, 3).Value = colNums(i) + colNums(j)
      
      ActiveCell.Offset(1, 0).Select    'next row
   Next
Next


Set colNums = Nothing
End Sub

 

[ranman256]

Messaging isnt working...so,
enter VBE, (alt-F11)
if you do not have any modules , menu: insert, module.
paste the code.
yes you can alter the code for your list. Mine just reads down the A column.