Need Help for Adding Blank Rows after every Row (SOLVED)

[inbp]

Hi all respected!


hope you are fine and enjoying happy life.


i have to work with a file of has 500-1000 rows. after every row i need to enter blank row. can you people guide is their any short trick VBA or Formula.


Below is the link


https://www.dropbox.com/s/f4kfmwdhtz8u6kb/Enter%20Row.xlsx

 

[inbp]

Thank you for reading i have got the solution here


http://en.kioskea.net/faq/7908-excel-a-macro-to-insert-blank-rows

 

[Debraj]

In case if you need non-VBA solution.


* Insert a Blank Column.. Lets Say A.

* Write 1,2,3.. in all filled cell. (Use Fill Series) let say till 58.

* Copy 1 to 58.

* paste just below 58.

* Now sort by A Column.

* it will looks like..

[pre]

1    Filled Data
1
2    Filled Data
2
...

[/pre]
* Now delete Column A.


Regards,

Deb

 

[inbp]

thank you deb, it is also awesome.

 

[shrivallabha]

You can also record Deb's suggestion and then modify it to make a custom macro.

Or you can work out a macro like this:

[pre]

Public Sub AddRows()
Dim intSize As Integer
intSize = Application.InputBox("Enter number of rows", "Insert Rows", Type:=1)
If intSize > 0 Then
Application.ScreenUpdating = False
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
Range("A" & i).Resize(intSize, 1).EntireRow.Insert xlDown
Next i
Application.ScreenUpdating = True
End If
End Sub

[/pre]