Ugrás a tartalomra

Hogyan lehet egyesíteni több lapot ugyanazokkal a fejlécekkel az Excelben?

Például van néhány adatod ugyanazokkal a fejlécekkel különböző lapokban, mint az alábbi képernyőképeken, és most az a feladatod, hogy ezeket a lapokat egyetlen lapba egyesítsd. A másolás és beillesztés helyett ez az oktatóanyag bemutatja a munka jobb kezelésének módjait.

doc kombinálja ugyanazt az 1. fejlécet
doc kombinálja ugyanazt az 2. fejlécet
doc kombinálja ugyanazt az 3. fejlécet

Lapok egyesítése ugyanazokkal a fejlécekkel a VBA által

Szilárdítsa az Excel-lapokat ugyanazokkal a fejlécekkel a Konszolidálás funkcióval

Egyesítse vagy konszolidálja az Excel-lapokat ugyanazokkal a fejlécekkel a Kutools for Excel segítségével jó ötlet3


nyíl kék jobb buborék Lapok egyesítése ugyanazokkal a fejlécekkel a VBA által

Ha csak egyesíteni szeretné a lapokat ugyanazokkal a fejlécekkel, számítások nélkül, akkor megoldhatja a VBA kódot.

1. Aktiválja a lapokat egyesíteni kívánt munkafüzetet, nyomja meg a gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az újba Modulok ablak.

VBA: Lapok egyesítése ugyanazokkal a fejlécekkel

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3. nyomja meg F5 gombot a VBA futtatásához, és megjelenik egy párbeszédpanel, amelyben megadhatja a címsorok számát. Lásd a képernyőképet:

doc kombinálja ugyanazt az 4. fejlécet

4. kettyenés OK. És az aktív munkafüzet összes lapja összevonásra kerül egy új nevű lapba "Kombinált".

doc kombinálja ugyanazt az 1. fejlécet
doki plusz
doc kombinálja ugyanazt az 2. fejlécet
doki plusz
doc kombinálja ugyanazt az 3. fejlécet
doc függőleges egyenlő
doc kombinálja ugyanazt az 3. fejlécet

Tipp:

(1.) Adataidnak A1-től kell kezdődniük, ha nem, akkor a kód nem lép érvénybe.

(2.) Adatainak azonos szerkezettel kell rendelkezniük.

(3.) Ez a kód csak az aktív munkafüzet összes munkalapját egyesítheti, ha több munkafüzetből szeretne egyesíteni munkalapokat, akkor ez a kód nem fog működni.


nyíl kék jobb buborék Szilárdítsa az Excel-lapokat ugyanazokkal a fejlécekkel a Konszolidálás funkcióval

Ha feltételezzük, hogy vannak olyan adatai, amelyek ugyanazokkal az oszlop- és sorfejlécekkel rendelkeznek, mint az alábbi képernyőképen, és az Excel-lapokat egyesíteni szeretné ugyanazokkal a fejlécekkel, majd elvégezni néhány számítást, alkalmazhatja az Összevonás funkciót az Excelben.

doc kombinálja ugyanazt az 6. fejlécet
doc kombinálja ugyanazt az 7. fejlécet
doc kombinálja ugyanazt az 8. fejlécet

1. Nyissa meg az összes munkafüzetet, amelyből össze kívánja egyesíteni a lapokat, és helyezze a kurzort egy üres cellára, ahol meg szeretné találni az összevonandó adatokat, majd kattintson a dátum > Összesítés. Lásd a képernyőképet:

doc kombinálja ugyanazt az 9. fejlécet

2. Ezután a Összesítés ablakban tegye a következőket:

1) Válassza ki a kívánt számítási űrlapot Funkció lista;

2) Kattintson az egyesíteni kívánt tartomány kiválasztására.

3) Kattintson hozzáad gombra kattintva hozzáadhatja a tartományt az Összes referencia listához. 2) és 3) lépés megismétléséhez adja hozzá az összes olyan tartományt, amely szükséges ahhoz, hogy összeolvadjon ezzel a listával.

4) Ellenőrizze Felső sor és a Bal oszlop alatt Használjon címkéket itt szakasz.

5) Ha össze akarja kapcsolni az egyesített adatokat a forrásadatokkal, ellenőrizze Hozzon létre linkeket a forrásadatokhoz.

