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:
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!
Fantastico! Grazie
perdonami, ho fatto il vba ma dove salva il risultato? Non trovo i fogli uniti…
Grazie
Dovrebbe essere apparso un nuovo foglio chiamato “Combined”
ciao, anche a me non compare il nuovo foglio chiamato combined e non capisco dove si salvi. provo a rifare tutto vediamo se riesce…grazie intanto
Ciao, come modificare la macro VBA se si vogliono aggiungere dati da più di 2 fogli? Grazie
Intendi da più di 2 file alla volta? Perché la macro già unisce più fogli in uno.
La versione a pagamento sembra che possa unire più file in uno solo. (non l’ho provata perché non uso Excel per lavoro e pagare quella cifra per divertimento è un po’ assurdo)