Excel 2003 SP3 - Inserting Rows at every other rows

Hi,

I have an Excel spreasheet containing hundreds of line and I'd like to insert rows at every other rows.

But when I select all my Rows and Insert Rows, I get the correct number of rows inserted but above the first row only! This is not what I am looking for...

Any suggestion to insert a line at every single rows, to get 1 row with data, 1row with nothing (which I will need to select to minimize the height), then 1 row of data... and so on.

Hi, Give this a try, it seems to work:-

Please Login or Register  to view this content.

Regards Mick

try

Please Login or Register  to view this content.

Hi,

The first is quite good and simple to insert row, while the second one insert row but also copy the content of the first column into the inserted cells...

How is it possible to improve slightly the first piece of code in order to resize each inserted row? For example, a line of code where you can set something like .resize = 2pt

It suppose it must possible?

Cheers!

I found how to resize the rows in the code. I just included:

Cells(oRow, 1).RowHeight = 2

in the IF statment.