Duplicate rows based on a value in a column

[aevillaco]

Hello, All!

I have a worksheet with three columns and a few hundred lines. The first two have headings (Team and Group) and the third (Count) has integers indicating how many times the row needs to be copied to another worksheet or text file. (Please see below and the attached file)

I tried to follow along and modify with some of the VBA code I saw posted in another thread, but couldn't get it to work. If it helps, see thread here: http://excel.bigresource.com/Track/excel-1Nmg4FVe/

I'm new to VBA/macro and any help would be greatly appreciated! Thanks very much!

Source Data
Team, Group, Count
Red_Team, Group_1, 3
Red_Team, Group_1, 1
Red_Team, Group_2, 2
Red_Team, Group_2, 1
Red_Team, Group_3, 4
Blue_Team, Group_1, 1
Blue_Team, Group_2, 1
Blue_Team, Group_2, 1
Blue_Team, Group_3, 4
Green_Team, Group_2, 2
Green_Team, Group_1, 1
Green_Team, Group_3, 2
Gray_Team, Group_1, 1
Gray_Team, Group_2, 2
Gray_Team, Group_1, 2
Gray_Team, Group_3, 1
Gray_Team, Group_3, 4

Result
Team, Group, Count
Red_Team, Group_1, 1
Red_Team, Group_1, 1
Red_Team, Group_1, 1
Red_Team, Group_1, 1
Red_Team, Group_2, 1
Red_Team, Group_2, 1
Red_Team, Group_2, 1
Red_Team, Group_3, 1
Red_Team, Group_3, 1
Red_Team, Group_3, 1
Red_Team, Group_3, 1
Blue_Team, Group_1, 1
Blue_Team, Group_2, 1
Blue_Team, Group_2, 1
Blue_Team, Group_3, 1
Blue_Team, Group_3, 1
Blue_Team, Group_3, 1
Blue_Team, Group_3, 1
Green_Team, Group_2, 1
Green_Team, Group_2, 1
Green_Team, Group_1, 1
Green_Team, Group_3, 1
Green_Team, Group_3, 1
Gray_Team, Group_1, 1
Gray_Team, Group_2, 1
Gray_Team, Group_2, 1
Gray_Team, Group_1, 1
Gray_Team, Group_1, 1
Gray_Team, Group_3, 1
Gray_Team, Group_3, 1
Gray_Team, Group_3, 1
Gray_Team, Group_3, 1
Gray_Team, Group_3, 1

[MarvinP]

Hi aevillaco and welcome to the forum,

See the attached with the following VBA inserted and ready to run
The code looks like:

Please Login or Register  to view this content.

You will need to remove the results below your source data before running the code to make it work correctly.

[abousetta]

Maybe another approach. Not sure where you wanted the rows to be copied so I assumed from the first sheet the second sheet.

Please Login or Register  to view this content.

abousetta

[abousetta]

I have trimmed the code down a bit.

Have a look and let me know if this fulfills your requirements:

Please Login or Register  to view this content.

abousetta

[watersev]

hi, aevillaco, please check attachment, run code "test"

[aevillaco]

Wow, you all were great and super fast! I appreciate very much all your help and advice. The different ways to make it work were also interesting. Thanks for jump starting my VBA education! Cheers!