Microsoft Office Forums - View Single Post - [Solved] Creating a merged list with added numbers

macropod · 07-23-2014, 05:15 AM

You could do this quite easily with a macro:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, j As Long, k As Long, lRow As Long
With ThisWorkbook.Worksheets("Sheet1").UsedRange
  lRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
  For i = 1 To lRow
    For j = 1 To lRow
      If i <> j Then
        k = k + 1
        .Range("D" & k).Value = .Range("A" & i).Value & " & " & .Range("A" & j).Value
        .Range("E" & k).Value = .Range("B" & i).Value + .Range("B" & j).Value
      End If
    Next
  Next
End With
Application.ScreenUpdating = True
End Sub