Vai al contenuto principale

Come unire o consolidare fogli di lavoro o cartelle di lavoro in un foglio di lavoro?

Nel nostro lavoro quotidiano, potremmo riscontrare un problema che unisce centinaia di fogli o cartelle di lavoro in un unico foglio per l'analisi dei dati che richiede molto tempo se si utilizza il comando Copia e Incolla in Excel. Qui in questo tutorial, fornirò alcuni suggerimenti per risolvere rapidamente questo lavoro.

doc combinare 1

NAVIGAZIONE RAPIDA

Unire tutti i fogli della cartella di lavoro attiva in un foglio con VBA
Unire dozzine di fogli o cartelle di lavoro in un foglio di lavoro / cartella di lavoro con clic
Unione di due tabelle in una e aggiornamento di una colonna con clic
Scarica il file di esempio


Unire tutti i fogli della cartella di lavoro attiva in un foglio con VBA

In questa sezione, fornisco un codice VBA che creerà un nuovo foglio per raccogliere tutti i fogli della cartella di lavoro attiva mentre lo esegui.

1. Attivare la cartella di lavoro in cui si desidera combinare tutti i fogli, quindi premere + chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.

2. Nella finestra a comparsa, fare clic su inserire > Moduli per creare un nuovo script del modulo.

3. Copia il codice sottostante e incollalo nello script.

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
doc combinare 2

4. Stampa F5 , quindi tutti i dati tra i fogli sono stati uniti in un nuovo foglio denominato Combinato che viene posizionato nella parte anteriore di tutti i fogli.


ot spostare

Vuoi avere un aumento di stipendio e molto tempo per accompagnare la famiglia?

La scheda Office migliora la tua efficienza del 50% in Microsoft Office lavorando adesso

Incredibile, lavorare su due o più documenti è più facile e veloce che lavorare su uno solo.

Rispetto ai browser più noti, lo strumento a schede di Office Tab è più potente ed efficiente.

Riduci ogni giorno centinaia di clic del mouse e digitazione sulla tastiera, saluta subito la mano del mouse.

Se di solito lavori su più documenti, Office Tab ti farà risparmiare molto tempo.

30prova gratuita di un giorno, nessuna carta di credito richiesta.

Scopri di piùScarica gratis ora


Unire dozzine di fogli o cartelle di lavoro in un foglio di lavoro / cartella di lavoro con clic

Con VBA, puoi solo combinare fogli nella cartella di lavoro attiva, ma come puoi unire fogli tra cartelle di lavoro in un foglio o in una cartella di lavoro?

Unisci fogli tra cartelle di lavoro in un unico foglio
doc combinare 18

Unisci fogli tra cartelle di lavoro in un'unica cartella di lavoro
doc combinare 3

Per risolvere questo lavoro e soddisfare altri requisiti sulla combinazione di fogli, il Combinare la funzione è stata sviluppata con quattro scenari di combinazione:

  • Combina più fogli o cartelle di lavoro in un unico foglio
  • Combina più fogli o cartelle di lavoro in una cartella di lavoro
  • Combina fogli con lo stesso nome in un unico foglio
  • Consolida i valori tra fogli o cartelle di lavoro in un unico foglio

Qui prende la seconda opzione come istanza:

Combina più fogli o cartelle di lavoro in una cartella di lavoro

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Attivare Excel, fare clic su Kutools Plus > Combinare, viene visualizzata una finestra di dialogo per ricordarti che le cartelle di lavoro che desideri combinare devono essere chiuse. Clic OK per continuare.
doc combinare 4
doc combinare 5

2. Nel Combina fogli di lavoro passaggio 1 dialogo, controlla Combina più fogli di lavoro da cartelle di lavoro in una cartella di lavoro opzione. Clic Successivo per passare alla fase successiva della procedura guidata.
doc combinare 6

3. Clic Aggiungi > Compila il or cartella per aggiungere le cartelle di lavoro che desideri combinare al file Elenco delle cartelle di lavoro riquadro, quindi è possibile specificare quale foglio di lavoro verrà unito insieme controllando i nomi Elenco dei fogli di lavoro Pannello. Clic Successivo per andare all'ultimo passaggio della procedura guidata.
doc combinare 7

