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

Hur slår man samman eller konsoliderar kalkylblad eller arbetsböcker i ett kalkylblad?

I vårt dagliga arbete kan vi stöta på ett problem som slår samman hundratals ark eller arbetsböcker till ett ark för att analysera data som tar mycket tid om du använder kommandot Kopiera och klistra in i Excel. Här i denna handledning kommer jag att ge några tips för att snabbt lösa detta jobb.

doc kombinera 1

SNABB NAVIGATION

Sammanfoga alla ark med aktiv arbetsbok till ett ark med VBA
Slå ihop dussintals ark eller arbetsböcker till ett arbetsblad / arbetsbok med klick
Sammanfoga två tabeller i en och uppdatera med en kolumn med klick
Ladda ner exempelfil


Sammanfoga alla ark med aktiv arbetsbok till ett ark med VBA

I det här avsnittet tillhandahåller jag en VBA-kod som skapar ett nytt ark för att samla alla ark i den aktiva arbetsboken medan du kör den.

1. Aktivera arbetsboken du vill kombinera alla ark och tryck sedan på + nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka på i poppfönstret Insert > Modulerna för att skapa ett nytt modulskript.

3. Kopiera nedanstående kod och klistra in dem i skriptet.

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 kombinera 2

4. Tryck F5 nyckeln, då har all data över ark sammanförts till ett nytt ark med namnet Combined som placeras framför alla ark.


inte flytta

Vill du ha löneförhöjning och mycket tid att följa med familjen?

Fliken Office förbättrar din effektivitet med 50% när Microsoft Office arbetar just nu

Otroligt, att arbeta på två eller flera dokument är enklare och snabbare än att arbeta på ett.

Jämfört med kända webbläsare är flikverktyget i Office-fliken kraftfullare och effektivare.

Minska hundratals musklick och tangentbordstypning varje dag åt dig, säg adjö till mushanden nu.

Om du vanligtvis arbetar med flera dokument kommer Office Tab att vara en bra tidsbesparing för dig.

30- dagars gratis provperiod, inget kreditkort krävs.

Läs merGratis nedladdning nu


Slå ihop dussintals ark eller arbetsböcker till ett arbetsblad / arbetsbok med klick

Med VBA kan du bara kombinera ark i den aktiva arbetsboken, men hur kan du slå samman ark mellan arbetsböcker till ett ark eller en arbetsbok?

Slå samman ark över arbetsböcker till ett ark
doc kombinera 18

Slå samman ark över arbetsböcker till en arbetsbok
doc kombinera 3

För att lösa detta jobb och uppfylla andra krav på ark-kombination, Kombinera funktionen har utvecklats med fyra kombinationsscenarier:

  • Kombinera flera ark eller arbetsböcker till ett ark
  • Kombinera flera ark eller arbetsböcker i en arbetsbok
  • Kombinera samma namnblad till ett ark
  • Konsolidera värden över ark eller arbetsböcker till ett ark

Här tar det andra alternativet som exempel:

Kombinera flera ark eller arbetsböcker i en arbetsbok

Efter gratis installation Kutools för Excel, gör så här:

1. Aktivera Excel, klicka på Kutools Plus > Kombinera, en dialogruta dyker upp för att påminna dig om att arbetsböckerna du vill kombinera behövs stängas. Klick OK att fortsätta.
doc kombinera 4
doc kombinera 5

2. I Kombinera arbetsblad steg 1 dialogrutan, kontrollera Kombinera flera kalkylblad från arbetsböcker till en arbetsbok alternativ. Klick Nästa för att gå till nästa steg i guiden.
doc kombinera 6

3. klick Lägg till > Fil or mapp för att lägga till de arbetsböcker du vill kombinera till Arbetsbokslista i rutan kan du ange vilket kalkylblad som ska sammanfogas genom att kolla in namnen Kalkylbladslista ruta. Klick Nästa för att gå till det sista steget i guiden.
doc kombinera 7

4. I det här steget anger du inställningarna efter behov. Klicka sedan Finish.
doc kombinera 8

5. Ett fönster dyker upp för att du ska välja en mapp för att placera den kombinerade arbetsboken och klicka sedan på Save.
doc kombinera 9

Nu har arbetsböckerna sammanförts till en arbetsbok. Och på framsidan av alla ark skapas också ett huvudark med namnet Kutools for Excel som listar lite information om arken och länkar för varje ark.
doc kombinera 10

Demo: Kombinera ark / arbetsböcker till ett ark eller arbetsbok

Kutools för Excel: 200 + användbara praktiska verktyg som förenklar de komplicerade uppgifterna i Excel med några få klick.

Säg adjö till mushand och cervikal spondylos nu

300 avancerade verktyg av Kutools för Excel lösa 80% Excel-uppgifter på några sekunder, dra dig ut ur tusentals musklick.

Hantera enkelt 1500 arbetsscenarier, du behöver inte slösa tid på att söka lösningar, ha mycket tid att njuta av ditt liv.

Förbättra 80% produktivitet för 110000+ mycket effektiva människor varje dag, naturligtvis inklusive dig.

