Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս միացնել կամ համախմբել աշխատանքային թերթերը կամ աշխատանքային գրքերը մեկ աշխատանքային թերթի մեջ:

Մեր ամենօրյա աշխատանքում մենք կարող ենք բախվել մի խնդրի, որը հարյուրավոր թերթեր կամ աշխատանքային գրքեր է միավորում մեկ թերթի մեջ `տվյալների վերլուծության համար, ինչը շատ ժամանակ է պահանջում, եթե օգտագործեք« Պատճենել և Տեղադրել »հրամանը Excel- ում: Այս ձեռնարկում ես կներկայացնեմ մի քանի խորհուրդ այս աշխատանքը արագ լուծելու համար:

փաստաթուղթ միավորել 1

Արագ նավարկություն

Ակտիվ աշխատանքային գրքի բոլոր թերթերը միաձուլելով մեկ թերթի մեջ VBA- ի հետ
Տասնյակ թերթերի կամ աշխատանքային գրքերի միավորումը կտտացնում է մեկ աշխատանքային թերթի / աշխատանքային գրքի
Երկու աղյուսակ միավորելը մեկի մեջ և թարմացրեք սյունակի միջոցով կտտացնումներով
Ներբեռնեք ֆայլի նմուշը


Ակտիվ աշխատանքային գրքի բոլոր թերթերը միաձուլելով մեկ թերթի մեջ VBA- ի հետ

Այս բաժնում ես տրամադրում եմ VBA կոդ, որը կստեղծի նոր թերթ ակտիվ աշխատանքային գրքի բոլոր թերթերը հավաքելու համար այն աշխատեցնելիս:

1. Ակտիվացրեք աշխատանքային գրքույկը, որը ցանկանում եք համատեղել դրա բոլոր թերթերը, այնուհետև սեղմել + բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Պատուհանի պատուհանում կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր Մոդուլի սցենար:

3. Պատճենեք ներքևի կոդը և տեղադրեք դրանք սցենարում:

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
փաստաթուղթ միավորել 2

4. Մամուլ F5 ստեղնը, այնուհետև թերթերի միջև եղած բոլոր տվյալները միավորվել են միավորված նոր թերթիկի հետ, որը տեղադրված է բոլոր թերթերի առջևում:


ot տեղափոխել

Անկանու՞մ եք աշխատավարձի բարձրացում և շատ ժամանակ ընտանիքի հետ ընկերանալու համար:

Office Tab- ը 50% -ով բարձրացնում է ձեր արդյունավետությունը Microsoft Office- ում, որն աշխատում է հենց հիմա

Անհավատալի է, որ երկու կամ ավելի փաստաթղթերի վրա աշխատելը ավելի հեշտ է և արագ, քան մեկում աշխատելը:

Համեմատելով հայտնի բրաուզերների հետ, Office Tab- ի ներդիրով գործիքն ավելի հզոր է և արդյունավետ:

Նվազեցրեք ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներն ու ստեղնաշարի մուտքագրումը, հիմա հրաժեշտ տվեք մկնիկի ձեռքին:

Եթե ​​սովորաբար աշխատում եք բազմաթիվ փաստաթղթերում, Office Tab- ը ձեզ համար ժամանակի մեծ խնայողություն կլինի:

30- օր անվճար փորձաշրջան, վարկային քարտ չի պահանջվում:

Կարդալ ավելինԱզատ Download Now


Տասնյակ թերթերի կամ աշխատանքային գրքերի միավորումը կտտացնում է մեկ աշխատանքային թերթի / աշխատանքային գրքի

VBA- ի միջոցով դուք միայն կարող եք համատեղել թերթերը ակտիվ աշխատանքային գրքում, բայց ինչպե՞ս կարող եք աշխատանքային գրքերի մեջ թերթերը միացնել թերթի կամ աշխատանքային գրքի:

Միացրեք թերթերը աշխատանքային գրքերի մեջ մեկ թերթի մեջ
փաստաթուղթ միավորել 18

Միացրեք թերթերը աշխատանքային գրքերի մեջ մեկ աշխատանքային գրքի մեջ
փաստաթուղթ միավորել 3

Այս աշխատանքը լուծելու և թերթ-համադրության վերաբերյալ այլ պահանջներ բավարարելու համար Միավորել գործառույթը մշակվել է չորս համակցված սցենարներով.

  • Միավորել մի քանի թերթ կամ աշխատանքային գրքույկ մեկ թերթի մեջ
  • Միավորել բազմաթիվ թերթեր կամ աշխատանքային գրքեր մեկ աշխատանքային գրքում
  • Միաձուլեք նույն անվան թերթերը մեկ թերթի մեջ
  • Համախմբեք արժեքները թերթերի կամ աշխատանքային գրքերի միջև մեկ թերթիկի մեջ

Այստեղ որպես օրինակ վերցվում է երկրորդ տարբերակը.

Միավորել բազմաթիվ թերթեր կամ աշխատանքային գրքեր մեկ աշխատանքային գրքում

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ակտիվացրեք Excel- ը, կտտացրեք Kutools Plus > Միավորել, բացվում է երկխոսություն ՝ հիշեցնելու համար, որ անհրաժեշտ աշխատանքային գրքերը, որոնք ցանկանում եք համատեղել, փակվեն: Սեղմել OK շարունակել.
փաստաթուղթ միավորել 4
փաստաթուղթ միավորել 5

2. Մեջ Միավորել աշխատանքային թերթերը 1-ին քայլը երկխոսություն, ստուգում Միացրեք աշխատանքային գրքերից բազմաթիվ աշխատանքային թերթեր մեկ աշխատանքային գրքի մեջ տարբերակ: Սեղմեք հաջորդ գնալ կախարդի հաջորդ քայլին:
փաստաթուղթ միավորել 6

3: սեղմեք Ավելացնել > Ֆայլ or Թղթապանակ աշխատանքային գրքերը ավելացնելու համար Աշխատանքային տետրերի ցուցակ պատուհանը, ապա կարող եք նշել, թե որ թերթը կմիանա միասին ՝ ստուգելով անունները Աշխատաթերթի ցուցակ պատուհան Սեղմել հաջորդ գնալ կախարդի վերջին աստիճանին:
փաստաթուղթ միավորել 7

4. Այս քայլում նշեք պարամետրերը, որքան ձեզ հարկավոր է: Դրանից հետո կտտացրեք Ավարտել.
փաստաթուղթ միավորել 8

5. Պատուհանը բացվում է ձեզ համար, ընտրելով պանակ ՝ համակցված աշխատանքային գրքույկը տեղադրելու համար, ապա կտտացրեք Փրկել.
փաստաթուղթ միավորել 9

Այժմ աշխատանքային գրքերը միացվել են մեկ աշխատանքային գրքի: Եվ բոլոր թերթերի առջևում նույնպես ստեղծվում է Excel- ի համար նախատեսված Kutools վարպետ թերթ, որը թվարկում է յուրաքանչյուր թերթի թերթերի և հղումների վերաբերյալ որոշ տեղեկություններ:
փաստաթուղթ միավորել 10

Դեմո. Միացրեք թերթերը / աշխատանքային գրքերը մեկ թերթիկի կամ աշխատանքային գրքի մեջ

Excel- ի համար նախատեսված գործիքներ. 200 + օգտակար հարմար գործիքներ ՝ Excel- ի բարդ առաջադրանքները պարզեցնելով մի քանի կտտացման:

Հիմա հրաժեշտ տվեք մկնիկի ձեռքի և արգանդի վզիկի սպոնդիլոզին

Kutools-ի 300 առաջադեմ գործիքներ Excel-ի համար 80% Excel-ի առաջադրանքները վայրկյանների ընթացքում ձեզ դուրս են բերում մկնիկի հազարավոր սեղմումներից:

Հեշտությամբ զբաղվեք 1500 աշխատանքային սցենարներով, կարիք չկա ժամանակ վատնել լուծումներ փնտրելու համար, շատ ժամանակ ունեցեք ձեր կյանքը վայելելու համար:

Ամեն օր բարելավեք 80% արտադրողականությունը 110000+ բարձր արդյունավետությամբ մարդկանց համար, իհարկե, ներառյալ ձեզ:

Այլևս չտանջվեք ցավոտ բանաձևերից և VBA- ից, ձեր ուղեղին հանգստացեք և ուրախ աշխատանքային տրամադրություն տվեք:

30-օրյա անվճար փորձարկում՝ ամբողջական հնարավորություններով, 30-օրյա գումարի վերադարձ՝ առանց պատճառների։

Ավելի լավ մարմինը ստեղծում է ավելի լավ կյանք:


Երկու աղյուսակ միավորելը մեկի մեջ և թարմացրեք սյունակի միջոցով կտտացնումներով

Եթե ​​ցանկանում եք միաձուլել երկու աղյուսակ մեկում և թարմացնել տվյալները ՝ հիմնվելով սյունակի վրա, ինչպես ցույց է տրված սքրինշոթից ներքև, Աղյուսակները միաձուլվում են օգտակարությունը Excel- ի համար նախատեսված գործիքներ.
փաստաթուղթ միավորել 11

Excel- ի համար նախատեսված գործիքներ. Ավելի քան 200 հարմարավետ Excel հավելումներ `Excel- ում մի քանի կտտոցների պարզեցման համար բարդ առաջադրանքները

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1: սեղմեք Kutools Plus > Աղյուսակները միաձուլվում են հնարավորություն ընձեռել Աղյուսակները միաձուլվում են Wizard.
փաստաթուղթ միավորել 12

