Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Macro per trasporre dati

Ultimo Aggiornamento: 15/10/2017 19:43
Post: 6
Registrato il: 27/07/2017
Città: BARLETTA
Età: 62
Utente Junior
2016
OFFLINE
15/10/2017 14:08

Avrei necessità di creare una macro per ordinare dai con il trasponi. Come da esempio allegato, ci sono una serie di nomi dalla colonna A alla colonna E. Avrei necessità di trasporre i dati A1:E1 nella colonna G incollandoli nella prima riga vuota in G e sequenzialmente i dati degli intervalli a scendere (A2:E2; A3:E3; A4;E4; A5:E5; A6:E6; A7;E7; A8:E8; A9:E9) fino a un numero di riga prestabilito (diciamo 2000, quindi fino all'intervallo A2000:E2000). Spero di essere stato chiaro
Post: 3.966
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
15/10/2017 15:42

Sub a()
LR = ActiveSheet.UsedRange.Rows.Count
dr = 1
For r = 1 To LR
  Range("A" & r & ":E" & r).Copy
  Cells(dr, "G").PasteSpecial Transpose:=True
  dr = dr + 5
Next
End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 6
Registrato il: 27/07/2017
Città: BARLETTA
Età: 62
Utente Junior
2016
OFFLINE
15/10/2017 19:43

gentilissimo, funziona alla grande. grazie
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05:10. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com