Insert a line

[silverxx12]

Hi

I have a spreadsheet with say 50 data entries

I need to insert a line between each of the data entries

Is there a quick was of doing this

I do not wish to insert 50 line indiviadually

Many thkx

Silver

 

[Smitty]

Does this do what you need:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> InsertRows()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> i = Cells(Rows.Count, "A").End(xlUp).Row <SPAN style="color:#00007F">To</SPAN> 1 <SPAN style="color:#00007F">Step</SPAN> -1<br>            Cells(i, "A").EntireRow.Insert<br>        <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[VoG]

Try

Sub InsRow()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[silverxx12]

yes that works just fine - first time using code like this cool

If i wanted it to insert two lines between each data line is that possible ?

thnx

Not to worry

I was a bit bold and tried googling it

came up with theis one looks really cool:

I think u r able to choose how many you wish to fill - thnx for the helps much appreciated


Sub InsertRows()
Dim rw, LastRow, inRows, numRows As Double
'Get Number of Rows to insert from User
numRows = Application.InputBox("Enter The Number Of Rows To Insert")
'Find last row with data in Column A
LastRow = Cells(65536, 1).End(xlUp).Row
'Loop through data, inserting rows
For rw = LastRow To 2 Step -1
For inRows = 1 To numRows
Rows(rw).Insert Shift:=xlDown
Next
Next rw
End Sub

 

[Smitty]

If i wanted it to insert two lines between each data line is that possible ?

Sure:

Cells(i, "A").Resize(2).EntireRow.Insert

 

[Neets]

Is there a way to do this via the F5 key. Like removing blanks f5>blanks>/edr?

 

[VoG]

Is there a way to do this via the F5 key. Like removing blanks f5>blanks>/edr?

Not as far as I know.

 

[Smitty]

Is there a way to do this via the F5 key. Like removing blanks f5>blanks>/edr?

But you could assign the macro a shortcut key. Just make sure you don't use a reserved shortcut (Ctrl+C, V, X, O, P, etc.) I generally use Ctrl+Shift+Key because of that.

 

[Neets]

Thanks, I appreciate the input!