Copy & Paste Macro help Please Closed

Question

Hello everyone,

I have just started learning Macro, but now i have a problem and hope you can help me with. Thanks in Advance.
I am working on a dataset which looks like this (its a stock volatility series)...

A B C D E F.....
1 1 1 1 1 1
2 2 2 2 2 2
3 3 3 3 3 3
4 4 4 4 4 4
5 5 5 5 5 5
. . . . . . . .
. . . . . . . .
. . . . . . . .

I would like to copy all the value in Column B and paste them to the end of Column A, and then copythe entire column C to the end of column A, and then copy and paste column D to end of column A and so on. Hence, i would like column A to have all the data from all columns.
The problem is i have 200 columns and 830 rows for each column to work with, let alone 15 other spread sheets, if I am to copy and paste them accordingly. I hope you guys can help me in this respect.

thanks much in advnace

venkat1926 · Answer

you need about 249000 rows. It is possible only in excel 2007

try this macro 

Sub test()
Dim j As Integer, k As Integer
Worksheets("sheet1").Activate
j = Range("a1").End(xlToRight).Column
For k = 2 To j
Range(Cells(1, k), Cells(1, k).End(xlDown)).Copy
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial
Next k
Application.CutCopyMode = False
End Sub

Copy & Paste Macro help Please

1 response

Similar discussions

Subscribe To Our Newsletter!