Repeat adding rows

[basicjohn]

Hi All,

I have an excel sheet as follows :
a b
1Supp1 Code1
2Supp2 Code2

This is repeated for 1000 rows. Now question is how do I add 3 empty rows for each supplier line until the end of the supplier line by using Macro ?

Meaning results should be as follows :
a b
1Supp1 Code1
2
3
4
5Supp2 Code2
6
7
8
9Supp3 Code3

Hope to hear from you all soon.

Cheers for now.

 

[daniels012]

The very best thing you can do is download Andrews utilities at this website:

http://www.andrewsexceltips.com/my_utilities.htm

It has a command under the Utilities sheets menu item pick #9. Insert Rows at intervals

Michael

 

[Tazguy37]

Or how about:

For iRow = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        Rows(iRow).Resize(3).Insert
    Next

Hope that helps!

EDIT: Typo

 

[basicjohn]

Thank you very much

Noted the tools and it work very well, and also for the macro that was given by Taz was also wonderful....

Keep up the good work guys ....