Lines Between rows

[smck]

I am working in Excel 2003 and need to insert lines sometimes one, two or 3
between rows with data. I am now doing it manually which is very tedious. Is
there a command or macro that can do this?

Thanks

 

[Jacob Skaria]

If you mean cell border; you can do that in one shot from menu
Format>Cells>Borders.

If this post helps click Yes

 

[smck]

Hi Jacob,
Thanks for your response. From your answer I realized I may not have
explained my request clearly. What I mean is inserting blank rows between the
rows of data, e.g.

123 456 678 875
345 823 230 985
123 832 910 330

needs to be:

123 456 678 875


345 823 230 985


123 832 910 330

Thanks

 

[Gord Dibben]

Sub InsertRows()
Application.ScreenUpdating = False
Dim NumRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
NumRows = InputBox("How many rows to insert?")
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

 

[smck]

Thank you Gord it worked beautifully--exactly what I wanted.

smck