Inte längre att plågas av smärtsamma formler och VBA, ge din hjärna en vila och glädjande arbetsstämning.

30-dagars gratis provperiod med alla funktioner, 30-dag pengarna tillbaka utan skäl.

En bättre kropp skapar ett bättre liv.


Sammanfoga två tabeller i en och uppdatera med en kolumn med klick

Om du vill slå samman två tabeller i en och uppdatera data baserat på en kolumn som visas nedan, kan du prova Tabeller slås samman nytta av Kutools för Excel.
doc kombinera 11

Kutools för Excel: mer än 200 praktiska Excel-tillägg för att förenkla komplicerade uppgifter till några få klick i Excel

Efter gratis installation Kutools för Excel, gör så här:

1. klick Kutools Plus > Tabeller slås samman att möjliggöra Tabeller slås samman guiden.
doc kombinera 12

2. I steg 1 i guiden måste du välja huvudtabell- och uppslagstabellintervall separat. Klicka sedan Nästa.
doc kombinera 13

3. Kontrollera nyckelkolumnen som du vill uppdatera data i huvudtabellen baserat på. Klick Nästa.
doc kombinera 14

4. Kontrollera sedan kolumnerna i huvudtabellen som du vill uppdatera data baserat på uppslagstabell. Klick Nästa.
doc kombinera 15

5. I steg 4 i guiden, kontrollera kolumnerna du vill lägga till från uppslagstabellen till huvudtabellen. Klick Nästa.
doc kombinera 16

6. I det sista steget i guiden anger du inställningsalternativen efter behov. Klicka sedan Finish.
doc kombinera 17

Nu har huvudtabellen uppdaterats och lagt till nya data baserat på uppslagstabellen.

Demo: Kombinera ark / arbetsböcker till ett ark eller arbetsbok

Kutools för Excel: 200 + användbara praktiska verktyg som förenklar de komplicerade uppgifterna i Excel med några få klick.


Ladda ner provfil

prov


Rekommenderade produktivitetsverktyg

Fliken Office - Bläddring, redigering, hantering av dokument i Microsoft Office 2019-2003 och Office 365


Office-fliken

Ett professionellt tillägg för att påskynda Excel 2019-2007, krympa timmar till sekunder

Detta tillägg innehåller dussintals yrkesgrupper, med 300+ alternativ automatiserar de flesta av dina dagliga uppgifter i Excel och ökar din produktivitet med minst 50%. Såsom grupper med ett klick optons och batchkonverteringar.
Nu är det din chans att snabba upp dig själv med Kutools för Excel!


