Re: Inserting blank rows between data rows (mutliple at one time)

Giganews Newsgroups
Subject: Re: Inserting blank rows between data rows (mutliple at one time)
Posted by:  Chip Pearson (ch…@cpearson.com)
Date: Tue, 21 Oct 2003

DP

Try a macro like the following:

Sub InsertRows()
Dim RowNdx As Long
For RowNdx = 2 To LastRow * 2 Step 2
    Rows(RowNdx).Insert
Next RowNdx
End Sub

Change LastRow to the last row of your data.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com    ch…@cpearson.com

"DP" <dpi…@authorizedinc.com> wrote in message
news:093401c397ce$5c034080$a60128…@phx.gbl...
> Hello,
> I have a Ecel data file which includes 10,000 rows of
> data (inventory).  I need to insert a blank row between
> each data row.  I now how to do the insert function but
> this would only insert one blank row at a time.  Help!!

Replies

None

In response to

Inserting blank rows between data rows (mutliple at one time) posted by DP on Tue, 21 Oct 2003