doc kombinálja ugyanazt az 10. fejlécet
doc kombinálja ugyanazt az 11. fejlécet
1) Válassza ki a kívánt számítási űrlapot Funkció lista;

2) Kattintson az egyesíteni kívánt tartomány kiválasztására.

3) Kattintson hozzáad gombra kattintva hozzáadhatja a tartományt az Összes referencia listához. 2) és 3) lépés megismétléséhez adja hozzá az összes olyan tartományt, amely szükséges ahhoz, hogy összeolvadjon ezzel a listával.

4) Ellenőrizze Felső sor és a Bal oszlop alatt Használjon címkéket itt szakasz.

5) Ha össze akarja kapcsolni az egyesített adatokat a forrásadatokkal, ellenőrizze Hozzon létre linkeket a forrásadatokhoz.

3. kettyenés OK. Most az azonos fejlécekkel rendelkező összes adattartományt egyesíti egybe, és a fejlécek összegzik.

doc kombinálja ugyanazt az 6. fejlécetdoc kombinálja ugyanazt az 7. fejlécetdoc kombinálja ugyanazt az 8. fejlécet
doc függőleges egyenlő
doc kombinálja ugyanazt az 12. fejlécet

nyíl kék jobb buborék Egyesítse vagy konszolidálja az Excel-lapokat ugyanazokkal a fejlécekkel a Kutools for Excel segítségével

Ha egyes esetekben az adatokat csak ugyanazokkal a fejlécekkel kívánja egyesíteni, más esetekben pedig az adatokat egyesíteni és összevonni, vannak-e trükkök mindkét feladat megoldására? Itt bemutatom Kutools az Excel számárahatalmas Kombájn funkció az Ön számára.

Az Excel lapok egyesítése ugyanazokkal a fejlécekkel

Konszolidáljon több lapot ugyanazokkal a fejlécekkel

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)

Az Excel lapok egyesítése ugyanazokkal a fejlécekkel

1. kettyenés Kutools Plus > Kombájn az Egyesítés varázsló engedélyezéséhez, majd ellenőrizze Kombinálja a munkafüzetek több munkalapját egy munkalapba. Képernyőképek megtekintése:
doc kombinálja ugyanazt az 14. fejlécet
doc kutools kombinálja 2

2. kettyenés Következő>> menni Kombinálja a munkalapokat - 2/3 lépés varázsló, és tegye az alábbiak szerint:

doc kutools kombinálja 3
1) Kattintson hozzáad > Fájl mappa a munkafüzetek felvételéhez egyesítheti a lapokat a Munkafüzetek listája;
2) Jelölje be a munkafüzet nevét, amelyet össze kíván vonni a lapokkal, több munkafüzetet is választhat;
3) Ellenőrizze a kombinálni kívánt munkalapokat;
4) Kattintson doc válassza ki a kombinálni kívánt tartomány kiválasztásához, ha a tartományok az egyes lapok ugyanazon a helyén vannak, csak ki kell választania egy tartományt a munkalapból, majd kattintson Ugyanaz a tartomány.

3. kettyenés Következő >> hoz Kombinálja a munkalapot - 3/3 lépés varázsló, és ellenőrizze Kombinálás soronként és típusa 1 a szövegmezőbe Címsor száma, ha nincs tartomány a tartományban, írja be a 0-t.

doc kutools kombinálja 4

4. kettyenés befejez, és megjelenik egy párbeszédpanel, amely emlékezteti a forgatókönyv mentésére. Ha el akarja menteni, kattintson a gombra Igenvagy Nem.

doc kombinálja ugyanazt az 17. fejlécet

Most a lapok összeolvadnak ugyanazokkal a sorfejlécekkel egy új munkafüzetben.

doc kombinálja ugyanazt az 18. fejlécet

Konszolidáljon több lapot ugyanazokkal a fejlécekkel

Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)

1. kettyenés Vállalkozás > Kombájn az Combine varázsló megjelenítéséhez és jelölje be Konszolidálja és számolja ki az összes munkafüzet értékeit egy munkalapba. Lásd a képernyőképet:
doc kutools kombinálja 5

2. kettyenés Következő>> menni Kombinálja a munkalapokat - 2/3 lépés varázsló, és tegye az alábbiak szerint:

