Inserting rows

[LeRoy]

Excel 2000. I have a spreadsheet where we import a
delimited file every week. The number of rows varies, but
usually is in the 6000 range. I want to be able to insert
a blank row in between each row of data automatically. The
first row contains column labels. How would I create a
macro to do this?

Thank you.

 

[gls858]

Excel 2000. I have a spreadsheet where we import a
delimited file every week. The number of rows varies, but
usually is in the 6000 range. I want to be able to insert
a blank row in between each row of data automatically. The
first row contains column labels. How would I create a
macro to do this?

Thank you.

I found this utility some time ago and it's quite helpful.

http://www.asap-utilities.com/

It has tons of common functions built in. I've found it to
be a great time saver. One of the function is insert blank
rows or columns. Another one that I use often is color each
nth row. The other good thing is it's free.

gls858

 

[Don Guillett]

try
for i = cells(rows.count,1).end(xlup).row to 2 step -1
cells(i,1).entirerow.insert
next