Cookies hjelper oss å levere våre tjenester. Ved å bruke våre tjenester, samtykker du til vår bruk av informasjonskapsler.
Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan kombinere flere arbeidsbøker til en arbeidsbok i Excel?

Har du noen gang vært fast når du må kombinere flere arbeidsbøker i en enkelt arbeidsbok i Excel? Det mest forferdelige er at arbeidsboken du trenger å kombinere, inneholder flere regneark. Kan noen foreslå en god måte å håndtere dette problemet på?

Kombiner flere arbeidsbøker til en arbeidsbok med VBA

Kombiner flere arbeidsbøker til en arbeidsbok med Flytt eller Kopier-kommandoen

Kombiner enkelt flere arbeidsbøker til en arbeidsbok med Kutools for Excel


Kombiner enkelt flere regneark / arbeidsbøker i ett regneark / arbeidsbok:

Kombinere flere regneark eller arbeidsbøker i ett enkelt regneark eller arbeidsbok kan være en stor oppgave i ditt daglige arbeid. Men hvis du har det Kutools for Excel, dens kraftige verktøy - Kombiner kan hjelpe deg raskt å kombinere flere regneark, arbeidsbøker i ett regneark eller arbeidsbok. Last ned den fulle funksjonen 60-dagen gratis sporet av Kutools for Excel nå!

Kutools for Excel: Med mer enn 200 praktiske Excel-tillegg, kan du prøve uten begrensning i 60-dager. Last ned og gratis prøveversjon nå!


Kombiner flere arbeidsbøker til en arbeidsbok med VBA

For dyktige og profesjonelle programmerere kan du bruke VBA-skript for å kombinere flere arbeidsbøker i en master arbeidsbok. Du kan håndtere dette med følgende trinn:

1. Sett alle arbeidsbøkene du vil kombinere inn i samme katalog. Se skjermbilde:

2. Start en Excel-fil som du vil kombinere andre arbeidsbøker til.

3. Klikk Utvikler > Visual Basic, En ny Microsoft Visual Basic for applikasjoner Vinduet vil bli vist, klikk innfelt > Modules, og skriv inn følgende kode 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 ovennevnte kode kan du endre banen til den du bruker.

4. Klikk deretter doc-flett-multiple-arbeidsbøker-knappen knappen for å kjøre koden, og alle regnearkene (inkludert de tomme regnearkene) i arbeidsbøkene har blitt slått sammen i hovedarbeidsboken.

Merknader: Denne VBA-koden kan fusjonere hele arbeidsbøkene i mester arbeidsboken, hvis du vil kombinere spesifiserte regneark i arbeidsbøkene, vil denne koden ikke fungere.


Kombiner flere arbeidsbøker til en arbeidsbok med Flytt eller Kopier-kommandoen

Hvis du er en rookie av Microsoft Excel, har du ikke noe valg, men bare å kopiere dataene til hvert ark og lime dem inn i en ny arbeidsbok en etter en, og bruk kommandoen Flytt eller Kopier. Bruker Flytt eller Kopier Kommandoen hjelper deg med å eksportere eller kopiere et eller flere regneark til en ny arbeidsbok raskt.

1. Åpne alle arbeidsbøker du vil slå sammen i en enkelt arbeidsbok.

2. Velg alle regnearknavnene til en arbeidsbok i fanen. Du kan velge flere ved å holde nede Ctrl nøkkel eller Skift nøkkel. Høyreklikk på regnearknavnet, og klikk på Flytt eller Kopier fra kontekstmenyen.

3. i Flytt eller Kopier dialogboksen, velg master arbeidsboken som du vil slå sammen andre arbeidsbøker i fra nedtrekkslisten over Flytt valgte ark for å bestille. Og deretter angi plasseringen av de fusjonerte regnearkene. Se skjermbilder:

4. Klikk deretter OK. De valgte regnearkene har blitt flyttet til master arbeidsboken.

5. Gjenta trinnene fra 2 til 4 for å flytte andre arbeidsbøker til master arbeidsboken. Deretter kombinerer det alle regnearkene for åpne arbeidsbøker i en enkelt arbeidsbok. Se skjermbilder:


Kombiner enkelt flere arbeidsbøker til en arbeidsbok med Kutools for Excel

Heldigvis, for nybegynnere og nye hender på Microsoft Excel, er det noen tilgjengelige verktøy som hjelper deg raskt å kombinere hundrevis av arbeidsbøker til en. Funksjonen Kombiner in Kutools for Excel gjør det mye enklere å kombinere flere Excel-filer. Søknaden brukes til å frigjøre de repeterende og redundante operasjonene i Excel. Det spiller faktisk en viktig rolle hvis du må håndtere en stor mengde Excel-fil i ditt daglige arbeid. Nå, la oss se hvordan du får denne funksjonen, når du kombinerer flere arbeidsbøker.

