Previous page | 1 | Next page
Facebook  

Macro per aggiungere 4 righe ogni riga mantenedo gli stessi valori della prima

Last Update: 6/27/2019 6:46 PM
Author
Print | Email Notification    
Post: 2
Registered in: 6/27/2019
Location: CAMPI BISENZIO
Age: 24
Junior User
excel 2016
OFFLINE
6/27/2019 2:59 PM
 
Modify
 
Delete
 
Quote

Ciao a tutti, mi sono iscritta da poco perchè ho alcuni problemi da risolvere con i miei dati su excel. In pratica sto cercando una macro che mi permetta di aggiungere automaticamente quattro righe per ogni riga (tranne la prima), copiando esattamente ciò che c'è scritto nella prima riga. Faccio un esempio semplificato di quello che ho:

Temperatura Pressione
12 1021
10 1019
11.5 1023.2

Io vorrei ottenere questo:

Temperatura Pressione
12 1021
12 1021
12 1021
12 1021
12 1021
10 1019
10 1019
10 1019
10 1019
10 1019
11.5 1023.5
11.5 1023.5
11.5 1023.5
11.5 1023.5
11.5 1023.5

Ho 5 file ognuno con circa 5000 dati e mi sta esasperando farlo a mano 🙈. Spero possiate aiutarmi, grazie!🙏
Excel 365: stesso valore in colonna in righe diverserighe7/30/2019 10:35 AM by Gio67.67
Macro per salvare in pdfmacro8/2/2019 8:48 PM by GiuseppeMN
I disassociati vengono licenziati ?Testimoni di Geova Online...per8/22/2019 11:50 AM by Anonimo
Post: 2,295
Registered in: 4/6/2013
Location: ROMA
Age: 71
Veteran User
2010
OFFLINE
6/27/2019 3:42 PM
 
Modify
 
Delete
 
Quote

ciao
dati a partire da riga 1:

ripeti = 4
For j = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
Rows(j).Copy
Rows(j).Resize(ripeti).Insert
Next

edit: se in riga 1 hai intestazioni:

....To 2 Step -1

saluti



[Edited by dodo47 6/27/2019 5:11 PM]
Domenico
Win 10 - Excel 2016
Post: 2
Registered in: 6/27/2019
Location: CAMPI BISENZIO
Age: 24
Junior User
excel 2016
OFFLINE
6/27/2019 6:46 PM
 
Modify
 
Delete
 
Quote

dodo47, 27/06/2019 15.42:

ciao
dati a partire da riga 1:

ripeti = 4
For j = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
Rows(j).Copy
Rows(j).Resize(ripeti).Insert
Next

edit: se in riga 1 hai intestazioni:

....To 2 Step -1

saluti






Ho appena provato e funziona! Ti ringrazio tantissimo mi sei stato di grande aiuto!!😊
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 11:52 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com