Menu
  1. Accueil
  2. Tech Forum
  3. Office Software
  4. Excel

Macro for inserting multiple rows between data [Closed]

Report
-
Posts
2631
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
July 6, 2020
 -
Hello,

I need a macro that will insert 45 new blank rows between each existing row that I have now. can someone help me with this? Also, I have little knowledge of VBA so a step by step of what I need to do would be super helpful! Thank you in advance!!

See more
Related:

1 reply

Answer 1 / 1
Posts
2631
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
July 6, 2020
 428
Hi vba dummy,

Assuming that there are no empty rows between the data you have and a row of data always has something in column A, try this code: 
Sub RunMe()
Dim x As Integer

x = 2

Do
    Rows(x).Resize(45).Insert
    x = x + 46
Loop Until IsEmpty(Cells(x, "A"))
End Sub


How to implement and run a code:

- From Excel hit Alt + F11 to open the “Microsoft Visual Basic” window.
- Go to the top menu in the newly opened window > Insert > Module.
- Paste the code in the big white field.
- You can now close this window.
- Back at Excel, hit Alt + F8 to display the available macro’s.
- Double-click the macro you wish to run.
NOTE: macro’s cannot be reversed using the blue arrows. Always make sure you save your file before running a code, so you can re-open your file if something unforeseen happens or you want to go back to the situation before the code was run.

Best regards,
Trowa
Ask a question