Inserting blank rows in Excel.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

In Excel, is it possible to insert a 'blank' (new) row between each row of
exisitng text?
 
Try the following VBA macro:

Sub InsertRows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = LastRow To 2 Step -1
Rows(RowNdx).Insert
Next RowNdx

End Sub


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

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 11
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Insert Rows between the existing rows 4
Inserting blank rows 3
Inserting blank rows in Excell 6
Deleting blank rows 4
Problem in inserting rows 1
Data sort seperate by blank row 1
How can I insert rows alternately 2
inserting rows in entire sheet 1

Back
Top