Move Down to Across

[Silvermini63]

I have a sheet that has two columns on it. In column one it has customer numbers and in column 2 it has the link name next to it. The customer may have many links therefore multiple entries.

I want to get the links to go across the page instead of going down. Can anyone help with this as there is over 20,000 rows.

Excel Workbook
	A	B
1	Customer	Link
2	10000	Link1
3	10000	Link2
4	10000	Link3
5	10000	Link4
6	10000	Link5
7	10001	Link1
8	10001	Link2
9	10001	Link3
10	10002	Link1
11	10002	Link2
12	10002	Link3
13
Sheet1

Excel 2010
To this

Excel Workbook
	A	B	C	D	E	F
1	Customer	Link
2	10000	Link1	Link2	Link3	Link4	Link5
3	10001	Link1	Link2	Link3
4	10002	Link1	Link2	Link3
Sheet2

Excel 2010

 

[Blade Hunter]

This should do it for you:

Sub TransposeSections()
Dim X, NumBelow As Long
For X = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range("A" & X).Text <> Range("A" & X - 1).Text Then
        Range("B" & X & ":B" & X + NumBelow).Copy
        Range("C" & X).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Range("B" & X).Delete Shift:=xlToLeft
        Rows(X + 1 & ":" & X + NumBelow).Delete
        NumBelow = 0
    Else
        NumBelow = NumBelow + 1
    End If
Next
End Sub

Cheers

Dan

 

[Silvermini63]

thank you, it worked a treat