Vertically data into horizontally of repeated numbers

[adeel1]

hello

PFA, i want, there are repeated numbers in column "A" and in column "C" the services are different.pl make all services name in front of number horizontally means repeated numbers turn into single and all services name of column c become to horizontally in front of number.

 

[adeel1]

pl also same services name under same name in column in front of numbers

 

[Marc L]

Hi !

Among samples within threads of this forum, you can start
using a Dictionary object like in Help transposing data thread …
​

 

[NARAYANK991]

Hi ,

See if this is OK.

Narayan

 

[adeel1]

sorry sir
i did not need like this, i have uploaded file for your better understanding, i need result like in sheet 2..

Adeel

 

[Marc L]

Try this !​

Sub Demo()
        Application.ScreenUpdating = False
        Sheet2.UsedRange.Clear
With CreateObject("Scripting.Dictionary")
    VA = Sheet1.UsedRange.Value
For R& = 1 To UBound(VA)
    .Item(VA(R, 1)) = .Item(VA(R, 1)) & vbTab & VA(R, 2)
Next
    Sheet2.[A1].Resize(.Count).Value = Application.Transpose(.Keys)
    VT = .Items
    .RemoveAll
For R = 1 To UBound(VT) + 1
        VA = Split(VT(R - 1), vbTab)
    For C& = 1 To UBound(VA)
        If Not .Exists(VA(C)) Then .Add VA(C), .Count + 2
        Sheet2.Cells(R, .Item(VA(C))).Value = VA(C)
    Next
Next
    .RemoveAll
End With
        Sheet2.UsedRange.Columns.AutoFit
        Application.Goto Sheet2.Cells(1), True
        Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[NARAYANK991]

Hi ,

See if this is OK.

Narayan

 

[adeel1]

lot of thanks of both of you..this is working for me..

 

[Marc L]

In case you use my code,
I've just made an optimization in my previous post …
​

 

[adeel1]

thanks sir