Transpose contact list with VBA

I have a list of contacts with all of the contact information in one column E. I would like to transpose the information in column E  for each plan number  in Column A to a single row.
Is it possible ?  I have a lot of them in that one column
Contact-list.xls
llawrencegAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
tilsantConnect With a Mentor Commented:
try the attached code.
it is valid for 1000 such contacts.
if the number of contacts is more then u can simply change the value in the code.


tils.
Sub Macro2()

    Application.ScreenUpdating = False
    Range("E2").Select
    For i = 1 To 1000    
        ActiveCell.Range("A1:A4").Select
        Selection.Copy
        ActiveCell.Offset(0, 1).Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
        ActiveCell.Offset(4, -1).Range("A1").Select
    Next
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Open in new window

0
All Courses

From novice to tech pro — start learning today.