Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Hvordan kombineres flere arbejdsbøger i en mester arbejdsbog i Excel?

Har du nogensinde været fast, når du skal kombinere flere arbejdsbøger i en mesterarbejdsbog i Excel? Den mest forfærdelige ting er, at de arbejdsbøger, du skal kombinere, indeholder flere regneark. Og hvordan man kun kombinerer de specificerede regneark for flere arbejdsbøger i en workbook? Denne vejledning demonstrerer flere nyttige metoder til at hjælpe dig med at løse problemstrinene ved trin.


Du kan nemt kombinere flere arbejdsbøger i en i Excel:

Det Kombiner workbooks utility of Kutools til Excel kan hjælpe dig med at kombinere flere Excel-filer nemt i en. Desuden giver det dig mulighed for kun at kombinere de specificerede regneark for visse Excel-filer til en master-projektmappe nemt. Download den fulde funktion 60-dags gratis spor nu!

Kombiner flere arbejdsbøger til en workbook med Move eller Copy-funktionen

Hvis der kun er et par arbejdsbøger, der skal kombineres, kan du bruge kommandoen Flyt eller Kopier til manuelt at flytte eller kopiere regneark fra den originale projektmappe til masterarbejdsbogen.

1. Åbn arbejdsbøgerne, som du vil fusionere i en master arbejdsbog.

2. Vælg regnearkene i den originale projektmappe, som du vil flytte eller kopiere til mesterarbejdsbogen.

Bemærkninger:

1). Du kan vælge flere ikke tilstødende regneark ved at holde Ctrl nøgle og klik på arkfanerne en efter en.

2). For at vælge flere tilstødende regneark skal du klikke på den første arkfane, holde den nede Flytte nøgle, og klik derefter på fanen sidste ark for at vælge dem alle.

3). Du kan højreklikke på et hvilket som helst arkfane, klik på Vælg alle ark fra kontekstmenuen for at vælge alle regneark i projektmappen på samme tid.

3. Når du har valgt de nødvendige regneark, skal du højreklikke på fanen Ark og derefter klikke på Flyt eller Kopier fra kontekstmenuen. Se skærmbillede:

4. Så den Flyt eller Kopier Dialog dukker op, i At reservere rullemenuen, vælg mesterarbejdsbogen, som du vil flytte eller kopiere regneark til. Vælg flyt for at slutte i Før ark boks, tjek den Opret en kopi boks og endelig klikke på OK knappen.

Derefter kan du se regneark i to arbejdsbøger kombineret til en. Gentag ovenstående trin for at flytte regneark fra andre arbejdsbøger i mesterarbejdsbogen.

Office-fanen - en tilføjelse til real-time-saver!

Vis alle åbne dokumenter i et enkelt vindue for hurtigt at finde et nødvendigt dokument.

Fuld funktion gratis prøveperiode 45-dag. Kompatibel med hver version af Excel, Word og PowerPoint.

LÆS MERE OM TILFØJELSEN>

Kombiner flere arbejdsbøger eller specificerede ark af arbejdsbøger til en mesterarbejdsbog med VBA

Hvis der er flere arbejdsbøger, der skal fusioneres i en, kan du anvende følgende VBA-koder for hurtigt at opnå det. Venligst gør som følger.

1. Sæt alle arbejdsbøger, som du vil kombinere i en under samme mappe.

2. Start en Excel-fil (denne projektmappe bliver mesterarbejdsbogen).

3. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier derefter under VBA-kode til modulvinduet.

VBA-kode 1: Flet flere Excel-workbooks i en

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
	

Bemærkninger:

1. Ovennævnte VBA-kode vil holde arknavnet på de originale arbejdsbøger efter sammenlægning.

2. Hvis du vil skelne mellem hvilke regneark i masterarbejdsbogen der kom fra, hvor efter sammenlægning, bedes du anvende nedenstående VBA-kode 2.

3. Hvis du bare ønsker at kombinere specifikke regneark i arbejdsbøgerne i en mesterarbejdsbog, kan nedenstående VBA-kode 3 hjælpe.

