Merge many columns into one and many files into one

Hi Patel45,

Thank you very much for your macro. It works well and I have modified it a bit to get rid of
blank rows between days.

Cheers,

Jayana


Sub a()
nrows = 288
ncols = 366
drow = nrows + 1
For c = 2 To ncols
Range(Cells(1, c), Cells(nrows + 1, c)).Copy Cells(drow, 1)
drow = drow + nrows + 0
Next
For c = 2 To ncols
Columns(2).Delete
Next
End Sub








Hi Everyone,

I have 36 excel files with 366 columns and 288 rows each and I want to merge
all columns into one and all files into one. The task can be devided into two steps:

Step 1. combine all columns into one. Ref. attached table, I need to get all the data
into column J which will have 105,408 rows (288 x 366). I can sit down and create
formulas to do it but thought that there must be better ways of doing it.

Step 2. merge all 36 files with the same number of rows and columns together. Again
this can be done by copy and paste 36 times but thought a macro or somehting should
be able to do it quickly and I want to learn a bit.

Any help will be appreciated. Thank in advance.

Jayana

to merge columns try this code

Please Login or Register  to view this content.