Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak kombinovat více sešitů do jednoho sešitu v aplikaci Excel?

Byl jste někdy uvízli, když musíte kombinovat více sešitů do jednoho sešitu v aplikaci Excel? Nejnebezpečnější je, že sešit, který potřebujete ke kombinaci, obsahuje více pracovních listů. Může někdo navrhnout dobrý způsob, jak zvládnout tento problém?

Kombinovat více sešitů do jednoho sešitu s VBA

Kombinovat více sešitů do jednoho sešitu s příkazem Přesunout nebo Kopírovat

Snadné kombinace více sešitů do jednoho sešitu s programem Kutools for Excel


Snadno kombinujte více pracovních listů / sešitů do jednoho pracovního listu / sešitu:

Kombinovat více pracovních listů nebo sešitů do jednoho pracovního listu nebo sešitu může být obrovským úkolem v každodenní práci. Ale pokud máte Kutools pro Excel, jeho výkonnost - Kombinovat vám může pomoci rychle spojit více listů, sešitů do jednoho listu nebo sešitu. Stáhněte si plnou funkci bezplatnou stopu 60 pro denní program Kutools for Excel!

Kutools pro Excel: s více než 200 šikovnými doplňky aplikace Excel, můžete zkusit bez omezení v 60 dnech. Stáhněte si bezplatnou zkušební verzi teď!


Kombinovat více sešitů do jednoho sešitu s VBA

Pro kvalifikované a profesionální programátory můžete skripty VBA kombinovat více sešitů do jednoho hlavního sešitu. S tímto můžete řešit následující kroky:

1. Vložte všechny sešity, které chcete spojit do stejného adresáře. Zobrazit screenshot:

2. Spusťte soubor aplikace Excel, který chcete kombinovat do jiných sešitek.

3, klikněte Vývojka > Visual Basic, nový Microsoft Visual Basic pro aplikace zobrazí se okno, klepněte na tlačítko Vložit > Modul, a do modulu zadejte následující kód:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Tip: Ve výše uvedeném kódu můžete změnit cestu k té, kterou používáte.

4. Pak klikněte na tlačítko Tlačítko doc-merge-multiple-workbooks-button aby byl kód spuštěn a všechny listy (včetně prázdných listů) v seštech byly sloučeny do hlavního sešitu.

Poznámka: Tento kód VBA může sloučit celé sešity do hlavního sešitu, pokud chcete kombinovat určité listy sešity, tento kód nebude fungovat.


Kombinovat více sešitů do jednoho sešitu s příkazem Přesunout nebo Kopírovat

Pokud jste nováček aplikace Microsoft Excel, nemáte jinou možnost, než kopírovat data z každého listu a vložit je do nového sešitu jeden po druhém a použít příkaz Přesunout nebo Kopírovat. Za použití Přesunout nebo Kopírovat příkaz vám pomůže rychle exportovat nebo kopírovat jeden nebo více pracovních listů do nového sešitu.

1. Otevřete všechny sešity, které chcete sloučit do jednoho sešitu.

2. Vyberte všechny názvy pracovního listu sešitu v panelu tabulek. Při podržení můžete vybrat více položek Ctrl nebo směna klíč. Klepněte pravým tlačítkem myši na název pracovního listu a klepněte na tlačítko Přesunout nebo Kopírovat z kontextové nabídky.

3, v Přesunout nebo Kopírovat , vyberte hlavní sešit, ze kterého chcete sloučit jiné sešity z rozbalovacího seznamu Přesunout vybrané listy pro rezervaci. Potom zadejte umístění sloučených pracovních listů. Zobrazit screenshoty:

4. Pak klikněte na tlačítko OK. Vybrané listy byly přesunuty do hlavního sešitu.

5. Opakujte kroky 2 na 4 přesunout jiné sešity do sešitu hlavního počítače. Pak kombinuje všechny listy otevřených sešitů do jednoho sešitu. Zobrazit screenshoty:


Snadné kombinace více sešitů do jednoho sešitu s programem Kutools for Excel

Naštěstí pro začátečníky a nové ruce aplikace Microsoft Excel existují některé dostupné nástroje, které vám pomohou rychle spojit stovky pracovních sešitů do jednoho. Funkce Kombinovat in Kutools pro Excel usnadňuje kombinování více souborů aplikace Excel. Aplikace se používá pro uvolnění opakovaných a redundantních operací v aplikaci Excel. Ve skutečnosti hraje důležitou roli, pokud se ve své každodenní práci budete muset vypořádat s velkým množstvím souboru aplikace Excel. Nyní se podívejme, jak tuto funkci využít při kombinování více sešitů.

Kutools pro Excel : s více než 300 šikovnými doplňky aplikace Excel, zkusit bez omezení v 60 dnech.

1. Povolte aplikaci Excel a klepněte na tlačítko Kutools Plus > Kombinovat. Poté se zobrazí dialogové okno, které vám připomene, že všechny kombinované sešity by měly být uloženy a funkce nelze použít na chráněné sešity. OK tlačítko.

