Note: The other languages of the website are Google-translated. Back to English

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í bezplatná zkušební verze, není vyžadována žádná 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ď

300
pokročilé nástroje Kutools for Excel řešit

80%
Excelové úkoly během několika sekund, vytrhnou vás z tisíců kliknutí myší.

Snadno se vypořádat

1500
pracovní scénáře, není třeba ztrácet čas hledáním řešení, mít spoustu času užívat si života.

Zvýšit

80%
produktivita pro 110000 XNUMX+ 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.

30
-denní bezplatná zkušební verze s plnými funkcemi,

30
- den 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!


Komentáře (168)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
použil svou první funkci Makro. PÁNI! díky za zveřejnění
Tento komentář byl moderátorem webu minimalizován
Myslím, že kód"Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select'nemusí tam být. Co to dělá, je vybrat druhý řádek a dále postrádat první.
Tento komentář byl moderátorem webu minimalizován
Mám stejný problém. Je to vynechání prvního řádku z druhého přidaného listu.
Tento komentář byl moderátorem webu minimalizován
Odstraňuje záhlaví, takže nemáte duplicitní záhlaví
Tento komentář byl moderátorem webu minimalizován
Funguje jako kouzlo, děkujeme za sdílení!
Tento komentář byl moderátorem webu minimalizován
Děkuji! Makro fungovalo perfektně.
Tento komentář byl moderátorem webu minimalizován
Nevím, jak používat funkci VBN v Excelu, můžete mi prosím pomoci, jak to udělat.
Tento komentář byl moderátorem webu minimalizován
Úžasné, díky!!! Velmi velmi užitečné
Tento komentář byl moderátorem webu minimalizován
Makro funguje dobře. Dík!! Je to úžasné!!!! :)
Tento komentář byl moderátorem webu minimalizován
Upozorňujeme, že toto je omezeno limitem 65 1 řádků, pokud k vyřešení problému potřebujete zvýšit řádek Selection.Copy Destination:=Sheets(65536).Range("A2").End(xlUp)(XNUMX).
Tento komentář byl moderátorem webu minimalizován
Skvělý nástroj, ale nekombinuje všech 21 listů. Jak mohu rozšířit sortiment?
Tento komentář byl moderátorem webu minimalizován
POZNÁMKA!!! S makrem musíte být opatrní. Bude fungovat, pokud budou mít vaše data nepřetržitý tok informací a žádný prázdný řádek. to dělá řádek "Selection.CurrentRegion.Select". Pokud například potřebujete zkopírovat VŠECHNA data v tabulce, ale na (řekněme) řádku 200 je prázdný řádek, makro se zkopíruje pouze dolů do řádku 200; VŠECHNA ÚDAJE POD TÍMTO ŘÁDKEM BUDE NEROZPOUŠTĚT!!!
Tento komentář byl moderátorem webu minimalizován
Zná někdo příkaz, jak se tomuto problému vyhnout? Lze vyřešit problém s Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select? Selection.Rows.Count - 1) je příkaz, který je původcem problému. Kdokoliv??
Tento komentář byl moderátorem webu minimalizován
Místo abyste začínali shora a šli dolů, začněte zdola a jděte nahoru
Tento komentář byl moderátorem webu minimalizován
Zná někdo kód pro řešení problémů s prázdnými řádky a sloupci?. Mám to ve svých datech, ale neexistuje žádné jednoduché řešení, jako začít zdola nahoru? Dík!
Tento komentář byl moderátorem webu minimalizován
Pro odstranění řádků, které jsou prázdné: Možnost 1: Vyberte buňky ve sloupci A, které je třeba odstranit. Použijte Ctrl - a poté ve vyskakovacím okně vyberte Celý řádek. Uložte sešit a ukončete. Poté otevřete sešit. Možnost 2: Vyberte řádky, které je třeba odstranit. Použijte Ctrl -. Uložte sešit a ukončete otevřený sešit. Dal možnost 1, aby bylo vidět, co se děje. Pro odstranění sloupců, které jsou prázdné: Vyberte sloupec. Ctrl -. Uložte sešit a ukončete otevřený sešit.
Tento komentář byl moderátorem webu minimalizován
Máme nějaké řešení, jak zkopírovat data pod prázdnou buňku?
Tento komentář byl moderátorem webu minimalizován
Děkuji ! Moje 2. řada byla prázdná ve všech listech a byl jsem zmatený.
Tento komentář byl moderátorem webu minimalizován
kód vba fungoval skvěle, ale potřebuji, aby se kombinovaný list aktualizoval, když přidávám nové řádky nebo nová data do buněk v listech, které kombinuji. Existuje způsob, jak to udělat? Děkuji za vaší pomoc.
Tento komentář byl moderátorem webu minimalizován
Kód makra fungoval pro první kombinovaný list skvěle, ale potřebuji, aby se kombinovaný list aktualizoval při přidávání dat do existujících listů, které kombinuji. Existuje způsob, jak to udělat?
Tento komentář byl moderátorem webu minimalizován
Přišli jste někdy na to, jak to docílit toho, aby se aktualizoval v předloze, když přidáváte řádky do ostatních listů?
Tento komentář byl moderátorem webu minimalizován
Skvělá práce.. Tím se moje práce zkrátila ze 2 hodin na 10 minut.
Tento komentář byl moderátorem webu minimalizován
Výborně, použil jsem jak první makro, tak Kutools, obojí mi ohromně omezilo shromažďování dat a práci při kompilaci. Děkuji za sdílení.
Tento komentář byl moderátorem webu minimalizován
Právě jsem vymazal část uvedenou níže a nyní se pouze aktualizuje. Doufám, že to pomůže... Sheets(1).Vyberte Worksheets.Add
Tento komentář byl moderátorem webu minimalizován
Kód funguje skvěle! Potřebuji, aby makro zkopírovalo všechna data na listech. Ořízne první řádek po listu 1. Pouze list první má řádek záhlaví, ostatní listy jsou pouze datové. Je to možné?
Tento komentář byl moderátorem webu minimalizován
Mám otázku "Sloučit všechny listy do jednoho listu s kódem VBA": Kód funguje velmi dobře, ale pouze když je prázdný, přidá záhlaví, je možné kód upravit tak, aby se prázdný list neslučoval?
Tento komentář byl moderátorem webu minimalizován
Díky, ušetřil jsi mi hodinu kopírování a vkládání :D
Tento komentář byl moderátorem webu minimalizován
Mít dva sešity, stejná data, ale druhý má data navíc a některá data byla aktualizována, inv# Stav 123 7/2 otevřená inv# stav 123 7/2 otevřená 7/7 zavřená jak sloučit do jednoho odstranění nebo zvýraznění duplikátů a přidání jakýkoli nový inv# není v prvním
Tento komentář byl moderátorem webu minimalizován
Funguje skvěle, pokud váš sloupec A není = prázdný. Na listech s prázdným sloupcem A se zdá, že se přepisuje. V mém dtaa sloupec E není prázdný na všech listech. Jak mohu upravit cíl kopírování, aby zohlednil prázdný sloupec A na některých listech?
Tento komentář byl moderátorem webu minimalizován
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 až 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection .End(xlToRight)).Select Selection.Cut Sheets("Sheet1").Select ActiveSheet.Paste Next End Sub
Tento komentář byl moderátorem webu minimalizován
Range("A:A").SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1, 0).Vyberte 'použít tento kód k výběru poslední buňky ve sloupci "A" [quote] Sub CopySheet() ' ' Makro CopySheet ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection .Cut Sheets("Sheet1").Select ActiveSheet.Paste Next End SubOd clopez[/ Quote]
Tento komentář byl moderátorem webu minimalizován
MAKRO KÓD FUNGoval TAK SKVĚLE... VÝBORNÁ PRÁCE :-)
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL