Preskoči na glavno vsebino

Kako združiti ali združiti delovne liste ali delovne zvezke v en delovni list?

Pri vsakodnevnem delu lahko naletimo na težavo, ki na stotine listov ali delovnih zvezkov združi v en list za analizo podatkov, kar traja veliko časa, če v Excelu uporabite ukaz Kopiraj in prilepi. Tu v tej vadnici bom našel nekaj nasvetov za hitro reševanje tega dela.

doc združiti 1

HITRA NAVIGACIJA

Združevanje vseh listov aktivnega delovnega zvezka v en list z VBA
Združevanje ducatov listov ali delovnih zvezkov v en delovni list / delovni zvezek s kliki
Združevanje dveh tabel v eno in posodobitev v stolpcu s kliki
Prenesite vzorčno datoteko


Združevanje vseh listov aktivnega delovnega zvezka v en list z VBA

V tem razdelku vam nudim kodo VBA, ki bo ustvarila nov list za zbiranje vseh listov aktivnega delovnega zvezka med izvajanjem.

1. Aktivirajte delovni zvezek, v katerega želite združiti vse liste, in pritisnite + tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V pojavnem oknu kliknite Vstavi > Moduli da ustvarite nov skript modula.

3. Kopirajte spodnjo kodo in jih prilepite v skript.

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 združiti 2

4. Pritisnite F5 ključ, potem so bili vsi podatki na listih združeni v nov list z imenom Kombinirano, ki je postavljen na sprednjo stran vseh listov.


ne premakni se

Ali želite dvig plač in veliko časa za spremstvo z družino?

Zavihek Office poveča vašo učinkovitost za 50% v Microsoft Officeu, ki deluje zdaj

Neverjetno, delo z dvema ali več dokumenti je lažje in hitrejše kot delo z enim.

V primerjavi z dobro znanimi brskalniki je orodje z zavihki v zavihku Office zmogljivejše in učinkovitejše.

Vsak dan zmanjšajte na stotine klikov z miško in tipkanja na tipkovnici, poslovite se od roke miške.

Če običajno delate z več dokumenti, vam bo Office Tab odlično prihranil čas.

30-dnevni brezplačni preizkus, kreditna kartica ni potrebna.

Preberi večBrezplačno prenesete zdaj


Združevanje ducatov listov ali delovnih zvezkov v en delovni list / delovni zvezek s kliki

Z VBA lahko kombinirate samo liste v aktivnem delovnem zvezku, kako pa lahko liste med delovnimi zvezki združite v list ali delovni zvezek?

Spoji liste v delovnih zvezkih v en list
doc združiti 18

Združite liste v delovnih zvezkih v en delovni zvezek
doc združiti 3

Za reševanje tega dela in izpolnjevanje drugih zahtev glede kombinacije listov je Združite funkcija je bila razvita s štirimi kombinacijskimi scenariji:

  • Več listov ali delovnih zvezkov združite v en list
  • Več listov ali delovnih zvezkov združite v en delovni zvezek
  • Združite iste imenske liste v en list
  • Združi vrednosti na listih ali v delovnih zvezkih v en list

Tu je za primer uporabljena druga možnost:

Več listov ali delovnih zvezkov združite v en delovni zvezek

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Aktivirajte Excel, kliknite Kutools Plus > Združite, odpre se pogovorno okno, ki vas opomni, da je treba delovne zvezke, ki jih želite združiti, zapreti. Kliknite OK za nadaljevanje.
doc združiti 4
doc združiti 5

2. V Ljubljani Združite delovne liste 1. korak pogovorno okno, preverite Več delovnih listov iz delovnih zvezkov združite v en delovni zvezek možnost. Kliknite Naslednji , da greste na naslednji korak čarovnika.
doc združiti 6

3. klik Dodaj > file or Mapa za dodajanje delovnih zvezkov, ki jih želite združiti, v Seznam delovnih zvezkov podokna, nato lahko določite, kateri delovni list bo združen, tako da preverite imena v Seznam delovnih listov podokno. Kliknite Naslednji iti na zadnji korak čarovnika.
doc združiti 7

