macro breaking my head

[mundofanny]

Hi

after realizing that I needed a macro
and after realizing that it was just a bit messy for me I asking for help.

I have several folders.
In each folder I have about 25 spreadsheets with numerical data (nothing fancy). In each sheet there are many more columns and they vary with size.

what I was trying to do is

find the average of each column
copy and paste the average to the first cell of each column
and delete the rest.

says:

A1 ==4
A2 ==3
A3 ==2
A4 ==1


find: A5==average of A1:A4

special paste average to A1
delete values of A1:A5

continue to B

(number of column also varies)

do that for all the columns and if possible for all sheets (but I'll be just as happy with one sheet I could do the sheets manually unless you know

thanks fanny

 

[mundofanny]

I don't think I'm doing anything wrong but I keep having a warning on

With .Offset(-1).Resize(1)

there is nothing being computed.

thanks for the help.

 

[Peter_SSs]

I'm not sure why you would get that error, but try replacing that line with this one

With Intersect(.EntireColumn, ws.Rows(1))

 

[mundofanny]

genial!

in the bliNk of an eye, super fast.

I will keep this one as well.

thanks much