2. Կախարդի 1-ին քայլում անհրաժեշտ է առանձին ընտրել հիմնական աղյուսակը և որոնման աղյուսակի տիրույթները: Դրանից հետո կտտացրեք հաջորդ.
փաստաթուղթ միավորել 13

3. Ստուգեք այն հիմնական սյունակը, որի հիման վրա ցանկանում եք թարմացնել հիմնական աղյուսակի տվյալները: Սեղմել հաջորդ.
փաստաթուղթ միավորել 14

4. Դրանից հետո ստուգեք հիմնական աղյուսակի սյունակները, որոնք ցանկանում եք թարմացնել տվյալները ՝ հիմնվելով որոնման աղյուսակի վրա: Սեղմել հաջորդ.
փաստաթուղթ միավորել 15

5. Կախարդի 4-րդ քայլին ստուգեք սյունակները, որոնք ցանկանում եք ավելացնել որոնման աղյուսակից հիմնական սեղանին: Սեղմել հաջորդ.
փաստաթուղթ միավորել 16

6. Կախարդի վերջին քայլում նշեք կարգավորման ընտրանքները, որքան ձեզ հարկավոր է: Դրանից հետո կտտացրեք Ավարտել.
փաստաթուղթ միավորել 17

Այժմ հիմնական աղյուսակը թարմացվել է տվյալներով և ավելացնել նոր տվյալներ ՝ հիմնված որոնման աղյուսակի վրա:

