Come copiare ed incollare una colonna di dati almeno 1000 volte

Buon pomeriggio, avrei bisogno di un aiutino 😊
Come potete vedere nel file in allegato ho registrato una macro che copia la colonna C10:C1009 e la incolla in D10, E10, F10, G10, H10, I10, L10, M10, N10, O10 ed infine P10 creando così 10 nuove colonne di dati.
Il problema è che di colonne di dati me ne servirebbero almeno 1000 ed ho difficoltà a creare un loop. Potrei al massimo inserire a mano nuove righe di codice aggiungendone altre a quelle che leggo nel codice della macro ma arrivare a 1000 però...
P.S.Sarebbe comodissimo poter decidere quante nuove colonne di dati creare, inserendo per esempio tale numero nella cella I2

Grazie a tutti

Ciao Melissa

Potresti usare un ciclo Do While ed una variabile contatore che si incrementa di 1 ad ogni step del ciclo.

Più o meno una cosa del gene



Cerca su Internet il ciclo Do While e troverai molti esempi sul suo utilizzo.

alfrimpa, 13/10/2019 13.57:

---

Ciao Melissa

Potresti usare un ciclo Do While ed una variabile contatore che si incrementa di 1 ad ogni step del ciclo.

Più o meno una cosa del gene

vb

Do While miaVar = 1000
.......codice
miaVar = miaVar + 1
Loop

Cerca su Internet il ciclo Do While e troverai molti esempi sul suo utilizzo.

---

Grazie Alfredo, lo studio subito!

ciao
potresti anche usare questa semplice sub()

---

Sub copyandpastecolonne()
Dim i As Long, Ncol As Long
Ncol = Range("I2")
Range("C10:C" & Cells(Rows.Count, "C").End(xlUp).Row).Copy
For i = 4 To Ncol + 3
Cells(10, i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
Application.CutCopyMode = False
Range("C9").Select
End Sub

---

locatevaresino, 13/10/2019 14.27:

---

ciao
potresti anche usare questa semplice sub()

---

WoooooW! Fa esattamente ciò che desideravo!
Grazie infinite Locatevaresino!!!🙏🎁