Sortera kommentarer efter
Kommentarer (168)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
använde din första makrofunktion. WOW! tack för inlägget
Denna kommentar minimerades av moderatoren på webbplatsen
Jag tror att koden'Selection.Offset(0, 0). Ändra storlek(Selection.Rows.Count - 1).Välj' behöver inte vara där. På min sida, vad det gör är att välja den andra raden och framåt, utan den första.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har samma problem. Det utelämnar den första raden från det andra kalkylbladet som lagts till.
Denna kommentar minimerades av moderatoren på webbplatsen
Eliminerar rubriker så att du inte har dubblerade rubriker
Denna kommentar minimerades av moderatoren på webbplatsen
Fungerar som en charm, tack för att du delar med dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack! Makrot fungerade perfekt.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vet inte, hur man använder VBN-funktionen i Excel, kan du hjälpa dig hur man gör det.
Denna kommentar minimerades av moderatoren på webbplatsen
Fantastiskt, tack!!! Mycket mycket användbar
Denna kommentar minimerades av moderatoren på webbplatsen
Macro one fungerar bra. Tack!! Det är grymt!!!! :)
Denna kommentar minimerades av moderatoren på webbplatsen
Observera att detta begränsas av radgränsen på 65 1, om du behöver öka raden Selection.Copy Destination:=Sheets(65536).Range("A2").End(xlUp)(XNUMX)-intervall för att lösa problemet.
Denna kommentar minimerades av moderatoren på webbplatsen
Bra verktyg men det kombinerar inte alla 21 ark. Hur kan jag utöka sortimentet?
Denna kommentar minimerades av moderatoren på webbplatsen
NOTERA!!! Du måste vara försiktig med makrot.. det fungerar om din data har ett kontinuerligt flöde av information och ingen tom rad. detta gör raden "Selection.CurrentRegion.Select". Till exempel, om du behöver kopiera ALLA data på ett kalkylblad men det finns en tom rad på (låt oss säga) rad 200, kommer makrot bara att kopiera ner till rad 200; DET KOMMER ATT BORTA OM ALLA DATA UNDER DEN RADEN!!!
Denna kommentar minimerades av moderatoren på webbplatsen
Är det någon som vet ett kommando för att undvika detta problem?? Problemet med Selection.Offset(1, 0). Ändra storlek(Selection.Rows.Count - 1). Välj kan lösas? Selection.Rows.Count - 1) är kommandot som orsakar problemet. Någon??
Denna kommentar minimerades av moderatoren på webbplatsen
Istället för att börja från toppen och gå ner, börja från botten och gå upp
Denna kommentar minimerades av moderatoren på webbplatsen
Är det någon som kan koden för att lösa problem med tomma rader och kolumner? Jag har det i min data men det finns ingen enkel lösning som att börja nerifrån och upp? Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
För att ta bort rader som är tomma: Alternativ 1: Markera celler i kolumn A som behöver tas bort. Använd Ctrl - och välj sedan Hela raden i popup-fönstret. Spara arbetsboken och avsluta. Öppna sedan arbetsboken. Alternativ 2: Välj rader som behöver tas bort. Använd Ctrl -. Spara arbetsbok och avsluta Den öppna arbetsboken. Gav alternativ 1 så att det var synligt för dig vad som hände. För att ta bort kolumner som är tomma: Välj kolumn. Ctrl -. Spara arbetsbok och avsluta Den öppna arbetsboken.
Denna kommentar minimerades av moderatoren på webbplatsen
Har vi någon lösning för att kopiera data under den tomma cellen?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack ! Min andra rad var tom i alla ark och jag var förvirrad.
Denna kommentar minimerades av moderatoren på webbplatsen
vba-koden fungerade utmärkt men jag behöver det kombinerade kalkylbladet för att uppdatera när jag lägger till nya rader eller nya data i cellerna i kalkylbladen som jag kombinerar. Finns det något sätt att göra det? Tack för din hjälp.
Denna kommentar minimerades av moderatoren på webbplatsen
Makrokoden fungerade utmärkt för det första kombinerade kalkylbladet, men jag behöver det kombinerade kalkylbladet för att uppdatera när jag lägger till data till de befintliga kalkylbladen som jag kombinerar. Finns det något sätt att göra det?
Denna kommentar minimerades av moderatoren på webbplatsen
Har du någonsin kommit på hur du får det att uppdatera i mastern när du lägger till i rader i de andra kalkylbladen?
Denna kommentar minimerades av moderatoren på webbplatsen
Utmärkt jobbat.. Detta har minskat mitt arbete från 2 timmar till 10 minuter.
Denna kommentar minimerades av moderatoren på webbplatsen
Utmärkt, jag använde både det första makrot och Kutools, båda har minskat min datainsamling och kompileringsarbete enormt. Tack för att du delar med dig.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag raderade precis delen nedan och nu uppdateras den bara. Hoppas detta hjälper... Sheets(1).Välj Worksheets.Add
Denna kommentar minimerades av moderatoren på webbplatsen
Koden fungerar utmärkt! Jag behöver makrot för att kopiera all data på arken. Den skär av den första raden efter ark 1. Endast ark ett har rubrikraden, de andra arken är bara data. Är detta möjligt?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en fråga om "Sammanfoga alla kalkylblad till ett kalkylblad med VBA-kod": Koden fungerar mycket bra, men bara när den är tom lägger den till rubriken, det är möjligt att modifiera koden för att säga att det tomma arket inte ska konsolideras?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack, du sparade mig en timmes kopiering och klistra in :D
Denna kommentar minimerades av moderatoren på webbplatsen
Har två arbetsböcker, samma data men den andra har extra data och en del data har uppdaterats, inv# Status 123 7/2 öppen inv# status 123 7/2 öppen 7/7 stängd hur man sammanfogar till en tar bort eller markerar dubbletter och lägger till någon ny inv# inte i den första
Denna kommentar minimerades av moderatoren på webbplatsen
Fungerar utmärkt om din kolumn A är icke-=tom. På ark med kolumn A tom verkar det skrivas över. I min dtaa kolumn E är en icke tom på alla ark. Hur kan jag ändra kopieringsdestinationen för att ta hänsyn till tom kolumn A på vissa ark?
Denna kommentar minimerades av moderatoren på webbplatsen
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i Som heltal För i = 2 till 25 ark("Sheet1").Välj intervall("A1").Välj Selection.End(xlDown).Välj intervall("A" & CStr(Selection.Row) + 1).Välj Sheets("Sheet" & CStr(i)).Välj intervall("A2").Välj intervall(Selection, Selection.End(xlDown)).Välj intervall(Selection, Selection) .End(xlToRight)).Välj Selection.Cut Sheets("Sheet1").Välj ActiveSheet.Paste Next End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Range("A:A").SpecialCells(xlCellTypeLastCell).Välj ActiveCell.Offset(1, 0). Välj 'använd denna kod för att välja sista cellen i kolumn "A" [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i som heltal för i = 2 till 25 ark("Sheet1").Välj intervall("A1").Välj Selection.End(xlDown).Välj intervall("A" & CStr(Selection.Row) + 1) .Välj Sheets("Sheet" & CStr(i)).Välj intervall("A2").Välj intervall(Selection, Selection.End(xlDown)).Välj Range(Selection, Selection.End(xlToRight)).Välj Selection .Cut Sheets("Sheet1").Välj ActiveSheet.Paste Next End SubAv clopez[/ Quote]
Denna kommentar minimerades av moderatoren på webbplatsen
MAKROKODEN FUNDADE SÅ FANTASTISKT... FANTASTISKT JOBB :-)
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL