Ugrás a tartalomra

Hogyan lehet egyesíteni vagy összevonni a munkalapokat vagy a munkafüzeteket egy munkalapba?

Mindennapi munkánk során olyan problémával találkozhatunk, amely több száz lapot vagy munkafüzetet egyesít egy lapba az adatok elemzéséhez, ami sok időt vesz igénybe, ha az Excel másolás és beillesztés parancsát használja. Itt, ebben az oktatóanyagban, adok néhány tippet a feladat gyors megoldásához.

doc kombájn 1

GYORS NAVIGÁCIÓ

Az aktív munkafüzet összes lapjának összevonása egy lapba a VBA-val
Több tucat lap vagy munkafüzet egyesítése egyetlen munkalapba / munkafüzetbe kattintásokkal
Két tábla egyesítése egybe, és egy oszlop frissítése kattintásokkal
Töltse le a minta fájlt


Az aktív munkafüzet összes lapjának összevonása egy lapba a VBA-val

Ebben a szakaszban egy VBA kódot adok meg, amely létrehoz egy új lapot az aktív munkafüzet összes lapjának összegyűjtésére, miközben futtatja.

1. Aktiválja azt a munkafüzetet, amelyben összesíteni kívánja az összes lapot, majd nyomja meg az gombot + gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. A felbukkanó ablakban kattintson a gombra betétlap > Modulok új modul parancsfájl létrehozásához.

3. Másolja az alábbi kódot, és illessze be a szkriptbe.

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 kombájn 2

4. nyomja meg F5 kulcsot, akkor az összes adat a lapon összevonásra kerül egy új, Kombinált lapra, amely az összes lap elé kerül.


mozogni

Szeretne fizetést emelni és sok időt arra, hogy elkísérje a családját?

Az Office lap 50%-kal növeli a hatékonyságot a jelenleg működő Microsoft Office-ban

Hihetetlen, hogy két vagy több dokumentumnál dolgozni könnyebb és gyorsabb, mint egynél dolgozni.

A jól ismert böngészőkkel összehasonlítva az Office Tab füles eszköze erősebb és hatékonyabb.

Csökkentse az egérkattintások százait és a billentyűzet gépelését minden nap az Ön számára, búcsúzzon el most az egér kezétől.

Ha általában több dokumentummal dolgozik, az Office Tab nagyszerű időt takarít meg.

30-napos ingyenes próbaverzió, nincs szükség hitelkártyára.

KATT ideIngyenes letöltése most


Több tucat lap vagy munkafüzet egyesítése egyetlen munkalapba / munkafüzetbe kattintásokkal

A VBA használatával csak kombinálhatja az aktív munkafüzet lapjait, de hogyan lehet egyesíteni a munkafüzetek lapjait munkalapokba?

A munkafüzetek lapjainak egyesítése egy lapba
doc kombájn 18

A munkafüzetek lapjainak egyesítése egy munkafüzetbe
doc kombájn 3

Ennek a feladatnak a megoldásához és a lapkombinációval kapcsolatos egyéb követelmények teljesítéséhez a Kombájn funkció négy kombinációs forgatókönyvvel lett kifejlesztve:

  • Egyesítsen több lapot vagy munkafüzetet egy lapba
  • Egyesítsen több lapot vagy munkafüzetet egy munkafüzetbe
  • Kombinálja ugyanazokat a névlapokat egy lapba
  • Konszolidálja az értékeket a lapok vagy a munkafüzetek között egyetlen lapba

Itt a második lehetőséget vesszük példának:

Egyesítsen több lapot vagy munkafüzetet egy munkafüzetbe

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Aktiválja az Excel alkalmazást, kattintson a gombra Kutools Plus > Kombájn, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy a kombinálni kívánt munkafüzeteket be kell zárni. Kattintson a gombra OK hogy folytassa.
doc kombájn 4
doc kombájn 5

2. Ban,-ben Kombinálja a munkalapokat 1. lépés párbeszédpanelen ellenőrizze Kombinálja a munkafüzetek több munkalapját egy munkafüzetbe választási lehetőség. Kattints Következő hogy a varázsló következő lépésére menjen.
doc kombájn 6

3. kettyenés hozzáad > filé or Mappa a kombinálni kívánt munkafüzetek hozzáadása a Munkafüzetek listája ablaktáblán, akkor megadhatja, hogy mely munkalap kerül összekapcsolásra a nevek ellenőrzésével Munkalap lista ablaktábla. Kattintson a gombra Következő hogy a varázsló utolsó lépésére menjen.
doc kombájn 7

