Salt la conținutul principal

Cum se îmbină sau se consolidează foile de lucru sau registrele de lucru într-o singură foaie de lucru?

În munca noastră zilnică, putem întâlni o problemă care îmbină sute de foi sau registre de lucru într-o singură foaie pentru analiza datelor, care necesită mult timp dacă utilizați comanda Copiere și lipire în Excel. Aici, în acest tutorial, voi oferi câteva sfaturi pentru rezolvarea rapidă a acestui job.

doc combina 1

NAVIGAȚIE RAPIDĂ

Combinarea tuturor foilor de registru de lucru activ într-o singură coală cu VBA
Fuzionarea a zeci de foi sau registre de lucru într-o singură foaie de lucru / registru de lucru cu clicuri
Fuzionarea a două tabele într-unul și actualizarea printr-o coloană cu clicuri
Descărcați fișierul eșantion


Combinarea tuturor foilor de registru de lucru activ într-o singură coală cu VBA

În această secțiune, ofer un cod VBA care va crea o foaie nouă pentru a colecta toate foile din registrul de lucru activ în timp ce îl rulați.

1. Activați registrul de lucru pe care doriți să-l combinați toate foile, apoi apăsați + tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastra popping, faceți clic pe Insera > Module pentru a crea un nou script Module.

3. Copiați codul de mai jos și lipiți-le în 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 combina 2

4. presa F5 tasta, apoi toate datele din foi au fost îmbinate într-o nouă foaie numită Combinată care este plasată în partea din față a tuturor foilor.


nu se mișcă

Vreți să aveți o creștere a plății și mult timp pentru a însoți cu familia?

Fila Office vă îmbunătățește eficiența cu 50% în Microsoft Office funcționând chiar acum

Incredibil, lucrul la două sau mai multe documente este mai ușor și mai rapid decât lucrul la unul singur.

Comparat cu browsere cunoscute, instrumentul cu file din fila Office este mai puternic și mai eficient.

Reduceți sute de clicuri de mouse și tastarea tastaturii în fiecare zi pentru dvs., spuneți adio mâinii mouse-ului acum.

Dacă lucrați de obicei la mai multe documente, Office Office va economisi timp excelent pentru dvs.

30- zi de probă gratuită, nu este necesar un card de credit.

Citeste mai multDescărcare gratuită acum


Fuzionarea a zeci de foi sau registre de lucru într-o singură foaie de lucru / registru de lucru cu clicuri

Cu VBA, puteți combina doar foi în registrul de lucru activ, dar cum puteți combina foliile din registrele de lucru cu o foaie sau un registru de lucru?

Îmbinați foile din registrele de lucru într-o singură coală
doc combina 18

Îmbinați foi între cărți de lucru într-un singur registru de lucru
doc combina 3

Pentru rezolvarea acestei sarcini și pentru a satisface alte cerințe privind combinația de foi, Combina funcția a fost dezvoltată cu patru scenarii de combinație:

  • Combinați mai multe foi sau registre de lucru într-o singură coală
  • Combinați mai multe foi sau registre de lucru într-un singur registru de lucru
  • Combinați aceleași foi de nume într-o singură coală
  • Consolidați valorile între coli sau registre de lucru într-o singură coală

Aici ia a doua opțiune ca exemplu:

Combinați mai multe foi sau registre de lucru într-un singur registru de lucru

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Activați Excel, faceți clic pe Kutools Plus > Combina, apare un dialog pentru a vă reaminti că registrele de lucru pe care doriți să le combinați trebuie închise. Clic OK pentru a continua.
doc combina 4
doc combina 5

2. În Combinați foile de lucru pasul 1 dialog, verificați Combinați mai multe foi de lucru din registrele de lucru într-un singur registru de lucru opțiune. Clic Pagina Următoare → pentru a trece la pasul următor al vrăjitorului.
doc combina 6

3. clic Adăuga > Fișier or Dosar pentru a adăuga registrele de lucru pe care doriți să le combinați la Lista registrului de lucru , puteți specifica ce foaie de lucru va fi unită, bifând numele Lista foilor de lucru panou. Clic Pagina Următoare → pentru a trece la ultimul pas al vrăjitorului.
doc combina 7

