Copy + Paste a bunch of times!

[amwilber]

Hello,
How would I copy and paste a selection a bunch of times on a given interval.

Example:

I have an excel file that has a value in it, like building 1. There are then 4 spaces after that text in the excel file. I need to copy the value "building 1" and paste it into cells A2-A5. Then, copy value A6 (Building 2) and paste it into A7-A10....then repeat for thousands of rows. How do I do this?


Building 1



Building 2



Building 3

 

[Fluff]

How about

Sub Filldown()

    Dim cnt As Long
    
    For cnt = 1 To Range("A" & Rows.Count).End(xlUp).Row + 4 Step 5
        Range("A" & cnt).Resize(5) = Range("A" & cnt).Value
    Next cnt

End Sub

 

[amwilber]

That doesn't seem to do anything...do I need to alter that code to fit somehow?

Thank you for the help!

 

[wideboydixon]

Fluff's code assumes it's always 4 blanks between entries; is that right? If not, this would probably work (untested):

Public Sub CopyPasteBunchOfTimes()

Dim lastRow As Long
Dim thisRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For thisRow = 2 To lastRow
    If Trim$(Cells(thisRow, 1).Value) = "" Then Cells(thisRow, 1).Value = Cells(thisRow - 1, 1).Value
Next thisRow

End Sub

WBD

 

[amwilber]

That code looked like it worked, how do I apply this then across multiple columns? I ran it, but i am not seeing where I would alter this to run across column B for example?

Thanks so much!

 

[amwilber]

Never Mind, I just figured it out, thank you both for your assistance!