Copy & Paste Macro help Please

[Closed]
Report
Posts
2
Registration date
Thursday October 1, 2009
Status
Member
Last seen
October 1, 2009
-
Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
-
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

1 reply

Posts
1864
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
803
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