Note: The other languages of the website are Google-translated. Back to English

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, har meget tid til at nyde dit liv.

Forbedre 80% produktivitet for 110000+ meget 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 penge 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!


Sorter kommentarer efter
Kommentarer (168)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
brugte din første makrofunktion. WOW! tak for indlægget
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tror, ​​koden 'Udvælgelse.Forskydning(0, 0). Ændr størrelse(Udvalg.Rækker.Tæller - 1).Vælg' behøver ikke at være der. På min side, hvad det gør, er at vælge den anden række og fremefter mangler den første.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har samme problem. Det er at udelade den første række fra det andet regneark tilføjet.
Denne kommentar blev minimeret af moderatoren på webstedet
Eliminerer overskrifter, så du ikke har duplikerede overskrifter
Denne kommentar blev minimeret af moderatoren på webstedet
Virker som en charme, tak fordi du deler!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak skal du have! Makroen fungerede perfekt.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ved ikke, hvordan man bruger VBN-funktionen i Excel, kan du hjælpe med, hvordan man gør det.
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk, tak!!! Meget meget nyttig
Denne kommentar blev minimeret af moderatoren på webstedet
Macro one fungerer fint. Tak!! Det er fantastisk!!!! :)
Denne kommentar blev minimeret af moderatoren på webstedet
Bemærk, at dette er begrænset af rækkegrænsen på 65, hvis du skal op på linjen Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)-området for at løse problemet.
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk værktøj, men det kombinerer ikke alle 21 ark. Hvordan kan jeg udvide sortimentet?
Denne kommentar blev minimeret af moderatoren på webstedet
BEMÆRK!!! Du skal være forsigtig med makroen.. det vil virke, hvis dine data har en kontinuerlig informationsstrøm og ingen tom række. dette gør linjen "Selection.CurrentRegion.Select". For eksempel, hvis du skal kopiere ALLE data på et regneark, men der er en tom linje ved (lad os sige) række 200, vil makroen kun kopiere ned til række 200; DET BLIR SILKEREDE ALLE DATA UNDER DEN RÆKKE!!!
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen der kender en kommando til at undgå dette problem?? Problemet med Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select kan løses? Selection.Rows.Count - 1) er kommandoen, der stammer fra problemet. Nogen som helst??
Denne kommentar blev minimeret af moderatoren på webstedet
I stedet for at starte fra toppen og gå ned, så start fra bunden og gå op
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen, der kender koden til at løse problemer med tomme rækker og kolonner?. Jeg har det i mine data, men der er ingen simpel løsning som at starte nedefra og op? Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
For sletning af rækker, der er tomme: Mulighed 1: Vælg celler i kolonne A, der skal slettes. Brug Ctrl - og vælg derefter Entire Row i pop-up. Gem projektmappe og afslut. Åbn derefter projektmappen. Mulighed 2: Vælg rækker, der skal slettes. Brug Ctrl -. Gem projektmappe og afslut Den åbne projektmappe. Gav mulighed 1, så det var synligt for dig, hvad der skete. For at slette kolonner, der er tomme: Vælg kolonne. Ctrl -. Gem projektmappe og afslut Den åbne projektmappe.
Denne kommentar blev minimeret af moderatoren på webstedet
Har vi nogen løsning til at kopiere dataene under den tomme celle?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak skal du have ! Min 2. række var tom i alle ark, og jeg var forvirret.
Denne kommentar blev minimeret af moderatoren på webstedet
vba-koden fungerede godt, men jeg har brug for, at det kombinerede regneark opdateres, da jeg tilføjer nye rækker eller nye data til cellerne i regnearkene, som jeg kombinerer. Er der en måde at gøre det på? Tak for din hjælp.
Denne kommentar blev minimeret af moderatoren på webstedet
Makrokoden fungerede godt for det første kombinerede regneark, men jeg har brug for, at det kombinerede regneark opdateres, da jeg tilføjer data til de eksisterende regneark, som jeg kombinerer. Er der en måde at gøre det på?
Denne kommentar blev minimeret af moderatoren på webstedet
Har du nogensinde fundet ud af, hvordan du får det til at opdatere i masteren, mens du tilføjer i rækker til de andre regneark?
Denne kommentar blev minimeret af moderatoren på webstedet
Fremragende arbejde.. Dette har reduceret mit arbejde fra 2 timer til 10 minutter.
Denne kommentar blev minimeret af moderatoren på webstedet
Fremragende, jeg brugte både den første makro og Kutools, begge har reduceret min dataindsamling og kompileringsarbejde enormt. Tak fordi du delte.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har lige slettet den del, der er angivet nedenfor, og nu opdateres den kun. Håber dette hjælper... Sheets(1).Vælg Worksheets.Add
Denne kommentar blev minimeret af moderatoren på webstedet
Koden fungerer godt! Jeg har brug for makroen til at kopiere alle data på arkene. Den skærer den første række af efter ark 1. Kun ark et har overskriftsrækken, de andre ark er blot data. Er dette muligt?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har spørgsmål om "Flet alle regneark til ét regneark med VBA-kode": Koden fungerer meget godt, men kun når den er tom, tilføjer den headeren, det er muligt at ændre koden til at sige, at det tomme ark ikke skal konsolideres?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, du sparede mig for en times copy and paste :D
Denne kommentar blev minimeret af moderatoren på webstedet
Har to projektmapper, samme data, men den anden har ekstra data og nogle data er blevet opdateret, inv# Status 123 7/2 åben inv# status 123 7/2 åben 7/7 lukket hvordan flettes sammen til én fjerner eller fremhæver dubletter og tilføjer enhver ny inv# ikke i den første
Denne kommentar blev minimeret af moderatoren på webstedet
Fungerer godt, hvis din kolonne A er ikke-=tom. På ark med spalte A tom ser det ud til at overskrive. I min dtaa kolonne E er en ikke-blank på alle ark. Hvordan kan jeg ændre kopidestinationen, så den tager højde for tom kolonne A på nogle ark?
Denne kommentar blev minimeret af moderatoren på webstedet
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i Som heltal For i = 2 til 25 ark("Sheet1").Vælg område("A1").Vælg Selection.End(xlDown).Vælg område("A" & CStr(Selection.Row) + 1).Vælg Sheets("Sheet" & CStr(i)).Vælg område("A2").Vælg område(Selection, Selection.End(xlDown)).Vælg Range(Selection, Selection) .End(xlToRight)).Vælg Selection.Cut Sheets("Sheet1").Vælg ActiveSheet.Paste Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Range("A:A").SpecialCells(xlCellTypeLastCell).Vælg ActiveCell.Offset(1, 0).Vælg 'brug denne kode til at vælge sidste celle i kolonne "A" [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i Som heltal For i = 2 til 25 ark("Ark1").Vælg område("A1").Vælg valg.End(xlNed).Vælg område("A" & CStr(valg.række) + 1) .Vælg Sheets("Sheet" & CStr(i)).Vælg område("A2").Vælg område(udvælgelse, markering.End(xlNed)).Vælg område(udvælgelse, markering.End(xlTilHøjre)).Vælg markering .Cut Sheets("Sheet1"). Vælg ActiveSheet. Paste Next End SubAf clopez[/ Quote]
Denne kommentar blev minimeret af moderatoren på webstedet
MAKROKODEN FUNGEREDE SÅ FIN... FANTASTISK JOB :-)
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL