Loop through all non empty columns and rows and copy each N row

Dear Friends,

I am new to VBA and need your support. I have big set of data and i should somehow accelerate my work. Could plz somebody help with code doing following: loop through all non-empty columns in Activesheet until last row in each column (number of rows and columns can vary) and during looping to copy each N row to other "Sheet2" for example?! By another words: Number of columns in Sheet2 should be the same, but number of rows in N times less...

I will be appreciate for any input File example is attached.

Regards,
ISMI

It will be a number, which can vary (you can use eg. 3 for testing of macro). Number of columns in both sheets should be the same. In that case macro should copy to sheet2: row(1) then row(4) then row (7) and next until last one. I hope it helps you

Yea, it is true (time by x-axis, and 3 temperatures by y-axis). In that case macro should copy data to Sheet2 with the same Number Format. Is it possible?

Ok, sorry for confusing...once again...I have initial sheet with data in many columns (in each column number of row can vary and can be up to 30000). For example: assume that we have 3 columns (A, B, C) with 9000 non-empty rows in each. Lets N=3, so macro should copy data in column A from: row(1)...row(4)...row(7)...row(8997)...row(9000) into Sheet 2 in the same column "A" (but in row1, row2, row3...row3000).

If there is last value in column A, then go to cell B1 and repeat the same procedure until cell B9000, then repeat the same for range C1:C9000. If next column is empty, then stop a macro and do not copy anything.

I hope it will helps and you will get a clear picture in your mind. Thank in advance!

P.S: during coping please keep initial "Number Format".

Yep, every Nth row. Any help is help

Not sure what you want perhab

Please Login or Register  to view this content.

Awesome! Except small typo, everything works:

Please Login or Register  to view this content.

Thank you very much!