Previous Topic Next Topic

Copy & Paste Macro help Please

Closed
darwinchin Posts 2 Registration date Thursday October 1, 2009 Status Member Last seen October 1, 2009 - Oct 1, 2009 at 11:52 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Oct 2, 2009 at 11:19 PM
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 response

Answer 1 / 1
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Oct 2, 2009 at 11:19 PM
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
0

Similar discussions

How can I make my name text invisible in Discord
imbenmark -
imbenmark -

4 responses
Deleted Message icon
thina -
BunoCS -

1 response
Automatically Run Macro from a calculated cell value change
smiller -
TrowaD -

1 response