Come unire tutti i fogli di Excel in uno solo

Oggi mi hanno dato un file di Excel dove dovevo fare diversi calcoli… ma i dati erano sparpagliati in 40 pagine (fogli) diverse, quindi le opzioni che avevo erano:

• Ricopiare a mano i dati di questi 40 fogli nel foglio principale
• Ricopiare tutte le formule in tutti e 40 i fogli

Assolutamente inaccettabile! Così, invece di perdere 30 minuti per fare i noiosissimi copia e incolla, ne ho persi 45 cercando una soluzione su Internet! 😎

La soluzione viene da ExtendOffice, in una pagina che hanno fatto per pubblicizzare KuTools, il loro “coltellino svizzero per Excel”

Nella pagina spiegano “o usi questa macro VBA, oppure col nostro programmino lo fai in due click”.

Il problema è che il loro programmino costa 40 euro e non usando Excel a livello professionale non mi serve molto. Procedo con la soluzione gratuita, grazie! 😘

Per eseguire la Macro, si preme ALT+F11, per aprire Visual Basic for Applications.

Poi si va sul menu Inserisci e si clicca su modulo:

Si incolla questo testo:

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

Poi si preme F5, oppure nel menu Esegui / Esegui Sub

Fatto!