Kolačići nam pomoći isporučiti naše usluge. Korištenjem naših usluga, pristajete na naše korištenje kolačića.
Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijaviti se
x
or
x
x
Registrirajte se
x

or

Kako kombinirati više radnih bilježaka u jednu radnu knjigu u programu Excel?

Jeste li ikada bili zaglavi kada morate kombinirati više radnih knjiga u jednu radnu knjigu u Excelu? Najstrašnije je što radna knjiga koju trebate kombinirati sadrži više radnih listova. Može li itko predložiti dobar način za rješavanje ovog problema?

Kombinirajte više radnih bilježaka u jednu radnu knjigu s VBA

Kombinirajte više radnih knjiga u jednu radnu knjigu s naredbom Premjesti ili Kopiraj

Jednostavno kombiniranje više radnih knjiga s jednom radnom knjigom s Kutools za Excel


Jednostavno kombiniranje više radnih listova / radnih knjiga u jedan radni list / radnu knjigu:

Kombiniranje više radnih listova ili radnih knjiga u jedan jedini radni list ili radnu knjigu može biti veliki zadatak u vašem svakodnevnom radu. Ali, ako jeste Kutools za Excel, njegov snažan uslužni program - Kombinirati može vam pomoći da brzo kombinirate više radnih listova, radne knjige u jedan radni list ili radnu knjigu. Preuzmite punu značajku besplatne staze Kutools za Excel 60-dana!

Kutools za Excel: s više od 200 zgodnih Excel dodataka, slobodan pokušati bez ograničenja u 60 dana. Preuzmite i besplatno testiranje odmah!


Kombinirajte više radnih bilježaka u jednu radnu knjigu s VBA

Za vješt i profesionalne programere, možete koristiti VBA skripte kombinirati više radnih knjiga u jednu glavnu radnu knjigu. To možete poduzeti slijedećim koracima:

1, Stavite sve radne knjige koje želite kombinirati u isti direktorij. Pogledajte snimak zaslona:

2, Pokrenite Excel datoteku koju želite kombinirati s drugim radnim knjigama.

3, Klik razvijač > Visual Basic, novi Microsoft Visual Basic za aplikacije prozor će se prikazati, kliknite umetak > Moduli, i upišite sljedeći kod u 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

vrsta: U gornjem kodu možete promijeniti put do onog koji koristite.

4. Zatim kliknite doc pisma-više-radne knjige gumb gumb za pokretanje koda, a svi radni listovi (uključujući prazne listove) unutar radnih knjiga spojeni su u glavnu radnu knjigu.

bilješke: Ovaj VBA kod može spojiti cijelu radnu knjigu u glavnu radnu knjigu, ako želite kombinirati određene listove radnih knjiga, ovaj kôd neće funkcionirati.


Kombinirajte više radnih knjiga u jednu radnu knjigu s naredbom Premjesti ili Kopiraj

Ako ste rookie programa Microsoft Excel, nemate drugog izbora nego samo kopirajte podatke svakog lista i zalijepite ih u novu radnu knjigu jednu po jednu i primijenite naredbu Premjesti ili Kopiraj. Koristiti Premjesti ili Kopiraj naredba će vam pomoći izvesti ili kopirati jedan ili nekoliko radnih listova na novu radnu knjigu brzo.

1, Otvorite sve radne knjige koje želite spojiti u jednu radnu knjigu.

2, Odaberite sve nazive radnih listova radne knjige na traci sa karticama. Možete odabrati više s pritiskom Ctrl ključ ili smjena ključ. Desnom tipkom miša kliknite naziv radnog lista, a zatim kliknite gumb Premjesti ili Kopiraj iz kontekstnog izbornika.

3, u Premjesti ili Kopiraj dijaloški okvir, odaberite glavnu radnu knjigu koju želite spojiti s drugim radnim knjigama iz padajućeg popisa Premjestite odabrane listove u knjigu, A zatim navedite mjesto spojenih radnih listova. Pogledajte snimke zaslona:

4, Zatim kliknite OK, Odabrani radni listovi premješteni su u glavnu radnu knjigu.

5, Ponovite korake od 2 do 4 da biste premjestili druge radne knjige u glavnu radnu knjigu. Zatim kombinira sve radne listove otvorenih radnih knjiga u jednu radnu knjigu. Pogledajte snimke zaslona:


Jednostavno kombiniranje više radnih knjiga s jednom radnom knjigom s Kutools za Excel

Srećom, za novostečene i nove ruke programa Microsoft Excel, postoje neki dostupni alati koji će vam pomoći da brzo kombinirate stotine radnih knjiga u jednu. Funkcija Kombinirati in Kutools za Excel olakšava kombiniranje više Excel datoteka. Aplikacija se koristi za otpuštanje ponavljajućih i redundantnih operacija u programu Excel. To zapravo igra važnu ulogu ako se morate nositi s velikom količinom Excel datoteke u svakodnevnom radu. Sada vidimo kako funkcionirati ova funkcija u kombinaciji s više radnih knjiga.

