insert rows

A

Arun

a workshhet with 30 column 100 rows with data. I would like to insert a
blank row after each row automatically. please help
 
B

Bob Phillips

Application.Screenupdating = False
For i = 100 to 1 Step -1
cells(i,"A").entirerow.insert
Next i
Application.Screenupdating = True
--

HTH

RP
(remove nothere from the email address if mailing direct)
 
G

Gord Dibben

Arun

There have been posted a couple of VBA macros to do what you want.

I'm just wondering why you need the blank rows.

If for appearance only, you could just select the 100 rows and double the
height.

If blank rows are to be used for data input, ignore this suggestion.

Gord Dibben Excel MVP
 
Top