Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip sujungti kelias darbines knygas į vieną „Master“ darbo knygą „Excel“?

Ar kada nors buvote įstrigę, kai reikia sujungti kelias darbines knygas į „Master“ darbaknygę „Excel“? Labiausiai siaubingas dalykas yra tai, kad darbo knygose, kurias reikia sujungti, yra keli darbo lapai. Ir kaip sujungti tik kelis darbaknygių nurodytus darbalapius į vieną darbaknygę? Ši pamoka parodo keletą naudingų metodų, padedančių jums išspręsti probleminius žingsnius.


Lengvai sujunkite kelias darbaknygas į vieną „Excel“:

Itu Derinti darbaknygių naudingumas Kutools for Excel gali padėti lengvai sujungti kelis „Excel“ failus į vieną. Be to, galite lengvai sujungti tik tam tikrų „Excel“ failų nurodytas darbo lapus su pagrindine darbo knyga. Dabar atsisiųskite visą 60 dienos nemokamą taką!

Sujunkite kelias darbaknygas į vieną darbaknygę su funkcija Perkelti arba Kopijuoti

Jei yra tik keletas darbo knygų, kurias reikia sujungti, galite naudoti komandą Perkelti arba Kopijuoti rankiniu būdu perkelti ar kopijuoti darbalapius iš originalios darbaknygės į pagrindinę darbo knygą.

1. Atidarykite darbo knygas, kurias sujungsite į pagrindinę darbo knygą.

2. Pasirinkite originalias darbaknygės darbo lapus, kuriuos perkelsite arba nukopijuosite į pagrindinę darbo knygą.

Pastabos:

1). Galite pasirinkti kelis ne gretimus darbalapius, laikydami "Ctrl" paspaudus lapo skirtukus po vieną.

2). Jei norite pasirinkti kelis gretimus darbalapius, spustelėkite pirmąjį lapo skirtuką, laikykite perėjimas tada spustelėkite paskutinį lapo skirtuką ir pasirinkite juos visus.

3). Galite dešiniuoju pelės klavišu spustelėti bet kurį lapo skirtuką, spustelėkite Pasirinkite visus lapus iš kontekstinio meniu pasirinkite visus darbalapius vienu metu.

3. Pasirinkę reikiamus darbalapius, dešiniuoju pelės mygtuku spustelėkite lapo skirtuką ir spustelėkite Gerai Perkelti arba kopijuoti iš kontekstinio meniu. Žr. Ekrano kopiją:

4. Tada Perkelti arba kopijuoti pasirodo dialogo langas Užsakyti išskleidžiamajame meniu pasirinkite pagrindinę darbo knygą, į kurią perkelsite arba nukopijuosite darbalapius. Pasirinkite perkelti į pabaigą Prieš lapą dėžutėje patikrinkite Sukurkite kopiją laukelyje ir galiausiai spustelėkite OK mygtuką.

Tada galite matyti darbalapius dviejose darbo knygose. Pakartokite aukščiau aprašytus veiksmus, jei norite perkelti darbalapius iš kitų darbaknygių į pagrindinę darbo knygą.

„Office“ skirtukas - tikras laiko taupymo priedas!

Rodyti visus atidarytus dokumentus viename lange, kad galėtumėte greitai rasti reikiamą dokumentą.

Nemokamas bandymas su nemokamu bandymu 45 dieną. Suderinama su kiekviena „Excel“, „Word“ ir „PowerPoint“ versija.

Sužinokite daugiau apie priedą

Suderinkite kelias darbo knygas arba nurodytus darbo knygų lapus su pagrindine darbo knyga su VBA

Jei reikia sujungti į vieną darbo knygą, galite greitai pasiekti šiuos VBA kodus. Atlikite šiuos veiksmus.

1. Įdėkite visus darbo knygas, kurias norite sujungti į tą patį katalogą.

2. Paleiskite „Excel“ failą (ši darbo knyga bus pagrindinė darbo knyga).

3. Paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic" programoms langas. Viduje "Microsoft Visual Basic" programoms langas, spustelėkite įsiuvas > Moduliai, tada nukopijuokite žemiau VBA kodą į modulio langą.

VBA kodas 1: sujungti kelis „Excel“ darbaknygius į vieną

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
	

Pastabos:

1. Pirmiau minėtas VBA kodas išsaugos originalių darbo knygų lapų pavadinimus po susijungimo.

2. Jei norite atskirti, kurie darbo lapai pagrindinėje darbo knygoje buvo gauti iš kur po susijungimo, prašome taikyti žemiau pateiktą VBA kodą 2.

3. Jei tik norite sujungti darbo knygų darbo lapus į pagrindinę darbo knygą, tai gali padėti žemiau nurodytas VBA kodas 3.

