Cookies palīdzēs mums sasniegt mūsu pakalpojumus. Izmantojot mūsu pakalpojumus, jūs piekrītat mūsu sīkdatņu izmantošanu.
Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā apvienot vairākas darbgrāmatas vienā Excel grāmatā?

Vai jums kādreiz ir iestrēdzis, kad Excel vienā darbgrāmatā ir jāapvieno vairāki darbgrāmatas? Visveiksmīgākais ir tas, ka darbgrāmatā, kas jums jāapvieno, ir vairākas darblapas. Vai kāds var ieteikt labu veidu, kā rīkoties ar šo problēmu?

Apvienot vairākas darbgrāmatas vienā darbgrāmatā ar VBA

Apvienojiet vairākas darbgrāmatas vienā darbgrāmatā ar komandu Pārvietot vai Kopēt

Vienkārši apvienojiet vairākas darbgrāmatas ar vienu grāmatu ar Kutools programmā Excel


Viegli apvienojiet vairākas darblapas / darbgrāmatas vienā darblapā / darbgrāmatā:

Apvienot vairākas darblapas vai darbgrāmatas vienā darblapā vai darbgrāmatā var būt milzīgs uzdevums jūsu ikdienas darbā. Bet, ja jums ir Kutools Excel, tā spēcīgā lietderība - Apvienot var palīdzēt ātri apvienot vairākas darblapas, darbgrāmatas vienā darblapā vai darbgrāmatā. Lejupielādējiet pilnu funkciju 60 dienu bezmaksas Kutools taku Excel tagad!

Kutools Excel: ar vairāk nekā 200 ērtiem Excel pievienojumprogrammām, bez maksas izmēģināt bez ierobežojumiem 60 dienās. Lejupielādēt un bezmaksas izmēģinājuma versija tūlīt!


Apvienot vairākas darbgrāmatas vienā darbgrāmatā ar VBA

Kvalificētiem un profesionāliem programmētājiem jūs varat izmantot VBA skriptus, lai apvienotu vairākas darbgrāmatas vienā maģistra darbgrāmatā. Jūs varat rīkoties ar šādām darbībām:

1. Ievietojiet visas darbgrāmatas, kuras vēlaties apvienot vienā direktorijā. Skatīt ekrānuzņēmumu:

2. Palaidiet Excel failu, kurā vēlaties apvienot citas darbgrāmatas.

3. Noklikšķiniet Attīstītājs > Visual Basic, Jauna Microsoft Visual Basic lietojumprogrammām logs tiks parādīts, noklikšķiniet uz ielaidums > Moduļi, un ievada modulī šādu kodu:

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

Gals: Iepriekš minētajā kodā varat mainīt ceļu uz to, kuru izmantojat.

4. Pēc tam noklikšķiniet uz poga doc-merge-multiple-workbooks pogu, lai palaistu kodu, un visas darblapas (ieskaitot tukšās darblapas) darbgrāmatās ir apvienotas galvenajā darbgrāmatā.

Piezīmes: Šis VBA kods var apvienot visus darbgrāmatas galvenajā darbgrāmatā, ja vēlaties apvienot noteiktas darbgrāmatas darblapas, šis kods nedarbosies.


Apvienojiet vairākas darbgrāmatas vienā darbgrāmatā ar komandu Pārvietot vai Kopēt

Ja esat Microsoft Excel jaunpienācējs, jums nav citas izvēles, kā tikai kopēt katras lapas datus un ielīmēt tos jaunā darbgrāmatā pa vienam un piemērot komandu Pārvietot vai Kopēt. Izmantojot Pārvietot vai kopēt komanda palīdzēs ātri eksportēt vai kopēt vienu vai vairākas darblapas uz jaunu darbgrāmatu.

1. Atveriet visas darbgrāmatas, kuras vēlaties apvienot vienā darbgrāmatā.

