Excel: macro per copiare ogni valore di un elenco 33 volte

[valle1975]

Salve, dato un elenco di articoli posti nella colonna A del foglio 1, devo creare un elenco che contenga tutti questi articoli (sempre nella stessa colonna, es. B), ma ripetuti 33 volte.
ADESSO
art1
art2
art3

DOPO
art1
art1
......(33 ripetizioni)
art2
art2
......(33 ripetizioni)

Ho cercato, ma con la funzione RIPETI mi riporta quei valori nella stessa cella, mentre a me serve creare un elenco in celle diverse.
Grazie a tutti. Ciao.

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub Ripeti()
URA = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Columns("B:B").ClearContents
If URA = 1 Then Exit Sub
For RR = 2 To URA
    Art = Worksheets("Foglio1").Range("A" & RR).Value
    For I = 1 To 33
        Worksheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Art
    Next I
Next RR
End Sub

Ciao

[valle1975]

Grazie mille... Fantastica soluzione...
Semplicemente Perfetta!!
ciao ciaoo

[pistri]

Il difficile...diventa facile!

Per chi non le conosce, resta comunque difficile capire le macro. Peccato perchè si aprirebbe un mondo.

[Flash30005]

Peccato perchè si aprirebbe un mondo

Si potrebbero aprire diversi mondi se si usasse la cognizione, il buonsenso e la volontà a migliorare ogni situazione, ogni posto di lavoro, automatizzando quanto più è possibile (e si può!),
rendere snella ogni situazione avendo come obiettivo finale minor lavoro di routine per ognuno e impiego del tempo risparmiato da dedicare allo studio di nuove iniziative atte a migliorare "l'ambiente" intorno a sé, aiutando i propri collaboratori nel loro lavoro innescando così una catena di solidarietà che ha un unico fine: vivere meglio tutti per preparare un futuro alle generazioni che verranno.

La filosofia dei Forum (con la F maiuscola), come realtà virtuale, mira proprio a questo
come tutti coloro che si adoperano a dare un contributo, nei Forum, impegnando il loro tempo nella risoluzione dei problemi in maniera del tutto disinteressata operano per raggiungere questo obiettivo.