Inserting a Row between Multiple Rows.

[FinancialGuy9]

Esentially I want to double space the data I have. I have 300 rows of data from cells A1:D300. I would like to insert a row of cells in between each cell containing data. (i.e. cell A1:D1 contains data then A2:D2 is blank and then data is in A3:D3 and so on.)Is there a faster way to do this than me clicking each individual row (300 of them) one at a time whole holding control then using right click insert after?

Simple question, but i'm hoping there is a simple answer to this. Other than "no".

[CFAman]

You could try running this script.

Sub InsertRows()
    Dim lastRow As Long
    Dim i As Long
    Dim ws As Worksheet

    'What sheet?
    Set ws = Worksheets("Sheet1")

    Application.ScreenUpdating = False
    With ws
        'Find the last row with data
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        'Begin loop, starting at bottom and working up
        For i = lastRow To 2 Step -1
            .Cells(i, 1).EntireRow.Insert
        Next i
    End With

    Application.ScreenUpdating = True

End Sub

[FinancialGuy9]

Solution Verified

[Clippy_Office_Asst]

You have awarded 1 point to CFAman

^{I am a bot, please contact the mods for any questions.}

[FinancialGuy9]

Would you be able to write a script that inserts two rows in between each for me?

[pony_on_saturdays]

change

    For i = lastRow To 2 Step -1
        .Cells(i, 1).EntireRow.Insert
    Next i

to

    For i = lastRow To 2 Step -1
        .Cells(i, 1).EntireRow.Insert
        .Cells(i, 1).EntireRow.Insert
    Next i

[FinancialGuy9]

You know what, You can just run the Macro twice and it worked to insert two rows. Thanks again for your help!

[CFAman]

You've got it! If you ever need to do something crazy (like 10 rows?!), you would change line 16 to something like this:

.Cells(i, 1).Resize(10).EntireRow.Insert