Cookies hjälper oss att leverera våra tjänster. Genom att använda våra tjänster samtycker du till vår användning av cookies.
Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur kombinerar du flera arbetsböcker i en arbetsbok i Excel?

Har du någonsin varit fast när du måste kombinera flera arbetsböcker i en enda arbetsbok i Excel? Det mest hemska är att arbetsboken du behöver kombinera innehåller flera kalkylblad. Kan någon föreslå ett bra sätt att hantera detta problem?

Kombinera flera arbetsböcker till en arbetsbok med VBA

Kombinera flera arbetsböcker till en arbetsbok med Flytta eller Kopiera-kommandot

Kombinera flera arbetsböcker enkelt till en arbetsbok med Kutools för Excel


Kombinera enkelt flera kalkylblad / arbetsböcker i ett kalkylblad / arbetsbok:

Kombinera flera arbetsblad eller arbetsböcker i ett enda arbetsblad eller arbetsbok kan vara en stor uppgift i ditt dagliga arbete. Men om du har det Kutools för Excel, dess kraftfulla verktyg - Kombinera kan hjälpa dig att snabbt kombinera flera kalkylblad, arbetsböcker i ett kalkylblad eller arbetsbok. Ladda ner den fullständiga funktionen 60-dagen gratis spår av Kutools for Excel nu!

Kutools för Excel: med mer än 200 praktiska Excel-tillägg, gratis att försöka utan begränsning i 60 dagar. Ladda ner och gratis test nu!


Kombinera flera arbetsböcker till en arbetsbok med VBA

För de skickliga och professionella programmörerna kan du använda VBA-skript för att kombinera flera arbetsböcker i en huvudarbete. Du kan hantera detta med följande steg:

1. Sätt alla arbetsböcker som du vill kombinera i samma katalog. Se skärmdump:

2. Starta en Excel-fil som du vill kombinera andra arbetsböcker till.

3. Klicka Utvecklare > Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret kommer att visas, klicka Infoga > Modulerna, och mata in följande kod i modulen:

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

Tips: I ovanstående kod kan du ändra sökvägen till den du använder.

4. Klicka sedan doc-merge-flera-arbetsböcker knapp knappen för att köra koden, och alla kalkylblad (inklusive de tomma kalkylbladen) i arbetsböckerna har blivit fusionerade i masterns arbetsbok.

Anmärkningar: Den här VBA-koden kan sammanfoga hela arbetsböckerna i huvudboken, om du vill kombinera specificerade arbetsblad i arbetsböckerna fungerar den här koden inte.


Kombinera flera arbetsböcker till en arbetsbok med Flytta eller Kopiera-kommandot

Om du är en rookie av Microsoft Excel har du inget val utan behöver bara kopiera data på varje ark och klistra in dem i en ny arbetsbok en efter en och tillämpa kommandot Flytta eller Kopiera. Använda Flytta eller Kopiera Kommando hjälper dig att exportera eller kopiera en eller flera arbetsblad till en ny arbetsbok snabbt.

1. Öppna alla arbetsböcker som du vill slå samman i en enda arbetsbok.

2. Välj alla kalkylbladnamn på en arbetsbok i flikfältet. Du kan välja flera genom att hålla nere ctrl nyckel eller shift nyckel. Högerklicka på kalkylbladets namn och klicka på Flytta eller Kopiera från snabbmenyn.

3. I Flytta eller Kopiera dialogrutan, välj den arbetsbok som du vill sammanfoga med andra arbetsböcker i rullgardinsmenyn med Flytta valda ark till bok. Och ange sedan platsen för de sammanslagna kalkylbladen. Se skärmdumpar:

4. Klicka sedan OK. De valda arbetsbladen har flyttats till masterns arbetsbok.

5. Upprepa stegen från 2 till 4 för att flytta andra arbetsböcker till masterns arbetsbok. Sedan kombinerar den alla arbetsblad med öppna arbetsböcker i en enda arbetsbok. Se skärmdumpar:


Kombinera flera arbetsböcker enkelt till en arbetsbok med Kutools för Excel

Lyckligtvis för nybörjare och nya händer i Microsoft Excel finns det några tillgängliga verktyg som hjälper dig att snabbt kombinera hundratals arbetsböcker till en. Funktionen Kombinera in Kutools för Excel gör det mycket lättare att kombinera flera Excel-filer. Applikationen används för att frigöra de repetitiva och redundanta operationerna i Excel. Det spelar faktiskt en viktig roll om du måste hantera en stor del av Excel-filen i ditt dagliga arbete. Nu, låt oss se hur du får denna funktion att fungera när du kombinerar flera arbetsböcker.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att försöka utan begränsning i 60 dagar.