Kutools for Excel : Med mer enn 300 praktiske Excel tillegg, gratis å prøve uten begrensning i 60 dager.

1. Aktiver Excel og klikk Kutools More > Kombiner. Deretter vises en dialog for å minne deg på at alle kombinert arbeidsbøker skal lagres og at funksjonen ikke kan brukes på beskyttede arbeidsbøker, vennligst klikk på OK knapp.

2. på Kombinere regneark veiviseren, velg Kombiner flere regneark fra arbeidsbøker i en arbeidsbok, og klikk deretter på neste knapp. Se skjermbilde:

2. Deretter kan du se alle åpne arbeidsbøker og regneark er oppført i Kombinere regneark - Trinn 2 av 3 dialogboks. Klikk på Legg > filet / Folder å legge til andre Excel-filer eller mapper som inneholder Excel-filene du vil kombinere. Etter å ha valgt filer, klikk på neste knappen for å gå videre. Se skjermbilde:

doc flette flere arbeidsbøker arrow1

3. på Kombinere regneark - Trinn 3 av 3 dialogboksen, vennligst gjør følgende innstillinger:

  • 3.1 Du kan ekskludere alle tomme regneark fra sammenslåing ved å velge Hopp fra Når du møter et tomt regneark nedtrekksliste.
  • 3.2 Kontroller Første rad i hvert regneark (Kommentar) mulighet til å sette inn regnearkinformasjon for hvert kombinert regneark.
  • 3.3 Du kan gi nytt navn til de nye kombinerte regnearkene ved å sette inn arbeidsboknavnene før eller etter de opprinnelige regnearknavnet, eller bare beholde de opprinnelige regnearknavnet ved å fjerne merket av Ved å sette inn arbeidsboknavn alternativet.
  • 3.4 Klikk på Finish knapp.

4. Velg deretter en mappe for å lagre den samlede arbeidsboken, og åpne den direkte etter behov. Nå kombineres alle spesifiserte arbeidsbøker i en.

Merknader:

1. Du vil bli spurt om du vil lagre dette scenariet. Klikk Ja å lagre som du trenger, og skriv deretter inn navnet på scenariet, (se følgende skjermbilder). Når du har lagret scenariet, trenger du bare å klikke Scenario knappen for å velge navnet på scenariet på step2 veiviseren for å bruke det direkte.

2. Regneark i utvalgte arbeidsbøker er slått sammen i en ny arbeidsbok, og regnearkene er navngitt med arbeidsboknavnet før eller etter det opprinnelige regnearknavnet hvis du har sjekket Ved å sette inn arbeidsboknavn alternativ. I mellomtiden heter et nytt regneark Kutools for Excel genereres før alle regneark, som viser arbeidsbøkene med detaljert informasjon om hvert regneark. Se skjermbilde:

3. Hvis regnearknavnet ditt er for langt, er navnet på tegnene større enn 31karacters, det kombinerte navnet vil ikke bli vist, og viser bare det opprinnelige arknavnet.

Tips.Hvis du vil ha en gratis prøveversjon av dette verktøyet, kan du gå til Last ned programvaren fritt Først, og deretter gå for å bruke operasjonen i henhold til trinnene ovenfor.


Office-fanen - Tabbed Browsing, redigering og håndtering av arbeidsbøker i Excel:

Office-fanen bringer tabbedgrensesnittet som vist i nettlesere som Google Chrome, Internet Explorer-nye versjoner og Firefox til Microsoft Excel. Det vil være et tidsbesparende verktøy og irreplaceble i arbeidet ditt. Se under demo:

Klikk for gratis prøveversjon av Office-fanen!

Office-fanen for Excel

Demo: Kombiner enkelt flere arbeidsbøker til en arbeidsbok med Kutools for Excel




Relaterte artikler:



Anbefalte produktivitetsverktøy

Office-fanen

gull star1 Ta med praktiske faner til Excel og annen Office-programvare, akkurat som Chrome, Firefox og ny Internet Explorer.

Kutools for Excel

gull star1 Fantastisk! Øk produktiviteten din i 5 minutter. Trenger ikke noen spesielle ferdigheter, lagre to timer hver dag!

gull star1 300 Nye funksjoner for Excel, gjør Excel veldig enkelt og kraftig:

  • Slett Cell / Rows / Columns uten å miste data.
  • Kombinere og konsolidere flere ark og arbeidsbøker.
  • Sammenlign Ranges, Kopier flere ranger, Konverter tekst til dato, Enhet og Valutaomregning.
  • Telling av farger, personsøkende subtotaler, avansert sortering og superfilter,
  • Mer Velg / Sett inn / Slett / Tekst / Format / Link / Kommentar / Arbeidsbøker / Regneark Verktøy ...

Skjermbilde av Kutools for 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.