Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako kombinirati više radnih knjiga u jednu glavnu radnu knjigu u Excelu?

Jeste li ikada zaglavili kada morate kombinirati više radnih knjiga u glavnu radnu knjigu u Excelu? Najstrašnija stvar je da radne knjige koje trebate kombinirati sadrže više radnih listova. I kako kombinirati samo navedene radne listove više radnih knjiga u jednu radnu knjigu? Ovaj vodič prikazuje nekoliko korisnih metoda koje će vam pomoći u rješavanju koraka problema korak po korak.


Jednostavno kombinirajte više radnih knjiga u jedan u Excelu:

Odlomak Kombinirati radne knjige korisnost Kutools za Excel može vam pomoći da lako kombinirate više Excelovih datoteka u jednu. Osim toga, to vam omogućuje da samo kombinirati navedene radne listove određenih Excel datoteka na master radne knjige lako. Preuzmite punu značajku besplatne staze 60-a sada!

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

Ako treba kombinirati samo nekoliko radnih knjiga, možete koristiti naredbu Premjesti ili Kopiraj da biste ručno premjestili ili kopirali radne listove iz izvorne radne knjige u glavnu radnu knjigu.

1. Otvorite radne knjige koje ćete spojiti u glavnu radnu knjigu.

2. Odaberite radne listove u izvornoj radnoj knjizi koje ćete premjestiti ili kopirati u glavnu radnu knjigu.

Napomene:

1). Možete odabrati više ne-susjednih radnih listova s ​​držanjem Ctrl i jedan po jedan klikom na kartice.

2). Za odabir više susjednih radnih listova kliknite na karticu prvog lista, držite tipku smjena , a zatim kliknite karticu posljednjeg lista kako biste ih sve odabrali.

3). Možete kliknuti desnom tipkom na bilo koju karticu lista, kliknuti na Odaberite Sve tablice iz kontekstnog izbornika za odabir svih radnih listova u radnoj knjizi u isto vrijeme.

3. Nakon odabira potrebnih radnih listova, desnom tipkom miša kliknite karticu lista, a zatim kliknite Premjesti ili Kopiraj iz kontekstnog izbornika. Pogledajte snimak zaslona:

4. Onda Premjesti ili Kopiraj pojavljuje se dijaloški okvir Za knjigu padajućeg izbornika, odaberite glavnu radnu knjigu u koju ćete premjestiti ili kopirati radne listove. Odaberite premjestiti na kraj u Prije liste kutija, provjerite Napravite kopiju i konačno kliknite na gumb OK tipku.

Tada možete vidjeti radne listove u dvije radne knjige spojene u jednu. Molimo ponovite gore navedene korake za premještanje radnih listova iz drugih radnih knjiga u glavnu radnu knjigu.

Kartica Office - dodatak za uštedu vremena u stvarnom vremenu!

Prikažite sve otvorene dokumente u jednom prozoru kako biste brzo pronašli potreban dokument.

Cijeli besplatni probni 45-dan. Kompatibilan sa svim verzijama programa Excel, Word i PowerPoint.

UPOZNAJ VIŠE O DODATKU>

Kombinirajte više radnih knjiga ili određenih listova radnih knjiga s glavnom radnom knjigom s VBA

Ako postoji više radnih knjiga koje treba spojiti u jednu, možete primijeniti sljedeće VBA kodove da biste ih brzo postigli. Molimo Vas da učinite sljedeće.

1. Stavite sve radne knjige koje želite kombinirati u jednu u istom direktoriju.

2. Pokrenite Excel datoteku (ova radna knjiga bit će glavna radna knjiga).

3. pritisni drugo + F11 tipke za otvaranje Microsoft Visual Basic za aplikacije prozor. U Microsoft Visual Basic za aplikacije prozor, kliknite umetak > Moduli, zatim kopirajte ispod VBA koda u prozor Modula.

VBA kod 1: Spajanje više Excelovih radnih knjiga u jednu

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
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
	

Napomene:

1. Gornji VBA kôd će zadržati nazive lista izvornih radnih knjiga nakon spajanja.

2. Ako želite razlikovati koji su radni listovi u glavnoj radnoj knjizi došli odakle nakon spajanja, primijenite donji VBA kod 2.

