Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Lines Between rows
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Lines Between rows
If you mean cell border; you can do that in one shot from menu
FormatCellsBorders. If this post helps click Yes --------------- Jacob Skaria "smck" wrote: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Lines Between rows
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 "Jacob Skaria" wrote: If you mean cell border; you can do that in one shot from menu FormatCellsBorders. If this post helps click Yes --------------- Jacob Skaria "smck" wrote: 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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Lines Between rows
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 On Thu, 12 Nov 2009 20:33:01 -0800, smck wrote: 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 "Jacob Skaria" wrote: If you mean cell border; you can do that in one shot from menu FormatCellsBorders. If this post helps click Yes --------------- Jacob Skaria "smck" wrote: 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 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Lines Between rows
Thank you Gord it worked beautifully--exactly what I wanted.
smck "Gord Dibben" wrote: 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 On Thu, 12 Nov 2009 20:33:01 -0800, smck wrote: 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 "Jacob Skaria" wrote: If you mean cell border; you can do that in one shot from menu FormatCellsBorders. If this post helps click Yes --------------- Jacob Skaria "smck" wrote: 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to delete rows which is blank and which has ======== ( lines) | Excel Discussion (Misc queries) | |||
text lines to rows & columns | Excel Discussion (Misc queries) | |||
How do I put lines between rows that can be seen when printing? | Excel Discussion (Misc queries) | |||
Macro to Format Lines Between Rows | Excel Discussion (Misc queries) | |||
How do I add lines to my rows and columns? | Setting up and Configuration of Excel |