4. V tem koraku določite želene nastavitve. Nato kliknite Konec.
doc združiti 8

5. Odpre se okno, v katerem izberete mapo, v katero želite združiti delovni zvezek, in kliknite Shrani.
doc združiti 9

Zdaj so delovni zvezki združeni v en delovni zvezek. In na sprednji strani vseh listov je ustvarjen tudi glavni list z imenom Kutools za Excel, ki vsebuje nekaj informacij o listih in povezave za posamezen list.
doc združiti 10

Predstavitev: liste / delovne zvezke združite v en list ali delovni zvezek

Kutools za Excel: 200+ uporabnih priročnih orodij, ki poenostavijo zapletene naloge v Excelu v nekaj klikov.

Poslovite se od mišje roke in cervikalne spondiloze

300 naprednih orodij Kutools for Excel rešuje 80% Opravila v Excelu v nekaj sekundah, izvlečejo vas iz tisočih klikov miške.

Preprosto obravnavajte 1500 delovnih scenarijev, ni treba izgubljati časa za iskanje rešitev, imate veliko časa za uživanje v svojem življenju.

Vsak dan izboljšajte 80% produktivnost za 110000+ zelo učinkovitih ljudi, seveda tudi vi.

Da vas ne bodo več mučile boleče formule in VBA, dajte možganom počitek in veselo delovno razpoloženje.

30-dnevno brezplačno preskusno obdobje s polnimi funkcijami, 30-dnevno vračilo denarja brez razloga.

Boljše telo ustvarja boljše življenje.


Združevanje dveh tabel v eno in posodobitev v stolpcu s kliki

Če želite združiti dve tabeli v eno in posodobiti podatke na podlagi stolpca, kot je prikazano na spodnji sliki zaslona, ​​lahko poskusite Združi tabele uporabnost Kutools za Excel.
doc združiti 11

Kutools za Excel: več kot 200 priročnih Excelovih dodatkov za poenostavitev zapletenih nalog v nekaj klikov v Excelu

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools Plus > Združi tabele omogočiti Združi tabele čarovnik.
doc združiti 12

2. V 1. koraku čarovnika morate ločeno izbrati obseg glavne tabele in obsega iskalne tabele. Nato kliknite Naslednji.
doc združiti 13

3. Označite stolpec s ključi, na podlagi katerega želite posodobiti podatke v glavni tabeli. Kliknite Naslednji.
doc združiti 14

4. Nato označite stolpce v glavni tabeli, v katerih želite posodobiti podatke na podlagi iskalne tabele. Kliknite Naslednji.
doc združiti 15

5. V 4. koraku čarovnika označite stolpce, ki jih želite dodati iz iskalne tabele v glavno tabelo. Kliknite Naslednji.
doc združiti 16

6. V zadnjem koraku čarovnika določite želene nastavitvene možnosti. Nato kliknite Konec.
doc združiti 17

Zdaj je glavna tabela posodobila podatke in dodala nove podatke na podlagi iskalne tabele.

Predstavitev: liste / delovne zvezke združite v en list ali delovni zvezek

Kutools za Excel: 200+ uporabnih priročnih orodij, ki poenostavijo zapletene naloge v Excelu v nekaj klikov.


Prenesite vzorčno datoteko

Vzorec


Priporočena orodja za produktivnost

Zavihek Office - brskanje, urejanje in upravljanje dokumentov z zavihki v sistemih Microsoft Office 2019 - 2003 in Office 365


zavihek pisarne

Profesionalni dodatek za pospeševanje Excela 2019-2007, opravila za ure zmanjša na sekunde

Ta dodatek vključuje na desetine poklicnih skupin, pri čemer bo več kot 300 možnosti avtomatiziralo večino vaših dnevnih opravil v Excelu in povečalo vašo produktivnost vsaj za 50%. Na primer skupine optonov z enim klikom in paketne pretvorbe.
Zdaj je vaša priložnost, da se pospešite s programom Kutools for 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