Looping row data into column

[Shaza]

Hi,
I have some repeated data from my database. Is it possible to make it in one row using macro.
For example, for same data user, date login & remarks will loop at next column instead of next row.
Could anyone assist me.

Current data

firstname	lastname	id	datelogin	remarks
tom	andrew	100010	14/1/2019	enroll new account
tom	andrew	100010	15/1/2019	update details
vincent	lew	100020	14/1/2019	enroll new account
felicia	tan	100030	14/1/2019	enroll new account
felicia	tan	100030	15/1/2019	update details
felicia	tan	100030	15/1/2019	set appointment

<tbody>
</tbody>

Outcome(using macro/vba)

firstname	lastname	id	datelogin	remarks	datelogin	remarks	datelogin	remarks
tom	andrew	100010	14/1/2019	enroll new account	15/1/2019	update details
vincent	lew	100020	14/1/2019	enroll new account
felicia	tan	100030	14/1/2019	enroll new account	15/1/2019	update details	15/1/2019	set appointment

<tbody>
</tbody>

 

[Scott T]

I am sure there is a better way to do this but here is what I came up with. I assumed your data is like your sample, sorted by ID

Sub movetorow()
Dim lr As Long
Dim lc As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For x = 2 To lr
    For i = x + 1 To lr
        If Cells(x, "C") = Cells(i, "C") Then
            lc = Cells(x, Columns.Count).End(xlToLeft).Column + 1
            Cells(x, lc) = Cells(i, "D")
            Cells(x, lc + 1) = Cells(i, "E")
            Rows(i).Clear
        End If
    Next i
Next x
lr = Cells(Rows.Count, "A").End(xlUp).Row
For y = lr To 2 Step -1
    If Cells(y, "C") = "" Then Rows(y).Delete
Next y
lc = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For c = 6 To lc Step 2
    Cells(1, c) = Cells(1, "D")
    Cells(1, c + 1) = Cells(1, "E")
Next c
End Sub

 

[Shaza]

Hi Scott,

Thanks so much for your assistance. This is really helpful. Appreciate your hard work and rigorous effort. Job well done! Amazingly, the results as what required.