Přejít k hlavnímu obsahu

Jak sloučit nebo sloučit listy nebo sešity do jednoho listu?

V naší každodenní práci se můžeme setkat s problémem, který spojuje stovky listů nebo sešitů do jednoho listu pro analýzu dat, což zabere hodně času, pokud použijete příkaz Kopírovat a Vložit v aplikaci Excel. Zde v tomto výukovém programu uvedu několik tipů pro rychlé řešení této úlohy.

doc kombinovat 1

RYCHLÁ NAVIGACE

Sloučení všech listů aktivního sešitu do jednoho listu pomocí VBA
Sloučení desítek listů nebo sešitů do jednoho listu / sešitu kliknutím
Sloučení dvou tabulek do jedné a aktualizace kliknutím na sloupec
Stáhněte si ukázkový soubor


Sloučení všech listů aktivního sešitu do jednoho listu pomocí VBA

V této části poskytuji kód VBA, který při spuštění vytvoří nový list pro shromažďování všech listů aktivního sešitu.

1. Aktivujte sešit, který chcete zkombinovat do všech listů, a stiskněte + klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. V rozbalovacím okně klikněte na Vložit > Modul vytvořit nový skript modulu.

3. Zkopírujte níže uvedený kód a vložte je do skriptu.

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 kombinovat 2

4. lis F5 klíč, pak byla všechna data mezi listy sloučena do nového listu s názvem Kombinovaný, který je umístěn v přední části všech listů.


ot tah

Chcete zvýšit plat a dostatek času na doprovázení rodiny?

Karta Office zvyšuje vaši efektivitu o 50% při práci s Microsoft Office právě teď

Neuvěřitelné, práce na dvou nebo více dokumentech je jednodušší a rychlejší než práce na jednom.

Ve srovnání se známými prohlížeči je nástroj s kartami na kartě Office výkonnější a efektivnější.

Omezte stovky klikání myší a psaní na klávesnici každý den za vás, sbohem teď s myší rukou.

Pokud obvykle pracujete na více dokumentech, bude vám karta Office skvělým šetřičem času.

30-denní zkušební verze zdarma, není vyžadována kreditní karta.

VíceStáhnout zdarma


Sloučení desítek listů nebo sešitů do jednoho listu / sešitu kliknutím

S VBA můžete kombinovat listy pouze v aktivním sešitu, ale jak můžete sloučit listy mezi sešity do listu nebo sešitu?

Sloučit listy napříč sešity do jednoho listu
doc kombinovat 18

Sloučení listů mezi sešity do jednoho sešitu
doc kombinovat 3

Pro řešení této úlohy a splnění dalších požadavků na kombinaci listů, Kombinovat funkce byla vyvinuta se čtyřmi kombinovanými scénáři:

  • Zkombinujte více listů nebo sešitů do jednoho listu
  • Zkombinujte více listů nebo sešitů do jednoho sešitu
  • Zkombinujte listy stejných jmen do jednoho listu
  • Konsolidujte hodnoty mezi listy nebo sešity do jednoho listu

Zde je druhá možnost jako instance:

Zkombinujte více listů nebo sešitů do jednoho sešitu

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Aktivujte Excel, klepněte na Kutools Plus > Kombinovat, objeví se dialogové okno, které vám připomene, že sešity, které chcete kombinovat, je třeba zavřít. Klepněte na OK pokračovat.
doc kombinovat 4
doc kombinovat 5

2. V Kombinace pracovních listů krok 1 dialog, zkontrolujte Zkombinujte více pracovních listů ze sešitů do jednoho sešitu volba. Klikněte na tlačítko další přejít na další krok průvodce.
doc kombinovat 6

3. cvaknutí přidat > Soubor or Desky přidat do sešitu, který chcete zkombinovat Seznam sešitů podokně, pak můžete určit, který list bude spojen, zaškrtnutím jmen Seznam pracovních listů podokno. Klepněte na další přejít na poslední krok průvodce.
doc kombinovat 7

