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

or

Sådan sammenfletes eller konsolideres regneark eller arbejdsbøger i ét regneark?

I vores daglige arbejde kan vi støde på et problem, der fusionerer hundredvis af ark eller arbejdsbøger i ét ark til analyse af data, der tager meget tid, hvis du bruger kommandoen Kopier og indsæt i Excel. Her i denne vejledning vil jeg give nogle tip til hurtigt at løse dette job.

doc kombinere xnumx

QUICK NAVIGATION

Sammenlægning af alle ark af aktiv arbejdsbog i ét ark med VBA
Sammenlægning af snesevis af ark eller arbejdsbøger i ét regneark / arbejdsbog med klik
Sammenlægning af to tabeller i en og opdatering af en kolonne med klik
Download prøvefil


Hurtigt flette flere ark eller arbejdsbøger i ét ark eller en projektmappe

Det Kombiner brugervenlighed af Kutools til Excel, kan hjælpe dig hurtigt og nemt sammenlægge ark på tværs af workbooks i et ark eller en workbook med klik.
Kutools til Excel: 300 + avancerede funktioner vil øge dit daglige arbejde.

kombinere regneark

Sammenlægning af alle ark af aktiv arbejdsbog i ét ark med VBA

I dette afsnit giver jeg en VBA kode, som vil oprette et nyt ark til at samle alle ark i den aktive arbejdsbog, mens du kører den.

1. Aktivér arbejdsmappen, du vil kombinere alle arkene, og tryk derefter på + nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik i poppingvinduet indsatte > Moduler at oprette et nyt modul script.

3. Kopier nedenstående kode og indsæt dem i scriptet.

Underkombinere () 'UpdatebyExtendoffice Dim J som helhed ved fejl Genoptag næste ark (1) .Vælg regneark.Add ark (1) .Name = "Kombineret" ark (2). Aktivér område ("A1"). .Copy Destination: = Sheets (1) .Range ("A1") For J = 2 til Sheets.Count Sheets (J) .Activate Range ("A1"). Vælg Selection.CurrentRegion.Select Selection.Offset (1, 0 ) .Resize (Selection.Rows.Count - 1) .Vælg Selection.Copy Destination: = Ark (1) .Range ("A65536"). Slut (xlUp) (2) Næste End Sub
doc kombinere xnumx

4. Trykke F5 nøglen, så er alle data på tværs af ark blevet flettet ind i et nyt ark med navnet Combined, som er placeret foran på alle ark.

Utrolig! Et værktøj ændrer vejen til redigering og browsing af flere Office-dokumenter.

Åbn filer i flere vinduer

Åbn filer i et faneblad med Office-fanen

ot før pil ot 1

Gratis download Office-fanen


Sammenlægning af snesevis af ark eller arbejdsbøger i ét regneark / arbejdsbog med klik

Med VBA kan du kun kombinere ark i den aktive arbejdsbog, men hvordan kan du flette ark på tværs af arbejdsbøger til et ark eller en projektmappe?

Flette ark over arbejdsbøger i ét ark
doc kombinere xnumx

Flette ark over arbejdsbøger i en projektmappe
doc kombinere xnumx

For at løse dette job og opfylde andre krav til arkkombination, skal Kombiner funktion er udviklet med fire kombinationsscenarier:

  • Kombiner flere ark eller arbejdsbøger i ét ark
  • Kombiner flere ark eller arbejdsbøger i en projektmappe
  • Kombiner de samme navneark i ét ark
  • Konsolider værdier på tværs af ark eller arbejdsbøger i ét ark

Her tages den anden mulighed som eksempel:

mindre tid
højere produktivitet
-300 + professionelle værktøjer til Excel2019-2007

  • Klik for at kombinere flere regneark eller arbejdsbøger
  • Et klik for at fjerne førende nuller / tomme rækker
  • Batch konvertere mellem XLSX og XLS eller PDF
  • Flere hjælpeprogrammer og fordele, prøv selv
kte box

Kombiner flere ark eller arbejdsbøger i en projektmappe

Efter gratis installation af Kutools til Excel, bedes du gøre følgende:

1. Aktivér Excel, klik Kutools Plus > Kombiner, vises en dialog for at minde om, at de arbejdsbøger, du ønsker at kombinere, skal lukkes. Klik OK at fortsætte.
doc kombinere xnumx
doc kombinere xnumx

2. i Kombiner regneark trin 1 dialog, check Kombiner flere regneark fra arbejdsbøger i en projektmappe mulighed. Klik Næste at gå til næste trin af guiden.
doc kombinere xnumx

