Paste each cell 12 times

[ivazu]

Hi

I have list of accounts and I need each account to be pasted 12 times.

So I need to transform Column A into Column B. I have 1600 accounts so I was really hoping not to do this manually )

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub ivazu()
   Dim Cl As Range
   
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      Cl.Copy Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1 * 12)
   Next Cl
End Sub

 

[FormR]

Or if you wanted a formula, you could try in B1 copied down - for example:

=INDEX($A$1:$A$1600,1+INT((ROWS(B$1:B1)-1)/12))

 

[steve the fish]

Hi, an alternative since i had written it.

Dim sh As Worksheet, lr As Double, arr, arr2, i As Double, j As Double, a As Double

Set sh = Sheets("Sheet1")
With sh
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    arr = .Range("A1:A" & lr)
    ReDim arr2(1 To lr * 12)
    .Columns("B").ClearContents
    For i = 1 To lr
        For j = 1 To 12
            arr2(j + a) = arr(i, 1)
        Next
        a = a + 12
    Next
    .Range("B1").Resize(UBound(arr2)) = Application.Transpose(arr2)
End With

 

[Fluff]

Cross posted https://www.excelforum.com/excel-formulas-and-functions/1275819-how-to-paste-each-cell-12-times.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.