Kutools za Excel : s više od 300 zgodnih Excel dodataka, bez pokušaja bez ograničenja u 60 danima.

1. Omogućite Excel i kliknite Kutools Više > Kombinirati, Zatim se pojavljuje dijaloški okvir kako bi vas podsjetio da sve kombinirane radne knjige trebaju biti spremljene i da se značajka ne može primijeniti na zaštićene radne knjige, molimo kliknite na OK tipku.

2. U Kombinirajte radne listove čarobnjak, odaberite Kombinirajte više radnih listova iz radnih knjiga u jednu radnu knjigu, a zatim kliknite gumb Sljedeći dugme. Pogledajte snimak zaslona:

2, Zatim možete vidjeti sve otvorene radne knjige i radne listove na popisu Kombinirajte radne listove - Korak 2 od 3 dijaloški okvir. Kliknite gumb dodati > file / Mapa dodati druge Excel datoteke ili mape koje sadrže Excel datoteke koje ćete kombinirati. Nakon odabira datoteka, kliknite na Sljedeći gumb za nastavak. Pogledajte snimak zaslona:

doc spojiti više radnih knjiga arrow1

3. U Kombinirajte radne listove - Korak 3 od 3 dijaloški okvir, učinite sljedeće:

  • 3.1 Možete izuzeti sve prazne listove iz spajanja odabirom Preskočiti od Kada naiđete na prazan radni list padajući popis.
  • 3.2 Provjerite Prvi red svakog radnog lista (komentar) opciju za umetanje podataka o radnom listu svakog kombiniranog radnog lista.
  • 3.3 Novi kombinirani listovi možete preimenovati umetanjem naziva radne knjige prije ili poslije prvobitnih naziva radnih listova ili jednostavno zadržati izvorne nazive radnih lista bez uklanjanja Unosom naziva radne knjige opcija.
  • Kliknite 3.4 završiti tipku.

4, Zatim odaberite mapu za spremanje kombinirane radne knjige i otvorite ga izravno po potrebi. Sada se sve navedene radne knjige kombiniraju u jednu.

Napomene:

1. Bit ćete upitani želite li spremiti ovaj scenarij. Klik Da da biste spremili što vam je potrebno, unesite naziv scenarija, (pogledajte sljedeće snimke zaslona). Nakon što spremite scenarij, trebate kliknuti scenario gumb za odabir naziva scenarija na čarobnjaku step2 kako biste ga izravno koristili.

2, Radni listovi u odabranim radnim knjigama spojeni su u novu radnu knjigu, a radni listovi nazivaju se nazivom radne knjige prije ili poslije izvornog naziva radne liste ako ste provjerili Unosom naziva radne knjige opcija. U međuvremenu, novi radni list nazvan Kutools za Excel generira se prije svih radnih listova, koji navodi radne knjige s detaljnim informacijama o svakom listu radnih listova. Pogledajte snimak zaslona:

3. Ako je ime vašeg radnog lista predugo, možda su znakovi imena veći od 31 znakova, kombinirano ime neće biti prikazano i samo će prikazati izvorni naziv lista.

Savjet.Ako želite imati besplatnu probnu verziju tog uslužnog programa, idite na besplatno preuzimanje softvera najprije, a zatim idite na primjenu operacije prema gore navedenim koracima.


Kartica sustava Office - Kartično pregledavanje, uređivanje i upravljanje radnim knjigama u Excelu:

Kartica Office donosi kartice sučelje koje se vidi u web preglednicima kao što su Google Chrome, nove verzije programa Internet Explorer i Firefox za Microsoft Excel. To će biti alat koji štedi vrijeme i nezamjenjiv je u svom radu. Pogledajte demonstraciju u nastavku:

Kliknite besplatnu probnu verziju Office Kartica!

Kartica Office za Excel

Demo: Jednostavno kombiniranje više radnih knjiga s jednom radnom knjigom s Kutools za Excel




Vezani članci:



Preporučeni alati za produktivnost

Kartica sustava Office

zlato star1 Donesite praktične kartice u program Excel i drugi Office, kao što su Chrome, Firefox i novi Internet Explorer.

Kutools za Excel

zlato star1 Nevjerojatno! Povećajte produktivnost u 5 minuta. Ne trebaju nikakve posebne vještine, osim dva sata svaki dan!

zlato star1 300 nove značajke za Excel, izraditi Excel mnogo jednostavan i snažan:

  • Spoji ćeliju / retke / stupce bez gubitka podataka.
  • Kombinirajte i konsolidirajte više tablica i radnih knjiga.
  • Usporedba raspona, kopiranje više raspona, pretvaranje teksta na datum, jedinica i pretvorba valuta.
  • Count po bojama, Paging Subtotal, Advanced Sort i Super Filter,
  • Više Odabir / umetanje / brisanje / tekst / oblikovanje / veza / komentar / radne knjige / alati za radne listove ...

Screen shot tvrtke 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 · 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 · 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.