Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
automatically insert 8 blank rows between each record
I am trying to insert 8 blank rows in between all records in my spreadsheet.
Any suggestions using macros,etc. Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
automatically insert 8 blank rows between each record
Hi Evad,
Try this macro (on a backup copy first)... Public Sub EightRowsTween() Application.ScreenUpdating = False Dim iLastRow As Long Dim rngLastRow As Range iLastRow = ActiveSheet.UsedRange.Rows.Count Do While iLastRow 1 Set rngLastRow = Range(Cells(iLastRow, 1), _ Cells(iLastRow + 7, 1)) rngLastRow.EntireRow.Insert iLastRow = iLastRow - 1 Loop End Sub If you ever need to insert a different number of rows between all records you can change the 7 in the 5th last line eg for 5 rows between records change the 7 to 4 (always 1 less than the number of inserted rows) Ken Johnson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I delete blank rows from excel without selecting them? | Excel Worksheet Functions | |||
Insert rows based on specific value | Excel Worksheet Functions | |||
program excel worksheet to automatically not print blank rows | Excel Worksheet Functions | |||
Activate a macro to insert a row and copy the formuals from the rows above to the blank row | Excel Discussion (Misc queries) | |||
Inserting Blank Rows Macro? | Excel Worksheet Functions |