4. In questo passaggio, specifica le impostazioni di cui hai bisogno. Quindi fare clic su Fine.
doc combinare 8

5. Viene visualizzata una finestra che consente di selezionare una cartella in cui posizionare la cartella di lavoro combinata, quindi fare clic su Risparmi.
doc combinare 9

Ora le cartelle di lavoro sono state unite in un'unica cartella di lavoro. E nella parte anteriore di tutti i fogli viene creato anche un foglio principale denominato Kutools per Excel che elenca alcune informazioni sui fogli e sui collegamenti per ciascun foglio.
doc combinare 10

Demo: combina fogli / cartelle di lavoro in un unico foglio o cartella di lavoro

Kutools per Excel:200 + strumenti utili e pratici, che semplificano le attività complicate in Excel in pochi clic.

Dì addio alla mano del topo e alla spondilosi cervicale ora

300 strumenti avanzati di Kutools per Excel risolvono 80% Attività di Excel in pochi secondi, tirati fuori dalle migliaia di clic del mouse.

Gestisci facilmente 1500 scenari di lavoro, non c'è bisogno di perdere tempo per cercare soluzioni, avere molto tempo per goderti la vita.

Migliora la produttività dell'80% per oltre 110000 persone altamente efficienti ogni giorno, ovviamente te compreso.

Non essere più tormentato da formule dolorose e VBA, dai al tuo cervello un riposo e un gioioso umore lavorativo.

Prova gratuita di 30 giorni con funzionalità complete, rimborso entro 30 giorni senza motivo.

Un corpo migliore crea una vita migliore.


Unione di due tabelle in una e aggiornamento di una colonna con clic

Se desideri unire due tabelle in una e aggiornare i dati in base a una colonna come mostrato nell'immagine sottostante, puoi provare il file Tabelle Unisci utilità di Kutools for Excel.
doc combinare 11

Kutools per Excel: più di 200 pratici componenti aggiuntivi di Excel per semplificare attività complicate in pochi clic in Excel

Dopo shavasana, sedersi in silenzio; saluti; installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Clic Kutools Plus > Tabelle Unisci abilitare Tabelle Unisci procedura guidata.
doc combinare 12

2. Nel passaggio 1 della procedura guidata, è necessario selezionare separatamente la tabella principale e gli intervalli della tabella di ricerca. Quindi fare clic su Successivo.
doc combinare 13

3. Selezionare la colonna chiave su cui si desidera aggiornare i dati nella tabella principale basata su. Clic Successivo.
doc combinare 14

4. Quindi controllare le colonne nella tabella principale di cui si desidera aggiornare i dati in base alla tabella di ricerca. Clic Successivo.
doc combinare 15

5. Nel passaggio 4 della procedura guidata, selezionare le colonne che si desidera aggiungere dalla tabella di ricerca alla tabella principale. Clic Successivo.
doc combinare 16

6. Nell'ultimo passaggio della procedura guidata, specificare le opzioni di impostazione necessarie. Quindi fare clic su Fine.
doc combinare 17

Ora la tabella principale ha aggiornato i dati e aggiungere nuovi dati in base alla tabella di ricerca.

Demo: combina fogli / cartelle di lavoro in un unico foglio o cartella di lavoro

Kutools per Excel:200 + strumenti utili e pratici, che semplificano le attività complicate in Excel in pochi clic.


Scarica il file di esempio

campione


Strumenti di produttività consigliati

Scheda Office: navigazione a schede, modifica, gestione di documenti in Microsoft Office 2019 - 2003 e Office 365


scheda ufficio

Un componente aggiuntivo professionale per l'accelerazione di Excel 2019-2007, riduce le ore di attività in secondi

Questo componente aggiuntivo include dozzine di gruppi professionali, con oltre 300 opzioni automatizzerà la maggior parte delle attività quotidiane in Excel e aumenterà la produttività almeno del 50%. Come gruppi di opzioni con un clic e conversioni batch.
Ora hai la possibilità di velocizzarti con Kutools per Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

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.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations