VBA Macro to autofill rows

dnguyen72 · #1 (**permalink**) 11-08-07, 05:10

Hello,

Wondering if anyone has some VBA codes that could do the following automatically:

I have a spreadsheet with approx 250 unique rows of data. I need to insert 30 rows and fill in those rows with the same information for each of the 250 rows. For example:

current data is

1 CG CA Grain 5.5 35368.4
1 CC CA Coal 8 54418.4
...........

need to do the following:

1 CG CA Grain 5.5 35368.4
1 CG CA Grain 5.5 35368.4
...30 times...

then start on the new row...

1 CC CA Coal 8 54418.4
1 CC CA Coal 8 54418.4
...30 times...

and so on...

Anything to help automate this process would be much appreciated.

Thanks in advance for your help.
David

myle · #2 (**permalink**) 11-09-07, 01:12

the base way I leant was record a macro doing the job
then look @ the code and tweak it

norie · #3 (**permalink**) 11-10-07, 12:02

David

You don't say where this data is located but you could try something like this.

Code:

Sub Do30()
Dim rng As Range
    
    Set rng = Range("A1")
    While rng.Value <> ""
        rng.EntireRow.Copy
        rng.Offset(1).Resize(29).Insert
        Set rng = rng.Offset(30)
    Wend
    Application.CutCopyMode = False
    
End Sub

Internet Services

Web Development

Digital Marketing

Consumer Tech