Vidakuzi vinatusaidia kutoa huduma zetu. Kwa kutumia huduma zetu, unakubaliana na matumizi yetu ya kuki.
Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kuchanganya vitabu vya kazi nyingi kwenye kitabu kimoja cha Excel?

Je! Umewahi kukwama wakati unapaswa kuchanganya vitabu vya kazi nyingi kwenye kitabu cha kazi moja katika Excel? Kitu cha kutisha ni kwamba kitabu cha kazi unachohitaji kuchanganya kina karatasi za kazi nyingi. Je, kuna mtu yeyote anaweza kuonyesha njia nzuri ya kushughulikia tatizo hili?

Kuchanganya vitabu vya kazi nyingi kwenye kitabu kimoja cha VBA

Unganisha vitabu vya kazi nyingi kwenye kitabu kimoja cha kuandaa na amri ya Nenda au Kopisha

Urahisi kuchanganya vitabu vya kazi nyingi kwenye kitabu kimoja cha Kutools kwa Excel


Kuchanganya kwa urahisi karatasi za kazi nyingi / vitabu vya kazi kwenye kitabu cha kazi / kitabu cha kazi moja:

Jumuisha karatasi nyingi za kazi au vitabu vya kazi kwenye karatasi moja au kitabu cha kazi inaweza kuwa kazi kubwa katika kazi yako ya kila siku. Lakini, kama una Kutools kwa Excel, matumizi yake yenye nguvu - Kuchanganya inaweza kukusaidia haraka kuchanganya karatasi nyingi za kazi, vitabu vya kazi kwenye karatasi moja au kitabu cha kazi. Pakua kipengele kamili cha uchaguzi wa bure wa siku ya 60 ya Kutools kwa Excel sasa!

Kutools kwa Excel: na zaidi ya 200 handy Excel inserts, huru kujaribu na hakuna kikomo katika siku 60. Pakua na jaribio la bure Sasa!


Kuchanganya vitabu vya kazi nyingi kwenye kitabu kimoja cha VBA

Kwa wajuzi na wataalamu wa programu, unaweza kutumia scripts za VBA ili kuchanganya vitabu vya kazi nyingi katika kitabu kimoja cha kazi. Unaweza kukabiliana na hili kwa hatua zifuatazo:

1. Weka vitabu vyote vya kazi unayotaka kuchanganya kwenye saraka moja. Angalia skrini:

2. Kuzindua faili ya Excel ambayo unataka kuunganisha vitabu vingine vya kazi.

3. Bonyeza Developer > Visual Basic, Mpya Microsoft Visual Msingi kwa ajili ya programu dirisha itaonyeshwa, bofya Ingiza > Modules, na ingiza msimbo wafuatayo kwenye Module:

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: Katika kanuni iliyo hapo juu, unaweza kubadilisha njia ya unayoyotumia.

4. Kisha bonyeza toc-merge-multiple-workbooks-kifungo kifungo kukimbia msimbo, na karatasi zote za kazi (ikiwa ni pamoja na karatasi za kazi tupu) ndani ya vitabu vya kazi zimeunganishwa katika kitabu cha kazi.

Kumbuka: Msimbo huu wa VBA unaweza kuunganisha vitabu vya kazi nzima katika kitabu cha mafunzo, ikiwa unataka kuchanganya karatasi za kazi za vitabu vya kazi, msimbo huu haufanyi kazi.


Unganisha vitabu vya kazi nyingi kwenye kitabu kimoja cha kuandaa na amri ya Nenda au Kopisha

Ikiwa wewe ni rookie ya Microsoft Excel, huna chaguo lakini unapaswa tu kunakili data ya kila karatasi na kuwaweka kwenye kitabu cha kwanza cha kila mmoja na kutumia amri ya Kusonga au Kopisha. Kutumia Hoja au Nakala amri itakusaidia kusafirisha au kusafirisha karatasi moja au kadhaa kwenye kitabu cha kwanza cha kazi.

