| | Post: 31 | Registrato il: 13/08/2015
| Città: COMO | Età: 60 | Utente Junior | excel 2016 | | OFFLINE |
|
14/08/2019 23:40 | |
Ciao,
un'alternativa:
Sub ripeti()
Dim myArray As Variant
Dim uR&, x&, r&, j%
uR = Foglio1.Cells(Rows.Count, 1).End(xlUp).Row
x = 1
For r = 1 To uR
myArray = Foglio1.Cells(r, 1).Resize(, 3)
For j = 1 To Foglio1.Cells(r, 4)
Foglio2.Cells(x, 1).Resize(, 3) = myArray
x = x + 1
Next j
Next r
End Sub |
|
|