Դեմո. Միացրեք թերթերը / աշխատանքային գրքերը մեկ թերթիկի կամ աշխատանքային գրքի մեջ

Excel- ի համար նախատեսված գործիքներ. 200 + օգտակար հարմար գործիքներ ՝ Excel- ի բարդ առաջադրանքները պարզեցնելով մի քանի կտտացման:


Ներբեռնեք նմուշի ֆայլը

նմուշ


Առաջարկվող արտադրողականության գործիքներ

Office Tab - Microsoft Office 2019 - 2003 և Office 365 փաստաթղթերի ներդիրներով զննում, խմբագրում, կառավարում փաստաթղթերի


գրասենյակային էջանիշ

Excel 2019–2007 – ի արագացման համար արհեստավարժ լրացում ՝ ժամերի առաջադրանքները կրճատելով վայրկյանների

Այս հավելումը ներառում է տասնյակ մասնագիտական ​​խմբեր, 300+ ընտրանքներով ավտոմատացնում են ձեր ամենօրյա առաջադրանքները Excel- ում և բարձրացնում ձեր արտադրողականությունը առնվազն 50% -ով: Օրինակ `մեկ կտտոցով օպտոնների խմբերի և խմբաքանակի փոխակերպումների:
Այժմ ձեր հնարավորությունն է արագացնել ձեզ Excel- ի համար նախատեսված Kutools- ը:


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