This macro will do it
option explicit
Sub TransposeEmSAS()
Dim r As Long
Application.ScreenUpdating = False
Columns("J").Resize(, 2).Insert
r = 2
doit:
If Cells(r + 1, 1) = "" Then GoTo deletecolumns
Rows(r + 2).Resize(4).Insert
'copy colors
Range("L2:P2").Copy
Cells(r + 1, "j").PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'copy values
Cells(r + 1, "L").Resize(, 5).Copy
Cells(r + 1, "k").PasteSpecial , Transpose:=True
'do the next set
r = r + 5
GoTo doit
deletecolumns:
Columns("l:z").Delete
Application.ScreenUpdating = True
End Sub
From: shashank bhosle
Sent: Wednesday, September 28, 2011 12:40 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Format to be Changed!$$$$$$$$$
Hello Friends,
I have attach the sheet which included two table
T1
T2
i want to change the T1 data to T2
Please help
Regards
Shashank
9422927499
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
