Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ordinamento archivio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ordinamento archivio

Postdi Letizia82 » 10/11/19 16:57

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.
Letizia82
Newbie
 
Post: 2
Iscritto il: 10/11/19 10:34

Sponsor
 

Re: Ordinamento archivio

Postdi Anthony47 » 10/11/19 17:52

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...
Avatar utente
Anthony47
Moderatore
 
Post: 16576
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Ordinamento archivio

Postdi Letizia82 » 11/11/19 16:39

Anthony47 grazie per la risposta veloce, la macro e' perfetta! Mi hai risparmiato un sacco di lavoro...grazie!
Letizia82
Newbie
 
Post: 2
Iscritto il: 10/11/19 10:34


Torna a Applicazioni Office Windows


Topic correlati a "Ordinamento archivio":


Chi c’è in linea

Visitano il forum: Nessuno e 22 ospiti