3. Ako samo želite kombinirati određene radne listove radnih knjiga u glavnu radnu knjigu, može vam pomoći donji VBA kod 3.

U VBA kodovima, “C: \ Users \ DT168 \ Desktop \ KTE \Je putanja mape. U VBA kodu 3, "Sheet1, Sheet3"su navedeni radni listovi radnih knjiga koje ćete kombinirati s glavnom radnom knjigom. Možete ih promijeniti na temelju vaših potreba.

VBA kôd 2: Spajanje radnih knjiga u jednu (svaki radni list bit će imenovan s prefiksom izvornog naziva datoteke):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
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

VBA kod 3: Spajanje određenih radnih listova radnih knjiga u glavnu radnu knjigu:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
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

4. pritisni F5 za pokretanje koda. Zatim se svi radni listovi ili navedeni radni listovi radnih knjiga u određenoj mapi istovremeno spajaju s glavnom radnom knjigom.

Jednostavno kombinirajte više radnih knjiga ili određenih listova radnih knjiga u jednu radnu knjigu

Kutools za Excel

To je praktičan Excel dodatak koji prikuplja više od 300 naprednih značajki kako bi pojednostavio rad u Excelovim operacijama. Pomoću njega možete jednostavno:

  • Kombinirajte više radnih knjiga;
  • Broj / zbroj stanica po boji;
  • Podijeljene ćelije;
  • Grupno uklanjanje razmaka;
  • Više značajki ...

BESPLATNO DOWNLOAD NOW!

Srećom, Kombinirati korisnost radne knjige Kutools za Excel olakšava spajanje više radnih knjiga u jednu. Da vidimo kako funkcionirati ova funkcija u kombiniranju više radnih knjiga.

1. Stvorite novu radnu knjigu 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 opciju, a zatim kliknite gumb Sljedeći dugme. Pogledajte snimak zaslona:

3. U Kombinirajte radne listove - Korak 2 od 3 dijaloški okvir, kliknite dodati > file or Mapa da biste dodali Excelove datoteke spojit ćete se u jednu. Nakon dodavanja datoteka programa Excel kliknite završiti i odaberite mapu za spremanje glavne radne knjige. Pogledajte snimku zaslona:

Sada su sve radne knjige spojene u jednu.

U usporedbi s gore navedenim metodama, Kutools za Excel ima sljedeće prednosti:

  • 1) Sve radne sveske i radne liste navedene su u dijaloškom okviru;
  • 2) Za radne listove koje želite isključiti iz spajanja, samo poništite potvrdu;
  • 3) Prazni radni listovi se isključuju automatski;
  • 4) Naziv izvorne datoteke bit će dodan kao prefiks nazivu lista nakon spajanja;
  • Za više funkcija ove značajke, posjetite ovdje.

Da li ovo Kombinirajte radne sveske pomoć? Preuzimamo i isprobavamo cjelovitu besplatnu probnu verziju 60-dana!

Preporučeni alati za produktivnost za Microsoft Office

Kartica Office - Kartično pregledavanje, uređivanje i upravljanje u Excelu / Wordu / PowerPointu:

Kartica sustava Office donosi sučelja s karticama kao što se vidi u web preglednicima kao što su Google Chrome, Internet Explorer, nove verzije i Firefox u Microsoft Excel / Word / PowerPoint. To će biti alat za uštedu vremena i nezamjenjiv u vašem radu. Pogledajte demo ispod:

ot1

Kutools for Excel - kombinira više naprednih funkcija i alata za Microsoft Excel:

Kutools za Excel je zgodan Excel dodatak s više od 300 naprednih značajki za pojednostavljenje različitih vrsta kompliciranih zadataka u nekoliko klikova u Excelu. Na primjer:

  • Kombinirajte više radnih listova ili radnih knjiga u jednu radnu knjigu
  • Brojanje i zbrajanje stanica na temelju boje pozadine / fonta
  • Podijelite sadržaj ćelija u više redaka / stupaca razmakom / zarezom / razdjelnikom
  • Batch Uklanjanje vodećih prostora u stanicama
kte

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.