2. Cilnes joslā atlasiet visus darblapas darblapu nosaukumus. Jūs varat izvēlēties vairākus, turot nospiestu Ctrl taustiņu vai maiņa atslēga. Ar peles labo pogu noklikšķiniet uz darblapas nosaukuma un noklikšķiniet uz Pārvietot vai kopēt no konteksta izvēlnes.

3. uz Pārvietot vai kopēt dialoglodziņā izvēlieties galveno darbgrāmatu, kuru vēlaties apvienot ar citām darba grāmatām no nolaižamā saraksta Pārvietot izvēlētās lapas uz grāmatu. Un pēc tam norādiet apvienoto darblapu atrašanās vietu. Skatīt ekrānuzņēmumus:

4. Pēc tam noklikšķiniet uz OK. Atlasītās darblapas ir pārvietotas uz galveno darbgrāmatu.

5. Atkārtojiet soļus no 2 uz 4, lai pārvietotu citas darbgrāmatas uz galveno darbgrāmatu. Tad tas apvieno visas atvērto darbgrāmatu darblapas vienā darbgrāmatā. Skatīt ekrānuzņēmumus:


Vienkārši apvienojiet vairākas darbgrāmatas ar vienu grāmatu ar Kutools programmā Excel

Par laimi, Microsoft Excel jaunpienācējiem un jaunajām rokām ir daži pieejamie rīki, kas palīdz ātri apvienot simtiem darbgrāmatas vienā. Funkcija Apvienot in Kutools Excel padara daudz vieglāk apvienot vairākus Excel failus. Pieteikums tiek izmantots, lai atbrīvotu atkārtotas un liekas operācijas programmā Excel. Tam faktiski ir svarīga loma, ja ikdienas darbā ir jārisina daudz Excel faila. Tagad, redzēsim, kā šo funkciju panākt, apvienojot vairākas darbgrāmatas.

Kutools Excel : ar vairāk nekā 300 ērtas Excel pievienojumprogrammas, bez maksas izmēģināt bez ierobežojumiem 60 dienās.

1. Iespējojiet Excel un noklikšķiniet uz Kutools Vairāk > Apvienot. Tad dialoglodziņš tiek parādīts, lai atgādinātu, ka visas kombinētās darbgrāmatas ir jāuzglabā, un šo funkciju nevar izmantot aizsargātām darbgrāmatām, lūdzu, noklikšķiniet uz OK poga.

2. Iekš Apvienot darblapas vednis, izvēlieties Apvienojiet vairākas darblapas no darbgrāmatām vienā darbgrāmatā, un pēc tam noklikšķiniet uz nākamais poga Skatīt ekrānuzņēmumu:

2. Tad jūs varat redzēt visus atvērtos darbgrāmatas un darblapas ir uzskaitītas Apvienot darblapas - 2 solis 3 dialoglodziņš. Noklikšķiniet uz Pievienot > fileja / Mape lai pievienotu citus Excel failus vai mapes, kas satur Excel failus, kurus jūs apvienojat. Pēc failu atlasīšanas noklikšķiniet uz nākamais pogu, lai turpinātu. Skatīt ekrānuzņēmumu:

doc apvienot vairākas darbgrāmatas arrow1

3. Iekš Apvienot darblapas - 3 solis 3 dialoglodziņā, lūdzu, veiciet šādus iestatījumus:

  • 3.1 Jūs varat izslēgt visus tukšos darblapas no apvienošanās, atlasot Izlaist no Saskaroties ar tukšu darblapu izvēlnes saraksts.
  • 3.2 Pārbaudiet Katras darblapas pirmā rinda (komentārs) iespēja ievietot darblapas informāciju par katru kombinēto darblapu.
  • 3.3 Jūs varat pārdēvēt jaunās kombinētās darblapas, ievietojot darbgrāmatas nosaukumus pirms oriģinālo darblapas nosaukumu vai pēc tās, vai vienkārši saglabāt oriģinālo darblapas nosaukumu, noņemot atzīmi no Ievietojot darbgrāmatas nosaukumu variants.
  • 3.4 Noklikšķiniet uz apdare poga.

