Buona giornata, Martina;
come promesso, Ti propongo il seguente codice; non è molto "elegante" ma, per il momento, è questo:
Sub prova()
Dim y As Byte, w As Byte
Dim x As Integer
Dim Anni(4, 600) As String
Application.ScreenUpdating = False
w = 2
For x = 1 To 600 Step 4
Anni(1, x) = Cells(w, 1) & "2008"
Anni(1, x + 1) = Cells(w, 1) & "2009"
Anni(1, x + 2) = Cells(w, 1) & "2010"
Anni(1, x + 3) = Cells(w, 1) & "2011"
w = w + 1
Next x
w = 2
For x = 1 To 600 Step 4
Anni(2, x) = Cells(w, 2)
Anni(2, x + 1) = Cells(w, 3)
Anni(2, x + 2) = Cells(w, 4)
Anni(2, x + 3) = Cells(w, 5)
Anni(3, x) = Cells(w, 6)
Anni(3, x + 1) = Cells(w, 7)
Anni(3, x + 2) = Cells(w, 8)
Anni(3, x + 3) = Cells(w, 9)
Anni(4, x) = Cells(w, 10)
Anni(4, x + 1) = Cells(w, 11)
Anni(4, x + 2) = Cells(w, 12)
Anni(4, x + 3) = Cells(w, 13)
w = w + 1
Next x
Sheets("Foglio2").Select
Cells.ClearContents
Range("A1") = "Azienda Anno"
Range("B1") = "Var 1-Azienda-Anno "
Range("C1") = "Var 2-Azienda-Anno "
Range("D1") = "Var 3-Azienda-Anno "
For x = 1 To 600
For y = 1 To 4
Cells(x + 1, y) = Anni(y, x)
Cells(x + 1, y) = Anni(y, x)
Cells(x + 1, y) = Anni(y, x)
Cells(x + 1, y) = Anni(y, x)
Next y
Next x
Application.ScreenUpdating = True
Range("E2").Select
End Sub
il risultato sarà questo:
Azienda Anno Var1-Azienda-Anno Var2-Azienda-Anno Var3-Azienda-Anno
A2008 Var1- A -2008 Var2- A -2008 Var3- A -2008
A2009 Var1- A -2009 Var2- A -2009 Var3- A -2009
A2010 Var1- A -2010 Var2- A -2010 Var3- A -2010
A2011 Var1- A -2011 Var2- A -2011 Var3- A -2011
B2008 Var1- B -2008 Var2- B -2008 Var3- B -2008
B2009 Var1- B -2009 Var2- B -2009 Var3- B -2009
B2010 Var1- B -2010 Var2- B -2010 Var3- B -2010
B2011 Var1- B -2011 Var2- B -2011 Var3- B -2011
.
.
.
DS2008 Var1- DS -2008 Var2- DS -2008 Var3- DS -2008
DS2009 Var1- DS -2009 Var2- DS -2009 Var3- DS -2009
DS2010 Var1- DS -2010 Var2- DS -2010 Var3- DS -2010
DS2011 Var1- DS -2011 Var2- DS -2011 Var3- DS -2011
DT2008 Var1- DT -2008 Var2- DT -2008 Var3- DT -2008
DT2009 Var1- DT -2009 Var2- DT -2009 Var3- DT -2009
DT2010 Var1- DT -2010 Var2- DT -2010 Var3- DT -2010
DT2011 Var1- DT -2011 Var2- DT -2011 Var3- DT -2011
Non conscendo i valori di Var1,Var2 e Var3, ho dichiarato la matrice come String; nel caso in cui siano valori numerici, e debbano essere elaborati come tali, puoi dichiarare la matrice semplicemente come Dim Anni(4, 600).
Avrei preferito evitare di incrementare le variabili (x + 1, x + 2 ...) ma avrei dovuto aggiungere almeno una variabile.
A disposizione.
Buona giornata e buon lavoro.
Giuseppe