Adding Duplicates In Excel

[Rubicks13]

Hi all,

I have a spreadsheet about 300 rows deep with different titles of books. I want to duplicate these so that each title is shown 13 times for each book.

Example:

American Indian Tribal Law is row one on the speadsheet, I want to see it like this:

American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law

So for every title (300) it would appear 13 times so i would ultimately have 3,900 rows when all said and done.

Thanks for any help!
CUBE

 

[kpark91]

It would be your best interest to try a VBA code.
Just right click on your sheet tab and press view code and copy and paste onto the page.

Sub Copy13()
    Dim LR As Double, i As Double, count As Double, j As Double
    LR = Range("A" & Rows.Count).End(xlUp).Row
    count = 1
    For i = 1 To LR
        For j = 1 To 13
        Range("B" & count).Value = Range("A" & i).Value
        count = count + 1
        Next j
    Next i
End Sub

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG31May25
[COLOR="Navy"]Dim[/COLOR] Lst [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer,[/COLOR] n, temp, Rng [COLOR="Navy"]As[/COLOR] Range
Lst = Range("A" & rows.Count).End(xlUp).row
[COLOR="Navy"]For[/COLOR] n = Lst To 1 [COLOR="Navy"]Step[/COLOR] -1
    temp = Range("A" & n)
        [COLOR="Navy"]Set[/COLOR] Rng = Range("A" & n).Resize(12)
            Rng.EntireRow.Insert
                Rng.Offset(-Rng.Count).Resize(Rng.Count) = temp
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Rubicks13]

Brilliant! This worked out great! Thanks to the both of you.

CUBE