1. Aktivera Excel och klicka Kutools More > Kombinera. Då visas en dialogruta som påminner dig om att alla kombinerade arbetsböcker ska sparas och funktionen inte kan tillämpas på skyddade arbetsböcker, klicka på OK knapp.

2. I Kombinera kalkylblad guiden, välj Kombinera flera kalkylblad från arbetsböcker i en arbetsbok, och klicka sedan på Nästa knapp. Se skärmdump:

2. Då kan du se alla öppna arbetsböcker och kalkylblad finns listade i Kombinera kalkylblad - Steg 2 av 3 dialog ruta. Klicka på Lägg till > Fil / mapp att lägga till andra Excel-filer eller mappar som innehåller de Excel-filer som du kommer att kombinera. När du har valt filer klickar du på Nästa knappen för att gå vidare. Se skärmdump:

doc sammanfoga flera arbetsböcker arrow1

3. I Kombinera kalkylblad - Steg 3 av 3 dialogrutan, gör följande inställningar:

  • 3.1 Du kan utesluta alla tomma kalkylblad från att slå samman genom att välja Hoppa från När man stöter på ett tomt arbetsblad listrutan.
  • 3.2 Kontrollera Första raden i varje kalkylblad (Kommentar) möjlighet att infoga kalkylbladinformation för varje kombinerat kalkylblad.
  • 3.3 Du kan byta namn på de nya kombinerade kalkylbladen genom att lägga in arbetsbokens namn före eller efter de ursprungliga kalkylbladets namn, eller behåll bara de ursprungliga kalkylbladens namn med att avmarkera Genom att lägga in arbetsbokens namn alternativ.
  • 3.4 Klicka på Finish knapp.

4. Välj sedan en mapp för att spara den kombinerade arbetsboken och öppna den direkt som du behöver. Nu kombineras alla angivna arbetsböcker i en.

Anmärkningar:

1. Du kommer att bli ombedd om du vill spara detta scenario. Klick ja för att spara som du behöver, ange sedan scenarians namn, (se följande skärmdumpar). Efter att ha sparat scenariot behöver du bara klicka Scenario knappen för att välja namnet på scenariot i step2-guiden för att använda det direkt.

2. Arbetsblad i utvalda arbetsböcker har sammanfogats till en ny arbetsbok och arbetsbladet heter med arbetsbokens namn före eller efter det ursprungliga arbetsbladets namn om du har kontrollerat Genom att lägga in arbetsbokens namn alternativ. Under tiden heter ett nytt arbetsblad Kutools för Excel genereras före alla kalkylblad, som listar arbetsböckerna med detaljerad information om varje kalkylblad. Se skärmdump:

3. Om ditt kalkylblads namn är för långt kanske namnet karaktärerna är större än 31characters, det kombinerade namnet kommer inte att visas och visar bara det ursprungliga kortsnamnet.

Tips.Om du vill ha en gratis provversion av det här verktyget, gå till ladda ner programvaran fritt först och sedan börja tillämpa operationen enligt ovanstående steg.


Fliken Office - Bläddring, redigering och hantering av arbetsböcker i Excel:

Fliken Office ger flikgränssnittet som visas i webbläsare som Google Chrome, nya versioner av Internet Explorer och Firefox till Microsoft Excel. Det blir ett tidsbesparande verktyg och irreplaceble i ditt arbete. Se nedan demo:

Klicka för gratis provning av Office-fliken!

Office-fliken för Excel

Demo: Kombinera enkelt flera arbetsböcker i en arbetsbok med Kutools för Excel




Relaterade artiklar:



Rekommenderade produktivitetsverktyg

Fliken Office

guld star1 Hämta praktiska flikar till Excel och annan Office-programvara, precis som Chrome, Firefox och ny Internet Explorer.

Kutools för Excel

guld star1 Fantastiskt! Öka din produktivitet i 5 minuter. Behöver inte några speciella färdigheter, spara två timmar varje dag!

guld star1 300 Nya funktioner för Excel, gör Excel mycket enkelt och kraftfullt:

  • Sammanfoga cell / rader / kolumner utan att förlora data.
  • Kombinera och konsolidera flera ark och arbetsböcker.
  • Jämför rader, kopiera flera rader, konvertera text till datum, enhet och valutaomvandling.
  • Räkna med färger, personsökande subtotaler, avancerad sortering och superfilter,
  • Mer Välj / Infoga / Radera / Text / Format / Länk / Kommentar / Arbetsböcker / Arbetsblad Verktyg ...

Skärmdump av Kutools för 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 · 6 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 · 5 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 · 5 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.