Hoppa till huvudinnehåll

Hur samlar jag in data från flera ark till ett huvudark i Excel?

Under en tid kan du behöva samla in data från flera ark till ett huvudark för att konsolidera eller utföra andra åtgärder som visas nedan på skärmdumpen, men att kopiera och klistra in innehållet en efter en är besvärligt, finns det några knep som snabbt kan lösa det i Excel?

Samla in data från flera ark till ett med konsolideringsfunktionen

Samla in data från flera ark till ett med VBA-kod

Samla in data från flera ark till ett med kraftfull kombinera-funktionbra idé3


Samla in data från flera ark till ett med konsolideringsfunktionen

Om du vill samla in data från flera ark till ett ark i samma arbetsbok kan du använda konsolideringsfunktionen i Excel.

1. Klicka på i ett nytt ark i arbetsboken som du vill samla in data från ark Data > Konsolidera.
doc samla in ark i ett 1

2. I Consolidate dialogruta, gör så här:

(1 Välj en åtgärd som du vill göra efter att ha kombinerat data i Funktion rullgardinsmeny;

(2 Klicka på doc välj-knapp för att välja intervallet för varje ark du vill samla in;

(3 Klicka på Add för att lägga till dataområdet i All references listruta;

(4 Kontrollera etiketterna du använder efter kombinerad data och kontrollera Create links to source data alternativ om du vill länka data i kombinerat ark med källdata.
doc samla in ark i ett 2

3. klick OK. Nu har uppgifterna samlats in och summerats i ett ark.
doc samla in ark i ett 3


Kombinera enkelt flera ark / arbetsbok i ett ark eller arbetsbok

Att kombinera flera ark eller arbetsböcker till ett ark eller arbetsbok kan vara snedigt i Excel, men med Kombinera funktion i Kutools för Excel, du kan kombinera sammanfoga dussintals ark / arbetsböcker till ett ark eller arbetsbok, du kan också konsolidera arken i ett med flera klick.  Klicka för en 30 dagars gratis provperiod med alla funktioner!
kombinera lakan
 
Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar.

Samla in data från flera ark till ett med VBA-kod

Här är en VBA-kod som kan samla in data från alla ark i ett nytt ark i den aktuella arbetsboken.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic for Applications fönster.

2. klick Insert > Module, och kopiera och klistra in nedanför koden till Module skript.

VBA: Samla all data från ark till en.

Sub Combine()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub
doc samla in ark i ett 4

3. Tryck F5 nyckeln för att köra koden, all data i hela arbetsboken har samlats in i det nya bladet Combined.
doc samla in ark i ett 5


Samla data från flera ark till ett med kraftfulla Combine fungera

Om du vanligtvis behöver kombinera ark till ett, introducerar jag en kraftfull kombinerafunktion för dig, det är Kutools för ExcelÄr Kombinera verktyg som har nedan fyra huvudfunktioner:

Kombinera flera kalkylblad från arbetsboken till ett kalkylblad

Kombinera alla kalkylblad med samma namn i ett kalkylblad

Kombinera flera kalkylblad från arbetsböcker till en arbetsbok

Konsolidera och beräkna värden över flera arbetsböcker till ett kalkylblad

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

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

Om du bara vill kombinera ark till ett ark utan några andra operationer kan du göra på följande sätt:

1. Aktivera Excel, klicka på Kutools Plus > Combine, det finns en eller två dialogrutor för att påminna dig om några meddelanden, klicka bara OK och Ja att fortsätta. Se skärmdump:

2. klick OK för att gå till Combine fönster, kolla Combine multiple worksheets from workbook into worksheet alternativ.

3. klick Next, Klicka sedan Add > File / Folder för att lägga till arbetsböcker du kommer att använda för att kombinera till Workbook list. Gå sedan till Worksheet list för att kontrollera de ark du vill kombinera från varje arbetsbok.

4. klick Next för att gå till det sista steget kan du specificera en inställning för tröskan efter behov. Om du inte behöver detta steg.

5. klick Finish och välj en mapp för att placera den nya arbetsboken som kombinerar data från ark.
doc samla in ark i ett 13

6. klick Save. Nu har all data samlats in från ark över arbetsbok till ett huvudark.
doc samla in ark i ett 14

Om du vill konsolidera kalkylblad över arbetsböcker till en, gör så här:

1. I Combine fönster, kolla Consolidate and calculate values across multiple worksheets into one worksheet alternativ.

2. klick Next, och lägg till filer i Workbook list, kontrollera sedan arken du använder för att kombinera och beräkna.

3. klick Next, välj sedan en beräkning från Function rullgardinsmenyn och kontrollera andra alternativ efter behov.

4. klick Finish för att spara den nya arbetsboken i en mapp.

Nu har arken över arbetsböcker konsoliderats och beräknats till ett ark.
doc samla in ark i ett 18


Kutools för Excel: 300 funktioner du måste ha i Excel, 30-dagars gratis testperiod härifrån.

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the VBA code - it works well! How can I extend the code so that when the sheets are combined that they are combined as values? I am running into some issues with circular reference issues when I try to interact with the combined sheet.
This comment was minimized by the moderator on the site
The VBA code works perfectly! , how can i edit it so it skips the first page in my workbook and merges the remaining pages?
This comment was minimized by the moderator on the site
Hi,
I'm trying to accomplish the following:
Get data from multiple tabs in a specific cell range (B3-E169).
Data would be compiled in columns...i.e., column B copies into column B on new spreadsheet, column C copies into column C on new spreadsheet, etc.
If there are more than two blank columns in B, stop & move onto next worksheet and get same data.
The result that I'm trying to get is a material list from different categories (hence the different tabs).

This is how I think it should work:
Lookup WS1 column B3-B169.
If two blank columns, Lookup WS2 column B3-B169,
If two blank columns, Lookup WS3 column B3-B169, etc.

WS2 should skip a space/column & come in underneath WS1.
WS3 should skip a space/column & come in underneath WS2,.etc.

Repeat or columns C, D & E
This comment was minimized by the moderator on the site
hmm your VBA code removes the last row from individual sheet when combined .. any idea how to solve this issue?
This comment was minimized by the moderator on the site
any answer for this?
This comment was minimized by the moderator on the site
How do you make your VBA overwrite the compiled data onto the same master list, rather than add a new sheet?
This comment was minimized by the moderator on the site
De que forma se puede obtener solo el valor de las hojas y llevarla a la hoja que se va a resumir todo, por ejemplo, en caso de que una hoja de las que se van a combinar exista una celda calculada o que dependa de otra hoja, por eso pregunto si se puede llevar solo los valores.
This comment was minimized by the moderator on the site
Sorry, could you repeat your quetion in English?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations