Piškotki nam pomagajo dostaviti naših storitev. Z uporabo naših storitev se strinjate z našo uporabo piškotkov.
Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako združiti več delovnih zvezkov v eno delovno knjigo v Excelu?

Ste že kdaj obtičali, ko morate združiti več delovnih zvezkov v eno delovno knjigo v Excelu? Najbolj grozno je, da delovni zvezek, ki ga morate združiti, vsebuje več delovnih listov. Ali lahko kdo predlaga dober način za reševanje tega problema?

Združite več delovnih zvezkov v eno delovno knjigo z VBA

Združite več delovnih zvezkov z enim delom z ukazom Move or Copy

Preprosto združite več delovnih zvezkov v eno delovno knjižico s programom Kutools for Excel


Preprosto združite več delovnih listov / delovnih zvezkov v enega delovnega lista / delovnega zvezka:

Združevanje več delovnih listov ali delovnih zvezkov v enem samem delovnem listu ali delovnem zvezku je lahko ogromna naloga pri vsakodnevnem delu. Ampak, če imate Kutools za Excel, njegova močna koristnost - Združite vam lahko pomagajo hitro kombinirati več delovnih listov, delovnih zvezkov v enega delovnega lista ali delovnega zvezka. Prenesite celotno funkcijo 60-dnevna brezplačna sled Kutools za Excel zdaj!

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Združite več delovnih zvezkov v eno delovno knjigo z VBA

Za kvalificirane in profesionalne programerje lahko s skripti VBA združite več delovnih zvezkov v eno glavno delovno knjigo. To lahko storite z naslednjimi koraki:

1. Vstavite vse delovne zvezke, ki jih želite združiti v isti imenik. Prikaz slike:

2. Zaženite datoteko Excel, v katero želite združiti druge delovne zvezke.

3. Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije se prikaže okno, kliknite Vstavi > Moduli, in vnesite naslednjo kodo v modul:

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

Nasvet: V zgornji kodi lahko pot spremenite v tisto, ki jo uporabljate.

4. Nato kliknite doc-merge-multiple-workbooks-gumb gumb za zagon kode in vsi delovni listi (vključno s praznimi delovnimi listi) znotraj delovnih zvezkov so bili združeni v glavni delovni zvezek.

Opombe: Ta VBA koda lahko združi celotne delovne knjige v glavni delovni zvezek, če želite združiti določene delovne liste delovnih zvezkov, ta koda ne bo delovala.


Združite več delovnih zvezkov z enim delom z ukazom Move or Copy

Če ste novinar iz Microsoft Excel-a, nimate druge izbire, vendar morate samo kopirati podatke vsakega lista in jih prilepiti v nov delovni zvezek, eden za drugim, in uporabiti ukaz Move or Copy. Uporabljati Premakni ali Kopiraj ukaz vam bo pomagal, da hitro izvozite ali kopirate eno ali več delovnih listov v novo delovno knjigo.

1. Odprite vse delovne zvezke, ki jih želite združiti v en delovni zvezek.

2. Izberite vse delovne liste delovnega zvezka v vrstici zavihek. Izberete lahko več z držanjem navzdol Ctrl ključ ali Shift ključ. Z desno miškino tipko kliknite ime delovnega lista in kliknite Premakni ali Kopiraj iz kontekstnega menija.

3. v Premakni ali Kopiraj v pogovornem oknu izberite glavni delovni zvezek, s katerim želite združiti druge delovne zvezke s spustnega seznama Premakni izbrane liste za rezervacijo. Nato navedite lokacijo združenih delovnih listov. Oglejte si posnetke zaslona:

4. Nato kliknite OK. Izbrani delovni listi so bili premaknjeni v glavni delovni zvezek.

5. Ponovite korake iz 2-a v 4 in premaknite druge delovne knjige v glavni delovni zvezek. Potem združuje vse delovne liste odprtih delovnih zvezkov v eno delovno knjigo. Oglejte si posnetke zaslona:


Preprosto združite več delovnih zvezkov v eno delovno knjižico s programom Kutools for Excel

Na srečo, za novince in nove roke Microsoft Excel, obstaja nekaj razpoložljivih orodij, ki vam pomagajo hitro združiti več sto delovnih zvezkov v eno. Funkcija Združite in Kutools za Excel omogoča veliko lažje združevanje več Excelovih datotek. Aplikacija se uporablja za sprostitev ponavljajočih in odvečnih operacij v Excelu. Pravzaprav igra pomembno vlogo, če se morate v vsakodnevnem delu ukvarjati z veliko količino datoteke Excel. Zdaj pa poglejmo, kako naj ta funkcija deluje pri združevanju več delovnih zvezkov.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, brezplačno lahko poskusite brez omejitev v 60 dneh.

1. Omogočite Excel in kliknite Kutools Plus > Združite. Nato se prikaže pogovorno okno, ki vas opomni, da je treba shraniti vse kombinirane delovne zvezke in da funkcije ni mogoče uporabiti za zaščitene delovne zveze, kliknite OK gumb.

2. v Združite delovne liste čarovnika, izberite Združite več delovnih listov iz delovnih zvezkov v en delovni zvezekin nato kliknite Naslednji gumb. Prikaz slike:

2. Nato lahko vidite vse odprte delovne zvezke in delovne liste, navedene v Združite delovne liste - korak 2 3 pogovorno okno. Kliknite na Dodaj > file / Mapa dodajte druge Excelove datoteke ali mape, ki vsebujejo datoteke Excel, ki jih boste združili. Ko izberete datoteke, kliknite Naslednji gumb za nadaljevanje. Prikaz slike:

doc združiti več delovnih zvezkov arrow1

3. v Združite delovne liste - korak 3 3 pogovorno okno, naredite naslednje nastavitve:

  • 3.1 Vse prazne delovne liste lahko izključite tako, da izberete Preskoči Iz Ko naletite na prazen delovni list spustni seznam.
  • 3.2 Preverite Prva vrstica vsakega delovnega lista (Comment) možnost vstavljanja podatkov o vsakem kombiniranem delovnem listu.
  • 3.3 Nove kombinirane delovne liste lahko preimenujete z vstavljanjem imen delovne knjige pred ali po prvotnih imenih delovnega lista ali pa samo ime izvornega imenskega lista odstranite tako, da počistite Z vstavitvijo imena delovnega zvezka možnost.
  • 3.4 Kliknite na Konec gumb.

4. Nato izberite mapo, da shranite kombinirano delovno zvezo in jo odprete, ko jo potrebujete. Zdaj so vsi določeni delovni zvezki združeni v eno.

Opombe:

1. Vas bo vprašal, ali želite shraniti ta scenarij. Kliknite Da po potrebi shranite, nato pa vnesite ime scenarija (glejte naslednje posnetke zaslona). Ko shranite scenarij, morate klikniti samo Scenarij gumb, da izberete ime scenarija v čarovniku step2, če ga želite neposredno uporabljati.

2. Delovni listi v izbranih delovnih zvezkih so bili združeni v novo delovno knjižico in delovni listi so označeni z imenom delovne knjige pred ali po prvotnem imenu delovnega lista, če ste preverili Z vstavitvijo imena delovnega zvezka možnost. Medtem je bil imenovan nov delovni list Kutools za Excel je ustvarjen pred vsemi delovnimi listi, v katerih so navedeni delovni zvezki s podrobnimi podatki o vsakem delovnem listu. Prikaz slike:

3. Če je ime vašega delovnega lista predolgo, so morda imena znakov večje od 31characters, kombinirano ime ne bo prikazano in bo prikazano samo izvirno ime lista.

Nasvet.Če želite imeti brezplačen preskus tega pripomočka, pojdite na brezplačno prenesete programsko opremo najprej in pojdite, da uporabite operacijo v skladu z zgornjimi koraki.


Office Tab - brskanje, urejanje in upravljanje črk v Excelu:

Office Tab prikaže vmesnik z zavihki, kot ga vidite v spletnih brskalnikih, kot so Google Chrome, nove različice programa Internet Explorer in Firefox v Microsoft Excel. To bo orodje za varčevanje z energijo in neupoštevanje vašega dela. Glej spodaj predstavitev:

Kliknite brezplačno preskusno različico Office Tab!

Zavihek Office za Excel

Demo: preprosto združite več delovnih zvezkov z enim delovnim zvezkom s programom Kutools for Excel




Sorodni članki:



Priporočena orodja za produktivnost

Office Tab

zlata zvezda1 Pripeljite priročne zavihke v programsko opremo Excel in drugo programsko opremo, tako kot Chrome, Firefox in novi Internet Explorer.

Kutools za Excel

zlata zvezda1 Neverjetno! Povečajte produktivnost v minutah 5. Ne potrebujete posebnih veščin, prihranite dve uri vsak dan!

zlata zvezda1 300 Nove funkcije za Excel, naredite Excel precej enostavno in zmogljivo:

  • Spoji celice / vrstice / stolpci brez izgube podatkov.
  • Združite in konsolidirajte več listov in delovnih zvezkov.
  • Primerjajte obsege, kopiraj več razponov, pretvorite besedilo v datum, pretvorbo enote in valute.
  • Count by Colors, Paging Subtotals, Advanced Sort in Super Filter,
  • Več Izberite / Vstavi / Izbriši / Besedilo / Format / Povezava / Komentar / Delovne knjige / Delovni listi ...

Zaslonski posnetek Kutools za 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 · 5 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 · 5 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.