1. Fungua vitabu vyote vya kazi ambavyo unataka kuunganisha katika kitabu kimoja.

2. Chagua majina yote ya kazi ya kitabu katika kitabu cha bar. Unaweza kuchagua nyingi kwa kushikilia chini Ctrl ufunguo au Kuhama ufunguo. Bofya haki jina la karatasi, na bofya Hoja au Nakala kutoka orodha ya muktadha.

3. Katika Hoja au Nakala sanduku la mazungumzo, chagua kitabu cha kazi ambacho unataka kuunganisha vitabu vingine vya kazi ndani ya orodha ya kushuka Hamisha karatasi zilizochaguliwa kuandika. Na kisha taja eneo la karatasi za kuunganishwa. Tazama viwambo vya skrini:

4. Kisha bonyeza OK. Faili zilizochaguliwa zimehamishwa kwenye kitabu cha kazi.

5. Kurudia hatua kutoka 2 hadi 4 ili kuhamisha vitabu vingine vya kazi kwenye kitabu cha kazi. Kisha inachanganya karatasi zote za kufungua vitabu vya kazi kwenye kitabu kimoja. Tazama viwambo vya skrini:


Urahisi kuchanganya vitabu vya kazi nyingi kwenye kitabu kimoja cha Kutools kwa Excel

Kwa bahati nzuri, kwa rookies na mikono mpya ya Microsoft Excel, kuna baadhi ya zana zilizopo kukusaidia haraka kuchanganya mamia ya vitabu vya kazi moja. Kazi Kuchanganya in Kutools kwa Excel inafanya iwe rahisi zaidi kuchanganya faili nyingi za Excel. Maombi hutumiwa kwa kutolewa shughuli za kurudia na za kupindukia katika Excel. Kwa kweli ina jukumu muhimu ikiwa una kukabiliana na kiasi kikubwa cha faili ya Excel katika kazi yako ya kila siku. Sasa, hebu tuone jinsi ya kupata kazi hii kufanya kazi kwa kuchanganya vitabu vya kazi nyingi.

Kutools kwa Excel : na zaidi ya 300 Handy Excel inserts, bure kujaribu bila upeo hakuna katika siku 60.

1. Wezesha Excel na bofya Kutools Zaidi > Kuchanganya. Kisha mazungumzo yanapakukumbusha kwamba vitabu vyote vya pamoja vinapaswa kuokolewa na kipengele hakiwezi kutumika kwenye vitabu vya kazi vilivyohifadhiwa, tafadhali bofya OK button.

2. Ndani ya Unganisha Karatasi za Kazi mchawi, chagua Jumuisha karatasi nyingi za kazi kutoka kwa vitabu vya kazi kwenye kitabu kimoja, na kisha bofya next kifungo. Angalia skrini:

2. Kisha unaweza kuona vitabu vyote vya kufunguliwa na karatasi za kazi zimeorodheshwa Unganisha Karatasi za Kazi - Hatua 2 ya 3 sanduku la mazungumzo. Bofya Kuongeza > File / Folder kuongeza faili nyingine za Excel au folders whih zenye files Excel utachanganya. Baada ya kuchagua faili, bofya next kifungo kwenda mbele. Angalia skrini:

doc kuunganisha vitabu vya kazi nyingi arrow xNUMX

3. Ndani ya Unganisha Karatasi za Kazi - Hatua 3 ya 3 sanduku la mazungumzo, tafadhali fanya mipangilio yafuatayo:

  • 3.1 Unaweza kuacha karatasi zote za wazi bila kuunganisha kwa kuchagua Ruka kutoka Wakati unapokutana na karatasi ya kazi tupu onyesha orodha.
  • Angalia 3.2 Mstari wa kwanza wa kila karatasi (Maoni) chaguo kuingiza maelezo ya karatasi ya kila karatasi ya kazi.
  • 3.3 Unaweza kutaja majarida ya kazi mpya kwa kuingiza majina ya kitabu cha kazi kabla au baada ya majina ya awali ya majarida, au tu kuweka majina ya karatasi ya awali kwa kufuta Kwa kuingiza jina la kazi chaguo.
  • Bofya 3.4 Kumaliza button.

4. Kisha chagua folda ili uhifadhi kitabu kinachounganishwa, na uifungue moja kwa moja kama unahitaji. Sasa vitabu vyote vya kazi vimewekwa pamoja.

Notes:

1. Utaulizwa ikiwa unataka kuokoa hali hii. Bonyeza Ndiyo Ili kuokoa kama unahitaji, kisha ingiza jina la hali, (angalia picha zifuatazo). Baada ya kuokoa mazingira, unahitaji tu bonyeza Hali kifungo cha kuchagua jina la hali hiyo kwenye mchawi wa hatuaXXUMUM ili kuitumia moja kwa moja.

2. Majarida katika vitabu vya kazi vilivyochaguliwa vimeunganishwa katika kitabu cha mafunzo kipya, na karatasi za kazi zimeitwa jina la kazi kabla au baada ya jina la awali la karatasi kama umeangalia Kwa kuingiza jina la kazi chaguo. Wakati huo huo, karatasi mpya inaitwa Kutools kwa Excel huzalishwa kabla ya karatasi zote, ambazo zinaorodhesha vitabu vya kazi na maelezo ya kina ya kila karatasi. Angalia skrini:

3. Ikiwa jina lako la karatasi ni la muda mrefu sana, labda jina la wahusika ni kubwa zaidi kuliko 31characters, jina la pamoja halitaonyeshwa, na kuonyesha jina la awali la karatasi.

Kidokezo.Ikiwa unataka kuwa na jaribio la bure la shirika hili, tafadhali nenda Pakua programu kwa uhuru kwanza, kisha uende kutumia programu kulingana na hatua za juu.


Tabia ya Ofisi - Utafutaji wa Tabbed, Uhariri, na Usimamizi wa Vitabu vya Kazi katika Excel:

Tabia ya Ofisi huleta interface ya tabbed kama inavyoonekana katika vivinjari vya wavuti kama Google Chrome, Internet Explorer mpya matoleo na Firefox kwa Microsoft Excel. Itakuwa chombo cha kuokoa wakati na kisichoweza kuingizwa katika kazi yako. Tazama demo ya chini:

Bofya kwa jaribio la bure la Tabia ya Ofisi!

Tabia ya Ofisi ya Excel

Demo: Urahisi kuchanganya vitabu vya kazi nyingi kwenye kitabu kimoja cha Kutools kwa Excel




Related Articles:



Zilizopendekeza Vifaa vya Uzalishaji

Tabia ya Ofisi

nyota ya dhahabu1 Kuleta tabo za Handy kwa Excel na programu nyingine za Ofisi, kama Chrome, Firefox na Internet Explorer mpya.

Kutools kwa Excel

nyota ya dhahabu1 Kushangaza! Ongeza uzalishaji wako katika dakika ya 5. Hauna haja ujuzi wowote maalum, ila saa mbili kila siku!

nyota ya dhahabu1 Features mpya ya 300 kwa Excel, Fanya Excel Rahisi Rahisi na Nguvu:

  • Unganisha Kiini / Rangi / nguzo bila kupoteza Data.
  • Kuchanganya na Kuunganisha Karatasi nyingi na Vitabu vya Kazi.
  • Linganisha Mipangilio, Nakili Ranges nyingi, Badilisha Nakala hadi Tarehe, Kitengo na Ubadilishaji wa Fedha.
  • Hesabu na Rangi, Vipindi vya Paging, Chagua cha Juu na cha Filter Super,
  • Chagua zaidi / Ingiza / Futa / Nakala / Fomu / Kiungo / Maoni / Vitabu vya Kazi / Vifungu vya Kazi ...

Screen shot ya Kutools kwa 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 · 2 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 · 19 hours 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 · 19 hours 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.