invertire i dati in excel

[Blueknave7]

forse il titolo non è adatto, ma non so cosa mettere
devi cambiare i dati di un foglio excel ordinato in righe in colonne.
ho provato con delle formule semplici che mi riportino i dati dal foglio 1 al foglio 2 ma ci vuole troppo tempo visto che non mi prende tutti i dati... forse è meglio che mi spieghi con un esempio

io ho questo

nome antonio
cognome de blasio
nato il 01/01/10

voglio
nome cognome nato il
antonio de blasio 01/01/10

quindi mi dovrebbe prendere per la colonna 1 il valore che si trova nella riga 1-4-7-
nella colonna 2 i valori 2-5-8.... e nella colonna 3 i valori 3-6-9-....

come posso risolvere?
vi ringrazio

[nicola75ss]

Supponendo che il tuo elenco di voci si trovi nella colonna A del tuo foglio, con questa sub i nomi verranno spostati nella colonna B, i cognomi nella colonna C e le date di nascita nella colonna D.
Facci sapere.

Sub trasponi()
ultimariga = ActiveSheet.UsedRange.Rows.Count
riga = 1
For i = 1 To ultimariga
If i Mod 3 = 1 Then
ActiveSheet.Cells(riga, 2).Value = Cells(i, 1)
ElseIf i Mod 3 = 2 Then
ActiveSheet.Cells(riga, 3).Value = Cells(i, 1)
Else
ActiveSheet.Cells(riga, 4).Value = Cells(i, 1)
ActiveSheet.Cells(riga, 4).NumberFormat = "m/d/yyyy"
riga = riga + 1
End If
Next i
End Sub

[Blueknave7]

molto gentile, grazie