Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
add an extra row
I have an excel sheet that I want to add an empty row after each row. It
should be like one with data and one empty row. How to accomplish this? -- TS |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
add an extra row
Hi,
Try the following: '-------------------------------------------------------- Sub test() InsertSpaceRow ActiveSheet, 3, 10 End Sub 'takes a sheet , a start row number and an end row number Sub InsertSpaceRow(Wsh As Worksheet, rowStart As Long, rowEnd As Long) Dim i As Long Application.ScreenUpdating = False For i = rowEnd To rowStart Step -1 Wsh.Range(i & ":" & i).EntireRow.Insert Next End Sub '------------------------------------------------------------ -- Regards, Sébastien "TS" wrote: I have an excel sheet that I want to add an empty row after each row. It should be like one with data and one empty row. How to accomplish this? -- TS |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
extra sheets | New Users to Excel | |||
about extra row | Excel Discussion (Misc queries) | |||
how do I get rid of extra rows | Excel Discussion (Misc queries) | |||
Extra Columns | Excel Discussion (Misc queries) | |||
vlookup extra | Excel Discussion (Misc queries) |