Excel Macro to insert rows in a list
I'm sure this has been asked in the past but I couldn't find it in the list of replies. I need a macro to skip down a number (usually 5. sometimes 3 in different spreadsheets) then insert a blank row. it needs to continue until it reaches the end of the list (anywhere from 100 to 3000 lines). I could do this in Lotus years ago but I'm lost in Excel... Thanks for any help you can provide -- MartyCole ------------------------------------------------------------------------ MartyCole's Profile: http://www.msusenet.com/member.php?userid=1217 View this thread: http://www.msusenet.com/t-1870429758 |
Dim iLastRow As Long
Dim i As Long Const nRows As Long = 5 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = (iLastRow \ nRows) * nRows + 1 To 1 Step -nRows Rows(i).Insert Next i -- HTH RP (remove nothere from the email address if mailing direct) "MartyCole" wrote in message ... I'm sure this has been asked in the past but I couldn't find it in the list of replies. I need a macro to skip down a number (usually 5. sometimes 3 in different spreadsheets) then insert a blank row. it needs to continue until it reaches the end of the list (anywhere from 100 to 3000 lines). I could do this in Lotus years ago but I'm lost in Excel... Thanks for any help you can provide -- MartyCole ------------------------------------------------------------------------ MartyCole's Profile: http://www.msusenet.com/member.php?userid=1217 View this thread: http://www.msusenet.com/t-1870429758 |
All times are GMT +1. The time now is 06:09 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com