VBA koduose „C: Vartotojai DT168 Desktop KTE„Yra aplanko kelias. VBA kode 3 "Sheet1, Sheet3„yra nurodytos darbaknygių darbo lapai, kuriuos sujungsite su pagrindine darbo knyga. Juos galite pakeisti pagal savo poreikius.

VBA kodas 2: sujungti darbo knygas į vieną (kiekvienas darbalapis bus pavadintas pirminio failo pavadinimo prefiksu):

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 kodas 3: sujunkite nurodytas darbaknygių darbalapius į pagrindinę darbo knygą:

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. Paspauskite F5 raktą, norėdami paleisti kodą. Tuomet visi tam tikro aplanko darbaknygių darbo lapai arba nurodytos darbalapiai vienu metu sujungiami su pagrindine darbo knyga.

Lengvai sujunkite kelias darbaknygas arba nurodytus darbaknygių lapus į vieną darbo knygą

Kutools for Excel

Tai patogus „Excel“ priedas, kuris renka daugiau nei „300“ papildomų funkcijų, kad supaprastintų jūsų darbą „Excel“ operacijose. Su juo galite lengvai:

  • Sujunkite daugiafunkcines knygas;
  • Skaičius / ląstelių skaičius pagal spalvą;
  • Skaldytos ląstelės;
  • Partija pašalinami tarpai;
  • Daugiau funkcijų ...

PARSISIŲSKITE DABAR!

Laimei, Derinti darbaknygės naudingumas Kutools for Excel palengvina daugelio darbaknygų sujungimą į vieną. Pažiūrėkime, kaip gauti šią funkciją derinant kelias darbo knygas.

1. Sukurkite naują darbo knygą ir spustelėkite Kutools Daugiau > Derinti. Tada pasirodo dialogo langas, primenantis jums, kad visi kombinuoti darbo knygos turėtų būti išsaugoti, o funkcija negali būti taikoma saugomiems darbaknygiams, spustelėkite OK mygtuką.

2. Viduje Sujungti darbus vedlys pasirinkite Sujungti kelis darbalapius iš darbo knygų į vieną knygutę parinktį, tada spustelėkite mygtuką Sekantis mygtukas. Žr. Ekrano kopiją:

3. Viduje Sujungti darbus - 2 žingsnis 3 Dialogo lange spustelėkite mygtuką papildyti > filė or aplankas pridėti Excel failus, kuriuos sujungsite į vieną. Pridėjus „Excel“ failus, spustelėkite apdaila mygtukas ir pasirinkite aplanką, kad išsaugotumėte pagrindinį darbaknygę. Žr. Ekrano kopiją:

Dabar visos darbo knygos yra sujungtos į vieną.

Palyginti su pirmiau minėtais dviem metodais, Kutools for Excel turi šiuos privalumus:

  • 1) Visi darbaknygės ir darbalapiai išvardyti dialogo lange;
  • 2) Darbų lapams, kuriuos norite pašalinti iš susijungimo, tiesiog išimkite jį;
  • 3) Tuščios darbo lapai automatiškai neįtraukiami;
  • 4) Po susijungimo pradinis failo pavadinimas bus pridėtas prie lapo pavadinimo;
  • Jei norite gauti daugiau šios funkcijos funkcijų, apsilankykite čia.

Ar tai Sujunkite darbo knygas naudinga? Leiskite atsisiųsti ir išbandyti nemokamą „60“ bandomąją versiją!

Rekomenduojamos „Microsoft Office“ produktyvumo priemonės

„Office“ skirtukas - naršymas, redagavimas ir valdymas „Excel / Word“ / „PowerPoint“:

Office Tab atveria skirtukų sąsają, kaip matoma žiniatinklio naršyklėse, pvz., „Google Chrome“, „Internet Explorer“ naujose versijose ir „Firefox“, į „Microsoft Excel / Word / PowerPoint“. Tai bus laiko taupymo įrankis ir nepakeičiamas jūsų darbe. Žiūrėkite žemiau pateiktą demonstraciją:

ot1

„Kutools for Excel“ - sujungia daugiau nei „300“ papildomų funkcijų ir įrankių „Microsoft Excel“:

Kutools for Excel yra patogus „Excel“ priedas su daugiau nei „300“ išplėstinėmis funkcijomis, kad būtų galima supaprastinti įvairias sudėtingas užduotis į keletą „Excel“ paspaudimų. Pavyzdžiui:

  • Sujunkite kelis darbalapius arba darbo knygas į vieną darbo knygą
  • Skaičiuokite ir sumokėkite ląsteles pagal fono / šrifto spalvą
  • Ląstelių turinį padalinkite į kelias eilutes / stulpelius pagal erdvę / kablelį / ribotuvą
  • Partija Pašalinkite pirmaujančias patalpas ląstelėse
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.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 1 months 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 · 2 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 · 1 months 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 · 3 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 · 1 months 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 · 6 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 · 9 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.