macro to combine data in columns that belong to the same account

[tonywatsonhelp]

Hi Everyone,
I hope you can help,
I have two lots of data
Sheet "Raw" contains the raw data we download from our system.
Sheet "Single" has a list of all the unique account numbers from that download.

Now sheet raw contains the ID in column "A" and the data I need in column Z
what I need is in sheet "Single" to look down "RAW" column a and every time we find the ID in column A combine the data into column "Z" using "," to separate and ignoring blanks

So example of sheet raw

	A			Z
1	ID			Data	Note: this is what i currently have
2	12345			Hello
3	12345			Combine
4	12345			This
5	54321			and
6	54321			this
7	777			Exclude blank
8	777
9	777			Cells

and what id like in "Single" sheet

	A			Z
1	ID			DAta	this is what i want
2	12345			Hello,Combine,This
3	54321			and,this
4	777			Exclude blank,cells

I hope thats clear, please help if you can thanks
Tony

 

[Legacy 143009]

This will do work if you don't have too much data:

Sub test()
  Dim lRow As Long
  lRow = Cells(Rows.Count, 1).End(xlUp).Row
  Application.ScreenUpdating = False
  For i = lRow To 3 Step -1
    If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
      If Not Cells(i, 26).Value = "" Then
          Cells(i - 1, 26).Value = Cells(i - 1, 26).Value & ", " & Cells(i, 26).Value
      End If
      Rows(i).EntireRow.Delete
    End If
  Next
  Application.ScreenUpdating = True
End Sub