Thread: How do I add a line every 3 lines in a 5600 line spreadsheet?
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
  
Posts: 22,906
Default How do I add a line every 3 lines in a 5600 line spreadsheet?
Your description is at odds with your subject line so I'll assume
description is correct.

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


Gord Dibben MS Excel MVP

On Thu, 24 Sep 2009 11:45:01 -0700, Karen Rosenberger <Karen
wrote:

I need to insert 2 blank lines between each line of data of a spreadsheet
that is approximately 5600 lines long. Any suggestions?

Reply With QuoteReply With Quote