3. klik Tilføje > filet or Folder at tilføje de arbejdsbøger, du vil kombinere til Arbejdsbog liste rude, så kan du angive hvilket regneark der skal slås sammen ved at tjekke navne i Arbejdsarkliste rude. Klik Næste at gå til guiden sidste trin.
doc kombinere xnumx

4. I dette trin skal du angive de indstillinger, du har brug for. Klik derefter på Finish.
doc kombinere xnumx

5. Et vindue dukker op, når du vælger en mappe for at placere den kombinerede projektmappe, og klik derefter på Gem.
doc kombinere xnumx

Arbejdsbøgerne er nu blevet slået sammen i en projektmappe. Og på forsiden af ​​alle ark er der også oprettet et masterark med navnet Kutools for Excel, som indeholder nogle oplysninger om arkene og linkene for hvert ark.
doc kombinere xnumx

Demo: Kombiner ark / arbejdsbøger i et ark eller en projektmappe

Kutools for Excel: 300 + nyttige praktiske værktøjer, der forenkler de komplicerede opgaver i Excel til et par klik.


Sammenlægning af to tabeller i en og opdatering af en kolonne med klik

Hvis du vil slå sammen to tabeller i en og opdatere data baseret på en kolonne som vist nedenfor, kan du prøve Tabeller Flette nytte af Kutools til Excel.
doc kombinere xnumx

Kutools for Excel: mere end 300 handy Excel-tilføjelser til at forenkle komplicerede opgaver til et par klik i Excel

Efter gratis installation af Kutools til Excel, bedes du gøre følgende:

1. klik Kutools Plus > Tabeller Flette at muliggøre Tabeller Flette guiden.
doc kombinere xnumx

2. I guiden trin 1 skal du separat vælge hovedtabellen og opslagstabellen. Klik derefter på Næste.
doc kombinere xnumx

3. Kontroller nøglekolonnen, du vil opdatere data i hovedtabellen, baseret på. Klik Næste.
doc kombinere xnumx

4. Kontroller derefter kolonnerne i hovedtabellen, som du vil opdatere dataene baseret på opslagstabellen. Klik Næste.
doc kombinere xnumx

5. I trin 4 i guiden skal du kontrollere de kolonner, du vil tilføje fra opslagstabellen til hovedbordet. Klik Næste.
doc kombinere xnumx

6. I det sidste trin af guiden skal du angive indstillingerne for indstilling, som du har brug for. Klik derefter på Finish.
doc kombinere xnumx

Hovedtabellen er nu opdateret dataene og tilføjer nye data baseret på opslagstabellen.

Demo: Kombiner ark / arbejdsbøger i et ark eller en projektmappe

Kutools for Excel: 300 + nyttige praktiske værktøjer, der forenkler de komplicerede opgaver i Excel til et par klik.


Download Sample File

prøve


Anbefalede produktivitetsværktøjer

Office-fanebladet - fanebladning, redigering, administration af dokumenter i Microsoft Office 2019 - 2003 og Office 365


kontor fanen

En professionel tilføjelse til acceleration af Excel 2019-2007, reducere opgaver til sekunder

Denne tilføjelse omfatter snesevis af professionelle grupper, med 300 + -optioner automatiserer de fleste af dine daglige opgaver i Excel og øger din produktivitet i hvert fald af 50%. Såsom grupper af et-klik optons og batch konverteringer.
Nu er det din chance for at fremskynde dig selv med Kutools for Excel!


