Insert Rows between each row

[Narasimhan19]

I have data like this

Arjun
Balaram
Christopher
Dinesan
Elangovan

I need to insert a row between each row and I want to make above as:

Arjun
{Blank row}
Balaram
{Blank row}
Christopher
{Blank row}
Dinesan
{Blank row}
Elangovan
{Blank row}

How can I do?

thanks,
Narasimha

 

[Frank Kabel]

Hi
try:
Sub insert_rows()
Dim lastrow As Long
Dim row_index As Long

lastrow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).row
For row_index = lastrow - 1 To 1 Step -1
rows(row_index).Insert (xlShiftDown)
Next
End Sub

 

[Gord Dibben]

Do you really need the blank rows?

If for appearance only, format the rows to double the height.

Blank rows could create problems later with sorting, filtering and other
functions.

Gord Dibben Excel MVP