4. Ebben a lépésben adja meg a szükséges beállításokat. Ezután kattintson a gombra befejez.
doc kombájn 8

5. Megjelenik egy ablak, ahol kiválaszthatja a mappát a kombinált munkafüzet elhelyezéséhez, majd kattintson a gombra Megtakarítás.
doc kombájn 9

Most a munkafüzeteket egy munkafüzetbe vonták össze. És az összes lap elején egy Kutools for Excel nevű főlap is létrejön, amely felsorol néhány információt a lapokról és az egyes lapokhoz tartozó hivatkozásokról.
doc kombájn 10

Bemutató: Egyesítse a lapokat / munkafüzeteket egy lapba vagy munkafüzetbe

Kutools for Excel: 200 + hasznos praktikus eszközök, amelyek néhány kattintással leegyszerűsítik a bonyolult Excel feladatokat.

Most búcsút mondjon az egér kezének és a nyaki spondylosisnak

A Kutools for Excel 300 fejlett eszköze megoldja 80% Az Excel-feladatok másodpercek alatt, húzza ki Önt a több ezer kattintásból.

Könnyen kezelheti 1500 működő forgatókönyvet, nem kell időt pazarolnia a megoldások keresésére, sok ideje van arra, hogy élvezze az életét.

Javítsa 80% -os termelékenységet minden nap 110000+ rendkívül hatékony ember számára, természetesen Önnel együtt.

Ne kínozzon többé fájdalmas formulák és VBA, adja meg az agyának a pihenést és az örömteli munkakedvet.

30 napos ingyenes próbaverzió teljes funkciókkal, 30 napos pénzvisszafizetés indoklás nélkül.

Egy jobb test jobb életet teremt.


Két tábla egyesítése egybe, és egy oszlop frissítése kattintásokkal

Ha két táblát szeretne egyesíteni egybe, és az adatokat egy oszlop alapján szeretné frissíteni, az alábbi képernyőképen látható módon, megpróbálhatja a Táblázatok egyesítése hasznossága Kutools az Excel számára.
doc kombájn 11

Kutools for Excel: több mint 200 praktikus Excel-bővítmény a bonyolult feladatok egyszerűsítéséhez néhány kattintással az Excelben

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. kettyenés Kutools Plus > Táblázatok egyesítése engedélyezni Táblázatok egyesítése varázsló.
doc kombájn 12

2. A varázsló 1. lépésében külön kell kiválasztania a főtábla és a keresőtáblák tartományait. Ezután kattintson a gombra Következő.
doc kombájn 13

3. Jelölje be a kulcsoszlopot, amely alapján frissíteni kívánja az adatokat. Kattintson a gombra Következő.
doc kombájn 14

4. Ezután ellenőrizze a főtábla oszlopait, amelyekben frissíteni kívánja az adatokat a keresési táblázat alapján. Kattintson a gombra Következő.
doc kombájn 15

5. A varázsló 4. lépésében ellenőrizze az oszlopokat, amelyeket hozzá kíván adni a keresési táblától a fő táblához. Kattintson a gombra Következő.
doc kombájn 16

6. A varázsló utolsó lépésében adja meg a szükséges beállításokat. Ezután kattintson a gombra befejez.
doc kombájn 17

Most a főtáblázat frissítette az adatokat, és új adatokat adott hozzá a keresési táblázat alapján.

Bemutató: Egyesítse a lapokat / munkafüzeteket egy lapba vagy munkafüzetbe

Kutools for Excel: 200 + hasznos praktikus eszközök, amelyek néhány kattintással leegyszerűsítik a bonyolult Excel feladatokat.


Töltse le a mintafájlt

minta


Ajánlott termelékenységi eszközök

Office lap – lapos böngészés, szerkesztés, dokumentumok kezelése a Microsoft Office 2019 – 2003 és az Office 365 programban


iroda lap

Egy professzionális bővítmény az Excel 2019-2007 gyorsításához, az órai feladatok másodpercre zsugorítására

Ez a bővítmény több tucat szakmai csoportot tartalmaz, több mint 300 opcióval automatizálja a napi feladatok nagy részét az Excel programban, és legalább 50% -kal növeli a termelékenységet. Ilyenek például az egy kattintásos optonok és a kötegelt konverziók csoportjai.
Most itt a lehetőség, hogy felgyorsítsa magát a Kutools for Excel segítségével!


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