VBA Concatenate based on another cell value

[wrightyrx7]

Hi all,

Please can you have a look at the spreadsheet i have attached. It has some example data and some more data of how i would want it to concatenate.

i have placed the data in the columns that the real data is on, on my spreadsheet.

Any help would be great.

Regards
Chris

[Bob Phillips]

[vba]

Sub ProcessData()
Dim lastrow As Long
Dim i As Long

With ActiveSheet

lastrow = .Cells(.Rows.Count, "D").End(xlUp).Row
For i = lastrow To 3 Step -1

If .Cells(i, "D").Value = .Cells(i - 1, "D").Value Then

.Cells(i - 1, "E").Value = .Cells(i - 1, "E").Value & "," & _
.Cells(i, "E").Value
.Rows(i).Delete
End If
Next i
End With
End Sub
[/vba]

[wrightyrx7]

Thanks xld,

How would you advise i learn VBA? Been trying for a few weeks but only bits seem to be sinking in.

Reading doesnt seem to want to stay in my head haha

[dazwm]

Hi xld, I know there is some type of step through you can do on a code but does that actually tell you what each part does? Could you explain a little about the code you just did to help our learning please.