2. V Kombinace pracovních listů průvodce vyberte Kombinovat více pracovních listů ze sešitu do jednoho sešitu, a potom klepněte na tlačítko další tlačítko. Zobrazit screenshot:

2. Poté můžete vidět, že všechny otevřené sešity a pracovní listy jsou uvedeny v seznamu Kombinace pracovních listů - krok 2 z 3 dialogové okno. Klepněte na tlačítko přidat > Soubor / Desky přidat další soubory nebo složky aplikace Excel, které obsahují soubory aplikace Excel, které budete kombinovat. Po výběru souborů klepněte na tlačítko další tlačítko pro pokračování. Zobrazit screenshot:

doc sjednotit více sešitů arrow1

3. V Kombinace pracovních listů - krok 3 z 3 , proveďte následující nastavení:

  • 3.1 Můžete vyloučit všechny prázdné listy ze sloučení výběrem Přeskočit z Když narazíte na prázdný list rozbalovací seznam.
  • 3.2 Zkontrolujte První řádek každého listu (komentář) možnost vložit informace o pracovním listu z každého kombinovaného pracovního listu.
  • 3.3 Nové kombinované listy můžete přejmenovat vložením názvů sešitu před nebo po původních názvech pracovních listů nebo pouze zachovat původní názvy pracovních listů zrušením zaškrtnutí Vložením názvu sešitu volba.
  • 3.4 Klepněte na úprava tlačítko.

4. Potom vyberte složku pro uložení kombinovaného sešitu a otevřete jej přímo, jak potřebujete. Nyní jsou všechny uvedené sešity kombinovány do jednoho.

Poznámky:

1. Budete dotázáni, zda chcete tento scénář uložit. Klikněte na tlačítko Ano pro uložení podle potřeby, zadejte název scénáře, (viz následující screenshoty). Po uložení scénáře stačí kliknout Scénář , chcete-li zvolit název scénáře na průvodci step2 a použít jej přímo.

2. Pracovní listy ve vybraných seštech byly sloučeny do nového sešitu a pracovní listy jsou pojmenovány se seznamem sešitů před nebo po původním názvu pracovního listu, pokud jste zkontrolovali Vložením názvu sešitu volba. Mezitím nový list s názvem Kutools pro Excel je generována před všemi pracovními listy, ve kterých jsou uvedeny sešity s podrobnými informacemi o jednotlivých listech. Zobrazit screenshot:

3. Pokud je název vašeho listu příliš dlouhý, možná jsou znaky znaků větší než znaky 31, kombinovaný název se nezobrazí a zobrazí pouze původní název listu.

Tip.Pokud chcete mít zdarma zkušební verzi tohoto nástroje, přejděte na stránku stáhnout software volně nejprve a pak použijte operaci podle výše uvedených kroků.


Karta Office - Prohlížení v tabulkách, úpravy a správa sešitů v aplikaci Excel:

Karta Office přináší rozhraní s kartami, jak je vidět na webových prohlížečích, jako je Google Chrome, nová verze aplikace Internet Explorer a Firefox do aplikace Microsoft Excel. Bude to časově úsporný nástroj a nenahraditelný ve vaší práci. Pod demo:

Klikněte na bezplatné zkušební verzi aplikace Office Tab!

Záložka Office pro aplikaci Excel

Demo: Snadné kombinace více sešitů do jednoho sešitu s programem Kutools for Excel




Související články:



Doporučené nástroje pro produktivitu

Karta Office

zlatá hvězda1 Přiveďte praktické karty do aplikace Excel a jiného softwaru Office, stejně jako Chrome, Firefox a nový Internet Explorer.

Kutools pro Excel

zlatá hvězda1 Úžasný! Zvyšte svou produktivitu v minutách 5. Nepotřebujete žádné speciální dovednosti, kromě dvou hodin denně!

zlatá hvězda1 300 Nové funkce pro aplikaci Excel, Značka Excel je velmi snadná a výkonná:

  • Sloučit buňky / řádky / sloupce bez ztráty dat.
  • Kombinovat a konsolidovat více listů a sešitů.
  • Srovnání rozsahů, kopírování více rozsahů, převod textu na datum, konverzi jednotek a měn.
  • Počet podle barvy, dílčí součty stránkování, třídění podle rozšířeného třídění a super filtru,
  • Více Vyberte / Vložit / Odstranit / Text / Formát / Odkaz / Komentář / Workbooks / Worksheets Nástroje ...

Snímka obrazovky Kutools pro Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 6 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 4 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      Dim xI As Integer
      On Error Resume Next

      xStrPath = " C:\Users\DT168\Desktop\KTE\"
      xStrName = "Sheet1,Sheet3"

      xArr = Split(xStrName, ",")

      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      xStrFName = Dir(xStrPath & "*.xlsx")
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      For xI = 0 To UBound(xArr)
      If xWS.Name = xArr(xI) Then
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
      xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
      Exit For
      End If
      Next xI
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 4 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      On Error Resume Next
      xStrPath = "C:\Users\DT168\Desktop\KTE\"
      xStrFName = Dir(xStrPath & "*.xlsx")
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
      xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.