kutools fanen
kutoolsp-fanen
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.
    arul kumar · 9 months ago
    Hi all,

    I have used the below mentioned code, In my data some blank Rows is there for each tab. Data is not coping after the blank rows. How to combine the all data after the blank rows. Please advise.

    Sub Combine()
    Dim J As Integer
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    Sheets(2).Activate
    Range("A16").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")
    For J = 2 To Sheets.Count
    Sheets(J).Activate
    Range("A17").Select
    Selection.CurrentRegion.Select
    Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
    Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
    End Sub

    Thanks
    Arul
    • To post as a guest, your comment is unpublished.
      Sunny · 8 months ago
      You can try below code, it will merge all data and skip blank rows.

      Sub CombineForm()
      Dim xI, xMax As Integer
      Dim xCWS, xWS As Worksheet
      Dim xObjRRange, xObjCRange, xObjSR As Range
      On Error Resume Next
      Sheets(1).Select
      Set xCWS = Worksheets.Add
      xCWS.Name = "Combined"
      Sheets(2).Activate
      Range("A1").EntireRow.Select
      Selection.Copy Destination:=xCWS.Range("A1")
      For xI = 2 To Sheets.Count
      Set xWS = Sheets(xI)
      xWS.Activate
      Set xObjRRange = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
      Set xObjCRange = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
      Set xObjSR = Range(Cells(1, 1), Cells(xObjRRange.Row, xObjCRange.Column))
      xObjSR.Select
      Selection.Copy Destination:=xCWS.Range("A65536").End(xlUp)(2)
      Next
      xMax = xCWS.Range("a65536").End(3).Row
      xCWS.Range("a1:a" & xMax).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      End Sub
      • To post as a guest, your comment is unpublished.
        arul kumar · 8 months ago
        Thank you, Sunny! This coding is working fine..

        But i want to combine all the sheets from row no: 16. Could you help us to update the coding.

        Thanks
        Arul
        • To post as a guest, your comment is unpublished.
          Sunny · 7 months ago
          The below code will combine sheets from the second row, you can change the number 2 (xStart = 2) to other number for you need.

          Sub CombineForm()
          Dim xStart, xFNum, xIntCFMax, xIntRRg, xIntCRg As Integer
          Dim xCFWS, xWS As Worksheet
          Dim xObjSR As Range
          Dim xStrName As String
          On Error Resume Next
          Application.ScreenUpdating = False
          xStart = 2
          xStrName = "CombinedForm"
          Set xWS = Sheets(xStrName)
          If xWS Is Nothing Then
          xWS.Delete
          End If
          Set xCFWS = Worksheets.Add
          xCFWS.Name = xStrName

          For xFNum = 1 To Sheets.Count
          Set xWS = Sheets(xFNum)
          If xWS.Name <> xStrName Then
          xWS.Activate
          xIntRRg = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
          xIntCRg = xWS.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
          If xStart <= xIntRRg Then
          Set xObjSR = Range(Cells(xStart, 1), Cells(xIntRRg, xIntCRg))
          xObjSR.Select
          Selection.Copy Destination:=xCFWS.Range("A65536").End(xlUp)(2)
          End If
          End If
          Next
          Application.ScreenUpdating = True
          End Sub
      • To post as a guest, your comment is unpublished.
        arul · 8 months ago
        Thank you, Sunny!

        I want to combine the sheet from row no:16. Could you help me to update the coding.

        Thanks
        Arul
  • To post as a guest, your comment is unpublished.
    Neno · 1 years ago
    My headings start on row 26, the first 25 rows are occupied with the parameters I used to generate my reports, it would take a long time to delete these since there are many reports generated. Using the VBA code above, how could I configure this code to exclude the first 25 rows, capture the headings on row 26 and combine all the data under the headings (row 27 onwards) for each worksheet?
    • To post as a guest, your comment is unpublished.
      Bruno G. · 11 months ago
      Change all the "A1" in the code to "A26". Save your data before trying this change, just in case!
  • To post as a guest, your comment is unpublished.
    Tina · 1 years ago
    Hi.. The VBA code works fine. Thank you! But can you please help on how I can edit the code so that only 2 sheets will be combined? I have 5 sheets in my workbook but I only need to combine 2 of them.
    • To post as a guest, your comment is unpublished.
      Nigah · 1 years ago
      Just save as the current workbook with a new name and delete other three worksheets which you don't want to combine, now you have only your desired two sheets for VBA code execution.
  • To post as a guest, your comment is unpublished.
    deepak · 1 years ago
    hello everyone

    I want to merged more workbook data in one so give me suggest
  • To post as a guest, your comment is unpublished.
    oduff · 1 years ago
    Hi everyone,

    First of all I have to tell that I have no experience with Macro (VBA Codes). However what I need is related to this. Maybe you guys could help me with it.

    I have a workbook and in this workbook there are 10 worksheets. The first 9 Sheets have the same order of the coloumns of titles and in these columns there are names, dates, percentages of Project Status, comments to Projects etc.. As I said the columns have the same order just the name of the worksheets (for different Teams in the Organisation) are different.

    In Addition to this I have to merge all the worksheets and have them in another sheet which is called "Übersicht" (Overview). However there is a different column in the sheet and it's between "Nr." and "Thema" columns (which are in A1 and A2 in all the 9 Sheets) and this different column called "Kategorie" (in A2 in Übersicht-Overwiev sheet). As this column is between These the order is like this "Nr. (A1), Kategorie (A2) and Thema (A3).....".So this category column (Kategorie) should be empty except this all the Information should be merged into this sheet. And also when there is a Change or update in any worksheet, the Information in "Übersicht" (Overview) sheet needs to update by itself. How can I do this?

    P.S.: Every sheet has different filled rows, some 30, some 13, some 5 etc. And the Teams which are responsible for the Sheets can add or delete some rows (in each row there is different Information for different Projects). This also means the number of rows can increase or decrease.

    I hope I explained it well. Thanks a lot in advance!

    I wish you merry Christmas and a happy new year!

    oduff