Unire più Fogli di excel in uno unico - RISOLTO

Question

Buonasera,

sono alle prese con nu file composto da svariate centinaia di fogli, ognuno dei quali contiene un frammento di qualche riga di una singola tabella. In sostanza: ogni foglio contiene circa 100 rige di una sola tabella composta da migliaia di righe.

Ora, per lavorarci ho bisogno di unificare in colonna tutte le informazioni di tutti i fogli.

Per essere più chiari, questa è la mia situazione di partenza:

Dove nel foglio 1 ho le le prime righe con i dati che mi interessano ed in ogni foglio successivo le informazioni che dovrebbero essere riportate in colonna.

Mentre questa è la situazione alla quale vorrei arrivare:

Dove sono riuscito ad incolonnare tutte le informazioni riportate in diversi fogli in uno unico.

Ho provato con il comando consolida dati, ma mi restituisce un errore.

Voi avete idea di come poter risolvere questo problema?

L'opzione di lavorare a mano è da escludere, il file è composto da svariate centinaia di fogli e copiare ed incollare in colonna i dati manualmente richiederebbe un lavoro di settimane, se non mesi.

Qualcuno ha idea di come agire?

Ringraziandovi in anticipo,

Lorenzo

Answer 1

Buona sera,

ho trovato la soluzione al mio problema su questo a questo link.

La soluzione proposta consiste nell'utilizzare una macro che per ogni foglio di copia e incolla l risultato in colonna, ho dovuto solo adattare la larghezza dell'area copiata nella settima riga di codice eliminando la "D" ed inserendo la valore della colonna di mio interesse. Vi riporto di seguito iol codice per la macro:

Sub Copia_fogli() Dim fg As Integer Dim uR As Long Dim uR1 As Long For fg = 2 To Sheets.Count uR = Sheets(fg).Cells(Rows.Count, 1).End(xlUp).Row Sheets(fg).Range("A1:D" & uR).Copy uR1 = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets(1).Cells(uR1, 1).PasteSpecial Paste:=xlValues Next fg End SubSpero possa essere di aiuto!Ciao!