Try
Option Explicit
Sub copycolumstorowsSAS()
Dim i As Long
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
Cells(2, i).Resize(6, 2).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next i
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
-----Original Message-----
From: Mukesh Kumar
Sent: Tuesday, January 31, 2012 1:40 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Query continuous copy paste
Dear Sir,
Please tell me the solution for the query given in the attached file.
In it the data is distributed in the different columns. The solution
is manually copy paste the data which is time consuming process.
Please tell me the solution or formula to automate the process. Also
please note that here two columns are having label i.e. Name & No.
There may be certain time the columns may having more than 2 or more
labels. So please keep this situation too in mind.
Thanks & Regards,
Mukesh Kumar
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