4. V tomto kroku zadejte nastavení podle potřeby. Poté klikněte úprava.
doc kombinovat 8

5. Objeví se okno, ve kterém vyberete složku pro umístění kombinovaného sešitu a poté kliknete Uložit.
doc kombinovat 9

Nyní byly sešity sloučeny do jednoho sešitu. A na přední straně všech listů je také vytvořen hlavní list s názvem Kutools pro Excel, který uvádí některé informace o listech a odkazech pro každý list.
doc kombinovat 10

Ukázka: Kombinujte listy / sešity do jednoho listu nebo sešitu

Kutools pro Excel: 200+ užitečných praktických nástrojů, které zjednodušují složité úkoly v aplikaci Excel na několik kliknutí.

Rozloučte se s myší myší a cervikální spondylózou hned teď

Řeší 300 pokročilých nástrojů Kutools pro Excel 80% Excelové úkoly během několika sekund, vytrhnou vás z tisíců kliknutí myší.

Snadno se vypořádejte s 1500 pracovními scénáři, nemusíte ztrácet čas hledáním řešení, máte spoustu času na to, abyste si užili život.

Zlepšujte 80% produktivitu pro 110000+ vysoce efektivních lidí každý den, samozřejmě včetně vás.

Už vás nebudou trápit bolestivé vzorce a VBA, dopřejte svému mozku odpočinek a radostnou pracovní náladu.

30denní bezplatná zkušební verze se všemi funkcemi, 30denní vrácení peněz bez udání důvodu.

Lepší tělo vytváří lepší život.


Sloučení dvou tabulek do jedné a aktualizace kliknutím na sloupec

Pokud chcete sloučit dvě tabulky do jedné a aktualizovat data na základě sloupce uvedeného níže, můžete vyzkoušet Sloučit tabulky užitečnost Kutools pro Excel.
doc kombinovat 11

Kutools pro Excel: více než 200 užitečných doplňků aplikace Excel ke zjednodušení komplikovaných úkolů na pár kliknutí v aplikaci Excel

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools Plus > Sloučit tabulky umožnit Sloučit tabulky Průvodce.
doc kombinovat 12

2. V kroku 1 průvodce musíte samostatně vybrat rozsahy hlavní tabulky a vyhledávací tabulky. Poté klikněte další.
doc kombinovat 13

3. Zaškrtněte klíčový sloupec, podle kterého chcete aktualizovat data v hlavní tabulce. Klepněte na další.
doc kombinovat 14

4. Poté zkontrolujte sloupce v hlavní tabulce, které chcete aktualizovat na základě vyhledávací tabulky. Klepněte na další.
doc kombinovat 15

5. V kroku 4 průvodce zkontrolujte sloupce, které chcete přidat z vyhledávací tabulky do hlavní tabulky. Klepněte na další.
doc kombinovat 16

6. V posledním kroku průvodce určete podle potřeby možnosti nastavení. Poté klikněte úprava.
doc kombinovat 17

Nyní byla hlavní tabulka aktualizována data a přidána nová data na základě vyhledávací tabulky.

Ukázka: Kombinujte listy / sešity do jednoho listu nebo sešitu

Kutools pro Excel: 200+ užitečných praktických nástrojů, které zjednodušují složité úkoly v aplikaci Excel na několik kliknutí.


Stáhněte si ukázkový soubor

vzorek


Doporučené nástroje produktivity

Karta Office - Procházení, úpravy, správa dokumentů v Microsoft Office 2019 - 2003 a Office 365


záložka Office

Profesionální doplněk pro zrychlení aplikace Excel 2019-2007, zmenšuje počet hodin úkolů na sekundy

Tento doplněk zahrnuje desítky profesionálních skupin, přičemž více než 300 možností automatizuje většinu vašich každodenních úkolů v aplikaci Excel a zvýší vaši produktivitu alespoň o 50%. Například skupiny optonů na jedno kliknutí a hromadné převody.
Nyní máte šanci se zrychlit pomocí Kutools pro 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