Ciao ragazzi!

Ho un file esportato da un vecchio DB dBase con una serie di dati.
Purtroppo chi aveva impostato il file aveva inserito i dati in un unico campo, quindi mi ritrovo un'unica cella che contiene questa sfilza di numeri.
Avrei bisogno di una macro che mi permetta di spostare ogni singola cifra della cella i celle distinte. Un'immagine vale più di mille parole:



Inoltre avrei bisogno che nella prima riga del foglio sia un'intestazione come quella dell'esempio, con indici via via crescenti. Ogni cinque celle si aumenta l'indice appena dopo Q:

Q1_1
Q1_2
Q1_3
Q1_4
Q1_5

Q2_1
Q2_2
Q2_3
Q2_4
Q2_5

Q3_1
Q3_2
Q3_3
Q3_4
Q3_5

.....

il file matrice è questo: matrice risposte.xls

E' possibile fare la cosa?

Grazie
Simone

salve
nella speranza che la tabella non sia enorme, prova quetso codice

Sub Prova()
Sheets("foglio2").Select
riga = 2
col = 1
For n = 1 To 20
For i = 1 To 5
Cells(1, col).Value = "G" & n & "-" & i
col = col + 1
Next i
Next n
With Sheets("foglio1")
Set area = Range(.Range("B2"), .Range("B2").End(xlDown))
End With
For Each cl In area
For x = 1 To Len(cl)
Cells(riga, x).Value = Mid(cl.Value, x, 1)
Next x
riga = riga + 1
Next cl
Set area = Nothing
End Sub

saluti
Giap

---