Tip: Iné jazyky sú Google preložené. Môžete navštíviť English verziu tohto odkazu.
Prihlásiť sa
x
or
x
x
Registrovať
x

or

Ako kombinovať viaceré zošity do jedného zošita v programe Excel?

Už ste niekedy uviazli, keď musíte kombinovať viac pracovných zošitov do jedného zošitov v programe Excel? Najstrašnejšia vec spočíva v tom, že pracovný zošit, ktorý potrebujete skombinovať, obsahuje viacero pracovných hárkov. Môže niekto navrhnúť dobrý spôsob, ako zvládnuť tento problém?

Skombinujte viaceré zošity do jedného zošita s VBA

Skombinujte viac pracovných kníh do jedného zošita s príkazom Presunúť alebo Kopírovať

Jednoducho kombinujte viaceré zošitov do jedného zošita s programom Kutools for Excel


Jednoducho kombinujte viaceré pracovné listy / zošity do jedného pracovného hárka / zošita:

Kombinácia viacerých pracovných hárkov alebo pracovných zošitov do jedného pracovného hárka alebo zošita môže byť obrovskou úlohou vo vašej každodennej práci. Ale ak máte Kutools pre Excel, jeho výkonnosť - Kombinovať vám pomôže rýchlo skombinovať viaceré pracovné listy, zošity do jedného pracovného hárka alebo zošita. Prevezmite plnú funkciu bezplatnej trasy pre 60 za deň z programu Kutools for Excel!

Kutools pre Excel: s viac ako 200 šikovnými doplnkami programu Excel, môžete skúsiť bez obmedzenia v dňoch 60. Stiahnite si bezplatnú skúšobnú verziu teraz!


Skombinujte viaceré zošity do jedného zošita s VBA

Pre kvalifikovaných a profesionálnych programátorov môžete skripty VBA kombinovať viaceré zošitov do jedného hlavného zošita. Môžete to vyriešiť pomocou nasledujúcich krokov:

1, Vložte všetky pracovné zošity, ktoré chcete skombinovať, do rovnakého adresára. Pozri snímku obrazovky:

2, Spustite súbor programu Excel, do ktorého chcete kombinovať iné pracovné zošity.

3, kliknite Vývojka > Visual Basic, Nový Microsoft Visual Basic pre aplikácie okno sa zobrazí, kliknite na tlačidlo Vložiť > Modulya vložte do modulu nasledujúci 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: Vo vyššie uvedenom kóde môžete zmeniť cestu k tej, ktorú používate.

4. Potom kliknite na tlačidlo doc-merge-viacnásobné zošitov tlačidlá tlačidlo pre spustenie kódu a všetky pracovné hárky (vrátane prázdnych pracovných hárkov) v rámci pracovných kníh boli zlúčené do hlavného zošita.

Poznámky: Tento kód VBA môže zlúčiť celý zošit do hlavného zošita, ak chcete kombinovať špecifikované pracovné zošity zošitov, tento kód nebude fungovať.


Skombinujte viac pracovných kníh do jedného zošita s príkazom Presunúť alebo Kopírovať

Ak ste nováčikom programu Microsoft Excel, nemáte inú možnosť, ale len skopírovať údaje z každého hárku a vložiť ich do nového zošita jeden po druhom a aplikovať príkaz Presunúť alebo Kopírovať. Použitie Presunúť alebo Kopírovať príkaz vám pomôže exportovať alebo skopírovať jeden alebo niekoľko pracovných hárkov do nového zošita rýchlo.

1, Otvorte všetky pracovné zošity, ktoré chcete zlúčiť do jedného zošita.

2, Vyberte všetky názvy pracovných hárkov zošita v tabuľkovom paneli. Môžete si vybrať viacero s podržaním ctrl alebo smena Kľúč. Kliknite pravým tlačidlom myši na názov pracovného hárka a kliknite na tlačidlo Presunúť alebo Kopírovať z kontextového menu.

3, v Presunúť alebo Kopírovať dialógovom okne vyberte hlavný zošit, z ktorého chcete zlúčiť iné pracovné zošity z rozbaľovacieho zoznamu Presunúť vybrané hárky na rezerváciu, Potom zadajte umiestnenie zlúčených pracovných hárkov. Pozrite si screenshoty:

4, Potom kliknite na tlačidlo OK, Vybrané pracovné hárky boli presunuté do hlavného zošita.

5, Opakujte kroky od 2 do 4 a presuňte ostatné zošity do hlavného zošita. Potom kombinuje všetky pracovné hárky otvorených zošity do jedného zošita. Pozrite si screenshoty:


Jednoducho kombinujte viaceré zošitov do jedného zošita s programom Kutools for Excel

Našťastie pre nováčikov a nové ruky programu Microsoft Excel existujú niektoré dostupné nástroje, ktoré vám pomôžu rýchlo kombinovať stovky pracovných zošitov do jedného. Funkcia Kombinovať in Kutools pre Excel umožňuje oveľa jednoduchšie kombinovať viaceré súbory programu Excel. Aplikácia sa používa na uvoľnenie opakovaných a redundantných operácií v programe Excel. V skutočnosti zohráva dôležitú úlohu, ak máte v každodennej práci riešiť veľké množstvo súborov programu Excel. Teraz sa pozrime, ako získať túto funkciu v kombinácii viacerých zošity.

