Merge Rows with same name but different data

Question

Good Afternoon,&nbsp;I have a long spreadsheet that was exported from an aging software.&nbsp; Each customer has a different record for each form of contact.&nbsp; I need to merge all several thousand of these rows to one per customer while retaining all the contact methods.&nbsp;&nbsp;I made a quick example of what I am dealing with.&nbsp;&nbsp;

sergeibaklan · Answer

gkilar&nbsp;
Power Query could work. If you consider such option better to attach sample Excel file instead of screenshot.&nbsp;

oliverscheurich · Answer

gkilar&nbsp;In the attached file click on the blue button until all data is added to all rows of each single customer. Then select columns A to H and apply delete duplicates. This could be what you want to do.

hansvogelaar · Answer

gkilar&nbsp;
Another option:
Sub CombineRows()
    Dim m As Long
    Dim r As Long
    Dim c As Long
    Application.ScreenUpdating = False
    m = Cells(Rows.Count, 1).End(xlUp).Row
    r = 2
    Do
        Do While Cells(r + 1, 1).Value = Cells(r, 1).Value
            For c = 4 To 8
                If Cells(r + 1, c).Value &lt;&gt; "" Then
                    Cells(r + 1, c).Copy Destination:=Cells(r, c)
                End If
            Next c
            Cells(r + 1, 1).EntireRow.Delete
        Loop
        r = r + 1
    Loop Until Cells(r, 1).Value = ""
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Forum Discussion

Merge Rows with same name but different data

3 Replies

Resources