Inserting Rows....in large spreadsheet (part 1)

[IGinc]

Tackling a project......ill keep my questions seperate (as i have another question related to this spreadsheet)

on to the question..

.... I have an excel spreadsheet from a Vendor with 1000+ rows of data. What Id like to/need to accomplish is insert 24 rows in between each row of exisiting data. With my limited knowledge, I only know how to Copy and paste, this could take forever.....thanks in advance...

 

[VoG]

Hello and welcome to MrExcel.

Press ALT + F11 to open the Visual Basic Editor, Insert > Module and paste in

Sub InsRows()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 2 Step -1
    Range("A" & i).Resize(24).EntireRow.Insert
Next i
Application.ScreenUpdating = True
End Sub

Press ALT + Q to return to your sheet, Tools > Macro > Macros, click on InsRows then click the Run button.

 

[IGinc]

Thanks for the warm welcome and quick response. Is there a way to alter the code to have 539 be the first line that is spaced 24 lines...i had already started the project.

 

[VoG]

Try

Sub InsRows()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 539 Step -1
    Range("A" & i).Resize(24).EntireRow.Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[IGinc]

Re: Filling down....in large spreadsheet (part 2)

worked like a charm. =).

Part 2...

Fill O:AA Down 24 rows which were created, 25th row, 0:AA fill down the next 24, and so on???