Kutools pre Excel : s viac ako 300 šikovnými doplnkami programu Excel, bezplatne vyskúšať bez obmedzenia v dňoch 60.

1. Povoliť program Excel a kliknite na tlačidlo Kutools Plus > Kombinovať, Potom sa objaví dialógové okno, ktoré vám pripomenie, že všetky kombinované pracovné zošity sa majú uložiť a funkcia nemožno použiť na chránené zošity, kliknite na OK tlačidlo.

2. V Skombinujte pracovné hárky vyberte sprievodcu Skombinujte viacero pracovných hárkov zo zošitov do jedného zošitaa potom kliknite na tlačidlo ďalšie Tlačidlo. Pozri snímku obrazovky:

2, Potom môžete vidieť, že všetky otvorené zošity a pracovné hárky sú uvedené v zozname Skombinujte pracovné hárky - krok 2 z 3 dialógové okno. Kliknite na tlačidlo pridať > rezeň / Dosky pridať ďalšie súbory alebo priečinky programu Excel, ktoré obsahujú súbory programu Excel, ktoré budete kombinovať. Po výbere súborov kliknite na ďalšie tlačidlo pre pokračovanie. Pozri snímku obrazovky:

skombinujte viacero zošitov arrow1

3. V Skombinujte pracovné hárky - krok 3 z 3 dialógové okno, vykonajte nasledujúce nastavenia:

  • 3.1 Môžete vylúčiť všetky prázdne pracovné hárky z zlúčenia výberom Preskočiť z Keď narazíte na prázdny pracovný hárok rozbaľovací zoznam.
  • 3.2 Skontrolujte položku Prvý riadok každého pracovného hárka (komentár) možnosť vložiť informácie o pracovnom hárku z každého kombinovaného pracovného hárka.
  • 3.3 Nové kombinované pracovné hárky môžete premenovať vložením názvov zošitov pred alebo po pôvodných názvoch pracovného hárka alebo len zachovaním pôvodných názvov pracovných hárkov zrušením začiarknutia Vložením názvu zošita možnosť.
  • 3.4 Kliknite na úprava tlačidlo.

4, Potom vyberte priečinok na uloženie kombinovaného zošita a otvorte ho priamo, ako potrebujete. Teraz všetky špecifikované pracovné zošity sú kombinované do jedného.

Poznámky:

1. Zobrazí sa otázka, či chcete tento scenár uložiť. kliknite Áno aby ste uložili podľa potreby, zadajte názov scenára, (pozrite si nasledujúce screenshoty). Po uložení scenára stačí kliknúť Scenár stlačením tlačidla vyberte názov scenára na sprievodcovi step2, aby ste ho priamo použili.

2, Pracovné hárky vo vybraných zošitoch boli zlúčené do nového zošita a pracovné hárky sú pomenované s názvom zošity pred alebo po pôvodnom názve pracovného hárka, ak ste skontrolovali Vložením názvu zošita voľba. Medzitým nový pracovný hárok s názvom Kutools pre Excel je generovaná pred všetkými pracovnými listami, v ktorých sú uvedené pracovné zošity s podrobnými informáciami o každom pracovnom hárku. Pozri snímku obrazovky:

3. Ak je názov vášho pracovného hárka príliš dlhý, možno názvy znakov sú väčšie ako 31, kombinované meno sa nezobrazí a zobrazí sa len pôvodný názov listu.

Typu.Ak chcete mať bezplatnú skúšobnú verziu tohto nástroja, prejdite na stránku stiahnuť softvér voľne najskôr a potom prejdite na vykonanie operácie podľa vyššie uvedených krokov.


Karta Office - Prehliadanie, editovanie a správa pracovných kníh v programe Excel v záložkách:

Karta Office prináša rozhranie s kartami, ako je vidieť vo webových prehliadačoch, ako sú prehliadače Google Chrome, nové verzie programu Internet Explorer a Firefox do programu Microsoft Excel. Bude to časovo úsporný nástroj a nenahraditeľný vo svojej práci. Pozrite si nižšie demo:

Kliknite na bezplatnú skúšobnú verziu aplikácie Office Tab!

Záložka Office pre program Excel

Demo: Jednoducho skombinujte viaceré zošitov do jedného zošita s programom Kutools for Excel




Súvisiace články:



Odporúčané nástroje produktivity

Karta Office

zlatá hviezdička1 Prinášajte užitočné karty do programu Excel a iného softvéru balíka Office, rovnako ako Chrome, Firefox a nový Internet Explorer.

Kutools pre Excel

zlatá hviezdička1 Úžasný! Zvýšte svoju produktivitu za minúty 5. Nepotrebujú žiadne špeciálne schopnosti, okrem dvoch hodín denne!

zlatá hviezdička1 300 Nové funkcie pre program Excel, robiť Excel veľmi ľahké a výkonné:

  • Zlúčiť bunky / riadky / stĺpce bez straty dát.
  • Kombinácia a konsolidácia viacerých hárkov a pracovných kníh.
  • Porovnanie rozsahov, kopírovanie viacerých rozsahov, prevod textu na dátum, konverzia jednotiek a mien.
  • Počet podľa farieb, Medzisúčty stránkovania, Rozšírené triedenie a Super filter,
  • Viac Vyberte / Vložiť / Odstrániť / Text / Formát / Odkaz / Komentár / Pracovné zošity / pracovné listy Nástroje ...

Obraz obrazovky Kutools pre 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 · 5 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 · 3 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 · 3 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.