daviluc61
00domenica 15 ottobre 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
patel45
00domenica 15 ottobre 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
daviluc61
00domenica 15 ottobre 2017 19:43
gentilissimo, funziona alla grande. grazie