| | Post: 1 | Registrato il: 13/11/2016
| Città: MILANO | Età: 36 | Utente Junior | excel 2013 | | OFFLINE | |
|
  14/11/2016 08:52 | |
Buonasera a tutti. Ho una lista di codici fiscali, devo aggiungere sotto ciascun codice fiscale altre 5 righe che contengano nelle celle di colonna A il codice fiscale. Di fatto devo replicare 5 righe sottostanti ciascun codice fiscale con il codice fiscale stesso. Grazie molte per il vostro aiuto. [Modificato da EmanueleMilano 14/11/2016 09:25] |
|
| | Post: 3.453 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 14/11/2016 10:17 | |
allega un file di esempio con i dati ed il risultato desiderato
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 1 | Registrato il: 13/11/2016
| Città: MILANO | Età: 36 | Utente Junior | excel 2013 | | OFFLINE | |
|
| 14/11/2016 11:09 | |
Buongiorno,
ecco in allegato il file di esempio. Nel foglio 1 la lista dei codici fiscali, nel foglio 2 quello che vorrei ottenere.
Grazie molte per l'aiuto.
|
| | Post: 3.454 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 14/11/2016 13:24 | |
Sub addrow()
LR = Cells(Rows.Count, "A").End(xlUp).Row
vrows = 5
r = 2
While Cells(r, "A") <> ""
Cells(r, "A").Select
Selection.Offset(1, 0).Resize(rowsize:=vrows).Insert Shift:=xlDown
Selection.AutoFill Selection.Resize(rowsize:=vrows + 1), 1
r = r + vrows + 1
Wend
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 2 | Registrato il: 13/11/2016
| Città: MILANO | Età: 36 | Utente Junior | excel 2013 | | OFFLINE | |
|
| 14/11/2016 14:45 | |
grazie Mille!
funziona alla perfezione, ho semplicemente aumentato di 1 il counter perché in realtà volevo aggiungere 6 righe e non 5.
Devo mettermi a studiare meglio VBA, davvero molto utile! |
|
|
|
|