doc kutools kombinálja 3
1) Kattintson hozzáad > Fájl mappa a munkafüzetek felvételéhez egyesítheti a lapokat a Munkafüzetek listája;
2) Jelölje be a munkafüzet nevét, amelyet össze kíván vonni a lapokkal, több munkafüzetet is választhat;
3) Ellenőrizze a kombinálni kívánt munkalapokat;
4) Kattintson doc válassza ki a kombinálni kívánt tartomány kiválasztásához, ha a tartományok az egyes lapok ugyanazon a helyén vannak, csak ki kell választania egy tartományt a munkalapból, majd kattintson Ugyanaz a tartomány.

3. Kattintson a gombra Következő>>, és válassza ki az egyesített tartományban alkalmazni kívánt funkciót, és ellenőrizze az egyesített tartomány címkéit. Lásd a képernyőképet:
doc kutools kombinálja 6

4. kettyenés befejez, és megjelenik egy párbeszédpanel, amelyben a forgatókönyv mentését kéri, kattintson a gombra Igen vagy kattintson a gombra Nem hogy ne mentse meg.

Ezután a tartományok egy új munkafüzetbe kerülnek.

doc kombinálja ugyanazt az 12. fejlécet

Az előnye, hogy Kutools az Excel számára'S Kombájn A funkció az, hogy több lapot egyesíthet a megnyitott vagy bontatlan munkafüzetek között egy munkalapba vagy egy munkafüzetbe.

Könnyen kombinálhatja / konszolidálhatja az adatokat ugyanazon érték alapján az Excelben

Tegyük fel, hogy egy olyan munkalapot használ, amely többszörös rekordot tartalmaz, és most össze kell egyesítenie / egyesítenie a sorokat ugyanazon érték alapján, és el kell végeznie néhány számítást, például a duplikált sorok összegét, átlagát, számát. Ezzel Haladó kombinált sorok of Kutools az Excel számára, gyorsan egyesítheti ugyanazokat az értékeket / adatokat, vagy duplikálhatja a sorokat a megfelelő cellákba.  Kattintson a teljes funkcionalitású ingyenes próbaverzióért 30 napon belül!
doc haladó kombinációs sorok
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

Relatív cikkek

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
When using the VBA code only two of my sheets are combining instead of the three active sheets. The headers are all the same and all start in cell A1. Would you have any idea what the issue is please?
This comment was minimized by the moderator on the site
Bonjour, est-ce possible de Fusionner et LIER Plusieurs Feuilles Avec Les Mêmes En-Têtes Dans Excel afin que les changements qui sont effectués dans les feuilles du classeur soient appliqués dans la nouvelle feuille "combinée"?
This comment was minimized by the moderator on the site
Hello, If you want to combine sheets which with the same sheet names, there is no built-in feature in Excel can help you. You can try Combine feature of Kutools for Excel, it provides an option that combine sheets with same names, for more details, you can visit this tutorial https://www.extendoffice.com/product/kutools-for-excel/excel-combine-sheets-of-same-name-into-one-worksheet.html. And Kutools for Excel supports 30-day free trial, you can download it to have a try. https://www.extendoffice.com/download/kutools-for-excel.html
This comment was minimized by the moderator on the site
Very helpful the code for combining multiple worksheets, it worked fine! Thank you!
This comment was minimized by the moderator on the site
what will be vba code for combining multiple sheets in workbook into one worksheet if row headers are the same ( not column headers)
This comment was minimized by the moderator on the site
I used VBA to copy all sheets to one, but how can I copy only select sheets instead of all of them?
This comment was minimized by the moderator on the site
Esta excelente la primera macro, pero no sabrias decirme por que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
This comment was minimized by the moderator on the site
Hello
I bought Kutools for Excel 19.00, by interest in the merge function, but doesn't work with my files and sheets, all have the same name (Workbook an sheets) but in the combination of : "Combine all same name worksheets into one worksheet" dosn't work (does nothing), inclusive don't saves the new workbook in the place that I select prior to execute de Finish button.
I followed the instructions one and another time, but the result is the same.
Some help?
This comment was minimized by the moderator on the site
Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: our team will solve your problems as soon as possible.
This comment was minimized by the moderator on the site
perfect, thank you
This comment was minimized by the moderator on the site
How can I combine only sheets with same header ignoring other sheets?
This comment was minimized by the moderator on the site
How do I merge only select worksheets in that workbook?
How can I run the Macro to refresh the data on a weekly basis without having to delete the "Combined" tab?
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