4. Pēc tam izvēlieties mapi, lai saglabātu kombinēto darbgrāmatu un atveriet to tieši, kā jums nepieciešams. Tagad visas norādītās darbgrāmatas ir apvienotas vienā.

Piezīmes:

1. Jums tiks jautāts, vai vēlaties saglabāt šo scenāriju. Klikšķis lai saglabātu pēc vajadzības, pēc tam ievadiet scenārija nosaukumu (skatiet tālāk redzamos ekrānuzņēmumus). Pēc scenārija saglabāšanas jums ir nepieciešams tikai noklikšķināt Scenārijs pogu, lai izvēlētos scenārija nosaukumu step2 vednim, lai to tieši izmantotu.

2. Darba lapas izvēlētajās darbgrāmatās ir apvienotas jaunā darbgrāmatā, un darblapas tiek nosauktas ar darbgrāmatas nosaukumu pirms vai pēc sākotnējā darblapas nosaukuma, ja esat pārbaudījis Ievietojot darbgrāmatas nosaukumu iespēja. Tikmēr ir izveidota jauna darba lapa ar nosaukumu Kutools Excel tiek ģenerēts pirms visām darblapām, kurās ir uzskaitītas darbgrāmatas ar detalizētu informāciju par katru darblapu. Skatīt ekrānuzņēmumu:

3. Ja jūsu darblapas nosaukums ir pārāk garš, iespējams, nosaukuma rakstzīmes ir lielākas par 31 rakstzīmēm, kombinētais nosaukums netiks rādīts un parādīsies tikai oriģināla lapas nosaukums.

PadomsJa vēlaties saņemt šīs lietderības bezmaksas izmēģinājumu, lūdzu, dodieties uz lejupielādēt programmatūru brīvi vispirms, un tad ejiet, lai piemērotu operāciju, kā norādīts iepriekš.


Cilnē Office - tabulu pārlūkošana, rediģēšana un darbgrāmatu pārvaldīšana programmā Excel:

Office cilnē tiek parādīts cilnes interfeiss, kas redzams tīmekļa pārlūkprogrammās, piemēram, Google Chrome, Internet Explorer jaunās versijās un Firefox uz Microsoft Excel. Tas būs laika taupīšanas rīks un neaizvietojams darbā. Skatīt demo zemāk:

Noklikšķiniet, lai saņemtu Office Tab bezmaksas izmēģinājumu!

Office cilne Excel

Demonstrācija: viegli apvienojiet vairākas darbgrāmatas ar vienu grāmatu ar Kutools programmā Excel




Līdzīgi raksti:



Ieteicamie produktivitātes rīki

Cilnē Office

zelta zvaigzne1 Novietojiet parocīgas cilnes Excel un citai Office programmatūrai, tāpat kā Chrome, Firefox un jaunā Internet Explorer.

Kutools Excel

zelta zvaigzne1 Pārsteidzošs! Palieliniet savu produktivitāti 5 minūtēs. Nepieciešamas īpašas prasmes, izņemot katru dienu divas stundas!

zelta zvaigzne1 300 jaunas funkcijas Excel, Make Excel daudz viegli un jaudīgu:

  • Apvienot šūnu / rindas / kolonnas, nezaudējot datus.
  • Apvienot un konsolidēt vairākas lapas un darbgrāmatas.
  • Salīdziniet diapazonus, kopējiet vairākus diapazonus, pārveidojiet tekstu uz datumu, vienību un valūtas konvertēšanu.
  • Count by Colors, Paging Starpsvars, Advanced Kārtot un Super Filter,
  • Vairāk Izvēlēties / Ievietot / Dzēst / Teksts / Format / Saite / Komentārs / Darbgrāmatas / Darblapas Rīki ...

Kutools ekrānuzņēmums 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 · 4 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 · 3 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 · 3 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.