4. În acest pas, specificați setările după cum aveți nevoie. Apoi apasa finalizarea.
doc combina 8

5. Se afișează o fereastră pentru selectarea unui folder pentru a plasa registrul de lucru combinat, apoi faceți clic pe Economisiți.
doc combina 9

Acum, registrele de lucru au fost îmbinate într-un singur registru de lucru. Și în partea din față a tuturor foilor, este creată și o foaie principală numită Kutools pentru Excel, care listează câteva informații despre foi și linkuri pentru fiecare foaie.
doc combina 10

Demo: Combinați foi / registre de lucru într-o singură foaie sau registru de lucru

Kutools pentru Excel: 200 de instrumente utile la îndemână, simplificând sarcinile complicate din Excel în câteva clicuri.

Spuneți adio mâinii șoarecilor și spondilozei cervicale acum

300 de instrumente avansate de rezolvare Kutools pentru Excel 80% Sarcini Excel în câteva secunde, scoateți-vă din miile de clicuri de mouse.

Faceți cu ușurință 1500 de scenarii de lucru, nu este nevoie să pierdeți timp pentru căutarea soluțiilor, aveți mult timp să vă bucurați de viață.

Îmbunătățiți productivitatea cu 80% pentru peste 110000 de persoane extrem de eficiente în fiecare zi, desigur, inclusiv pe dvs.

Nu mai fi chinuit de formule dureroase și VBA, dă-i creierului tău o odihnă și o dispoziție plăcută de lucru.

Perioadă de încercare gratuită de 30 de zile cu funcții complete, rambursare de 30 de zile fără motive.

Un corp mai bun creează o viață mai bună.


Fuzionarea a două tabele într-unul și actualizarea printr-o coloană cu clicuri

Dacă doriți să îmbinați două tabele într-unul și să actualizați datele pe baza unei coloane, așa cum este prezentat mai jos, puteți încerca Combinarea tabelelor utilitatea Kutools pentru Excel.
doc combina 11

Kutools pentru Excel: peste 200 de programe de completare Excel la îndemână pentru a simplifica sarcinile complicate în câteva clicuri în Excel

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools Plus > Combinarea tabelelor pentru a permite Combinarea tabelelor Wizard.
doc combina 12

2. La pasul 1 al expertului, trebuie să selectați separat tabelul principal și intervalele tabelului de căutare. Apoi apasa Pagina Următoare →.
doc combina 13

3. Verificați coloana cheie pe care doriți să actualizați datele din tabelul principal pe baza. Clic Pagina Următoare →.
doc combina 14

4. Apoi verificați coloanele din tabelul principal pe care doriți să le actualizați pe baza tabelului de căutare. Clic Pagina Următoare →.
doc combina 15

5. La pasul 4 al expertului, verificați coloanele pe care doriți să le adăugați din tabelul de căutare în tabelul principal. Clic Pagina Următoare →.
doc combina 16

6. În ultimul pas al expertului, specificați opțiunile de setare după cum aveți nevoie. Apoi apasa finalizarea.
doc combina 17

Acum, tabelul principal a fost actualizat și a adăugat date noi pe baza tabelului de căutare.

Demo: Combinați foi / registre de lucru într-o singură foaie sau registru de lucru

Kutools pentru Excel: 200 de instrumente utile la îndemână, simplificând sarcinile complicate din Excel în câteva clicuri.


Descărcați fișierul eșantion

probă


Instrumente de productivitate recomandate

Fila Office - Navigarea cu tab-uri, editarea, gestionarea documentelor în Microsoft Office 2019 - 2003 și Office 365


fila birou

Un program de completare profesional pentru accelerarea Excel 2019-2007, micșorează sarcinile de ore la secunde

Acest supliment include zeci de grupuri profesionale, cu peste 300 de opțiuni care vă vor automatiza majoritatea sarcinilor zilnice în Excel și vă vor crește productivitatea cu cel puțin 50%. De exemplu, grupuri de opțiuni cu un singur clic și conversii în serie.
Acum este șansa ta de a te accelera cu Kutools pentru 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