Excel - Add Lines

K

Kathy

I need to insert a blank line between each od a couple
thousand lines. The only way I have been able to do this
is by highlighting each line (only lets me do 9 or 10 at a
time) then right click and hit insert. Is there an easier
and faster way to do this leaving the text on the opposite
lines in tact?
 
C

Chip Pearson

Kathy,

Try something like the following. Change the numbers in the For statement to
the appropriate row numbers.

Sub InsertLines()
Dim RowNdx As Long
For RowNdx = 10 To 1 Step -1
Rows(RowNdx).Insert
Next RowNdx
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
K

Kathy

-----Original Message-----
Kathy,

Try something like the following. Change the numbers in the For statement to
the appropriate row numbers.

Sub InsertLines()
Dim RowNdx As Long
For RowNdx = 10 To 1 Step -1
Rows(RowNdx).Insert
Next RowNdx
End Sub
Thank you!!!

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




.
Click to expand...
 
Top