I VBA koder, "C: \ Brugere \ DT168 \ Desktop \ KTE \"Er mappebanen. I VBA-koden 3, "Sheet1, Sheet3"er de specificerede regneark i arbejdsbøgerne, du vil kombinere til en mester arbejdsbog. Du kan ændre dem ud fra dine behov.

VBA-kode 2: Flett arbejdsbøger i ét (hvert regneark vil blive navngivet med præfiks for dets oprindelige filnavn):

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-kode 3: Flet specificerede regneark af arbejdsbøger i en master-projektmappe:

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. Tryk på F5 nøgle til at køre koden. Derefter kombineres alle regneark eller specificerede regneark i arbejdsbøgerne i den enkelte mappe i en mesterarbejdsbog på én gang.

Du kan nemt kombinere flere arbejdsbøger eller bestemte ark med arbejdsbøger til en workbook

Kutools til Excel

Det er en praktisk Excel-tilføjelse, der samler mere end 300 avancerede funktioner for at forenkle dit arbejde i Excel-operationer. Med det kan du nemt:

  • Kombiner multi-workbooks;
  • Tæl / sum celler efter farve;
  • Split celler;
  • Batch fjerne mellemrum;
  • Flere funktioner ...

GRATIS DOWNLOAD NU!

Heldigvis Kombiner workbook utility of Kutools til Excel gør det meget nemmere at fusionere flere arbejdsbøger i en. Lad os se, hvordan du får denne funktion til at fungere sammen med flere arbejdsbøger.

1. Opret en ny arbejdsbog og klik på Kutools Plus > Kombiner. Derefter vises en dialog for at minde om, at alle kombinerede arbejdsbøger skal gemmes, og funktionen ikke kan anvendes på beskyttede arbejdsbøger, skal du klikke på OK knappen.

2. i Kombiner regneark guiden, vælg Kombiner flere regneark fra arbejdsbøger i en projektmappe valgmulighed, og klik derefter på Næste knap. Se skærmbillede:

3. i Kombiner regneark - Trin 2 af 3 dialogboksen, skal du klikke på knappen Tilføje > filet or Folder For at tilføje Excel-filerne vil du flette ind i en. Når du har tilføjet Excel-filer, skal du klikke på Finish knappen og vælg en mappe for at gemme mesterarbejdsbogen. Se skærmbillede:

Nu er alle arbejdsbøger slået sammen i ét.

Sammenlignet med de ovennævnte to metoder, Kutools til Excel har følgende fordele:

  • 1) Alle arbejdsbøger og regneark er angivet i dialogboksen;
  • 2) For de regneark, du vil udelukke fra sammenlægning, skal du bare fjerne markeringen
  • 3) Blank regneark udelukkes automatisk;
  • 4) Det originale filnavn vil blive tilføjet som præfiks til arknavnet efter sammenlægning;
  • For flere funktioner af denne funktion, besøg venligst her.

Gør dette Kombiner arbejdsbøger hjælpeprogram? Lad os downloade og prøve den fulde funktion gratis prøveperiode 60-dag!

Anbefalede produktivitetsværktøjer til Microsoft Office

Office-fanebladet - Tabbed Browsing, Redigering og Administration i Excel / Word / PowerPoint:

Office-fanen bringer den fladede grænseflade som set i webbrowsere som Google Chrome, Internet Explorer nye versioner og Firefox til Microsoft Excel / Word / PowerPoint. Det vil være et tidsbesparende værktøj og uerstatteligt i dit arbejde. Se nedenfor demo:

ot1

Kutools for Excel - Kombinerer mere end 300 avancerede funktioner og værktøjer til Microsoft Excel:

Kutools til Excel er en praktisk Excel-tilføjelse med mere end 300 avancerede funktioner for at forenkle forskellige former for komplicerede opgaver i et par klik i Excel. For eksempel:

  • Kombiner flere regneark eller arbejdsbøger i en projektmappe
  • Tælle og sumceller baseret på baggrunds- / skrifttypefarve
  • Opdelt celleindhold i flere rækker / kolonner med mellemrum / komma / afgrænser
  • Batch Fjern førende rum i celler
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.