Ordinamento archivio

[Letizia82]

Ciao a Tutti, sono nuova del forum purtroppo non sono molto esperta di Excel 2003 e spero che possiate aiutarmi.
Ho un file di 5 colonne e 9000 righe, avrei bisogno di copiare 18 gruppi di 5 celle in una riga, in sequenza come sono scritti quindi nella riga 1 ci dovranno essere in sequenza: a1,b1,c1,d1,e1,.....,a18,b18,c18,d18,e18.
Nella riga 2: a19,b19,c19,d19,e19,.....,a36,b36,c36,d36,e36.
E cosi' per le altre righe, spero di essere riuscita a spiegarmi.
E' una modifica che si puo' fare con il taglia e incolla, ma con 9000 righe diventa una cosa da suicidio, forse con una macro si puo' fare ma io non sono in grado. Grazie per il tempo che potrete dedicarmi.

[Anthony47]

Intanto benvenuto nel forum...

Per quello che chiedi potrebbe servire una macro come questa:

Codice: Seleziona tutto

Sub Five18()
Dim DeSh As Worksheet, I As Long, J As Long, myNext As Long
'
Set DeSh = ThisWorkbook.Sheets("Foglio22")           '<<< Il foglio in cui sara' costruito il nuovo elenco
'
DeSh.Range("A1").Resize(10000, 90).ClearContents
For I = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 18
    myNext = myNext + 1
    For J = 1 To 18
        DeSh.Cells(myNext, J * 5 - 4).Resize(1, 5).Value = Cells(I + J - 1, 1).Resize(1, 5).Value
    Next J
Next I
MsgBox ("Completato...")
End Sub


Il codice va copiato in un "Modulo standard" del tuo vba (vedi viewtopic.php?f=26&t=103893&p=647675#p647675); la riga marcata <<< va personalizzata col nome del foglio su cui vuoi costrire la nuova tabella.

Poi selezioni il foglio con la tua tabella di partenza e lanci la macro Five18 (vedi viewtopic.php?f=26&t=103893&p=647678#p647678)

Fai sapere...

[Letizia82]

Anthony47 grazie per la risposta veloce, la macro e' perfetta! Mi hai risparmiato un sacco di lavoro...grazie!