Gå til hovedindhold

Hvordan flettes eller konsolideres regneark eller projektmapper i et regneark?

I vores daglige arbejde støder vi muligvis på et problem, der fletter hundreder af ark eller projektmapper til et 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 hurtig løsning af dette job.

doc kombinere 1

HURTIG NAVIGATION

Fletning af alle ark med aktiv projektmappe til et ark med VBA
Fletvis snesevis af ark eller projektmapper til et regneark / projektmappe med klik
Fletning af to tabeller i en og opdateres med en kolonne med klik
Download prøvefil


Fletning af alle ark med aktiv projektmappe til et ark med VBA

I dette afsnit giver jeg en VBA-kode, der opretter et nyt ark, der samler alle ark i den aktive projektmappe, mens du kører den.

1. Aktivér den projektmappe, du vil kombinere alle arkene, og tryk derefter på + taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik på i poppevinduet indsatte > Moduler for at oprette et nyt modul script.

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

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").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
doc kombinere 2

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


ikke flytte

Ønsker du lønforhøjelse og meget tid til at ledsage familien?

Fanen Office forbedrer din effektivitet med 50%, når Microsoft Office arbejder lige nu

Utroligt, det er lettere og hurtigere at arbejde på to eller flere dokumenter end at arbejde på et.

Sammenlignet med kendte browsere er fanebladeværktøjet i Office-fanen mere kraftfuldt og mere effektivt.

Reducer hundreder af museklik og tastaturindtastning hver dag for dig, farvel med musens hånd nu.

Hvis du normalt arbejder på flere dokumenter, vil Office Tab være en god tidsbesparelse for dig.

30-dag gratis prøveperiode, ingen kreditkort kræves.

Læs mereGratis download nu


Fletvis snesevis af ark eller projektmapper til et regneark / projektmappe med klik

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

Flet ark på tværs af projektmapper til et ark
doc kombinere 18

Flet ark på tværs af projektmapper til en projektmappe
doc kombinere 3

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

  • Kombiner flere ark eller projektmapper til et ark
  • Kombiner flere ark eller projektmapper i en projektmappe
  • Kombiner ark med samme navn i et ark
  • Konsolider værdier på tværs af ark eller projektmapper til et ark

Her tager den anden mulighed som eksempel:

Kombiner flere ark eller projektmapper i en projektmappe

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Aktivér Excel, klik på Kutools Plus > Kombiner, der vises en dialog for at minde dig om, at de projektmapper, du vil kombinere, skal lukkes. Klik på OK at fortsætte.
doc kombinere 4
doc kombinere 5

2. i Kombiner regneark trin 1 dialog, tjek Kombiner flere regneark fra projektmapper til en projektmappe mulighed. Klik Næste for at gå til næste trin i guiden.
doc kombinere 6

3. klik Tilføj > filet or Folder for at tilføje de projektmapper, du vil kombinere til Liste over projektmapper i ruden, så kan du angive, hvilket regneark der skal sammenføjes ved at kontrollere navne i Liste over regneark rude. Klik på Næste at gå til det sidste trin i guiden.
doc kombinere 7

4. I dette trin skal du angive indstillingerne efter behov. Klik derefter på Finish.
doc kombinere 8

5. Der vises et vindue, hvor du kan vælge en mappe til placering af den kombinerede projektmappe, og klik derefter på Gem.
doc kombinere 9

Nu er projektmapperne blevet flettet i en projektmappe. Og på forsiden af ​​alle ark oprettes der også et hovedark med navnet Kutools til Excel, der viser nogle oplysninger om arkene og linkene til hvert ark.
doc kombinere 10

Demo: Kombiner ark / projektmapper til et ark eller en projektmappe

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

Sig farvel til musens hånd og cervikal spondylose nu

300 avancerede værktøjer af Kutools til Excel løser 80 % Excel-opgaver på få sekunder, trækker dig ud af de tusindvis af museklik.

Håndter nemt 1500 arbejdsscenarier, ingen grund til at spilde tid på at søge løsninger, hav meget tid til at nyde dit liv.

Forbedre 80 % produktivitet for 110000+ yderst effektive mennesker hver dag, selvfølgelig inklusive dig.

For ikke at blive plaget af smertefulde formler og VBA, skal du give din hjerne et hvil og en glædelig arbejdsstemning.

30-dages gratis prøveperiode med alle funktioner, 30-dages pengene tilbage uden grund.

En bedre krop skaber et bedre liv.


Fletning af to tabeller i en og opdateres med en kolonne med klik

Hvis du vil flette to tabeller til en og opdatere data baseret på en kolonne som vist nedenstående skærmbillede, kan du prøve Tabeller flettes nytte af Kutools til Excel.
doc kombinere 11

Kutools til Excel: mere end 200 praktiske Excel-tilføjelsesprogrammer for at forenkle komplicerede opgaver til et par klik i Excel

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. klik Kutools Plus > Tabeller flettes at muliggøre Tabeller flettes guiden.
doc kombinere 12

2. I trin 1 i guiden skal du separat vælge hovedtabellen og opslagstabelområdet. Klik derefter på Næste.
doc kombinere 13

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

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

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

6. I det sidste trin i guiden skal du angive de indstillingsmuligheder, som du har brug for. Klik derefter på Finish.
doc kombinere 17

Nu er hovedtabellen opdateret dataene og tilføjet nye data baseret på opslagstabellen.

Demo: Kombiner ark / projektmapper til et ark eller en projektmappe

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


Download prøvefil

prøve


Anbefalede produktivitetsværktøjer

Fanen Office - Gennemse faner, redigering, styring af dokumenter i Microsoft Office 2019-2003 og Office 365


fanen kontor

Et professionelt tilføjelsesprogram til acceleration af Excel 2019-2007, formindsker opgaver til sekunder

Denne tilføjelse inkluderer snesevis af professionelle grupper med 300+ muligheder, der automatiserer de fleste af dine daglige opgaver i Excel og øger din produktivitet mindst med 50%. Såsom grupper med et klik optons og batchkonverteringer.
Nu er det din chance for at fremskynde dig selv med Kutools til Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations