Перейти до основного матеріалу

Як об’єднати або об’єднати аркуші чи книги в один аркуш?

У нашій повсякденній роботі ми можемо зіткнутися з проблемою, яка об’єднує сотні аркушів або книг в один аркуш для аналізу даних, що займає багато часу, якщо ви використовуєте команду Копіювати та вставити в Excel. Тут, у цьому підручнику, я дам кілька порад щодо швидкого вирішення цієї роботи.

doc об'єднати 1

ШВИДКА НАВІГАЦІЯ

Об’єднання всіх аркушів активної книги в один аркуш із VBA
Об’єднання десятків аркушів або робочих книжок в один аркуш / книгу клацаннями
Об’єднання двох таблиць в одну та оновлення стовпчиком із кліками
Завантажте зразок файлу


Об’єднання всіх аркушів активної книги в один аркуш із VBA

У цьому розділі я надаю код VBA, який створить новий аркуш для збору всіх аркушів активної книги під час її запуску.

1. Активуйте книгу, для якої потрібно об’єднати всі її аркуші, а потім натисніть + клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. У спливаючому вікні натисніть Insert > Модулі створити новий сценарій модуля.

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
doc об'єднати 2

4. прес F5 ключ, тоді всі дані на аркушах об’єднані в новий аркуш із назвою Комбінований, який розміщується перед усіма аркушами.


от рухатися

Хочете отримати підвищення зарплати та багато часу, щоб супроводжувати сім’ю?

Вкладка Office підвищує вашу ефективність на 50% у Microsoft Office, що працює прямо зараз

Неймовірно, працювати з двома або більше документами простіше і швидше, ніж працювати з одним.

Порівняно з відомими браузерами, інструмент із вкладками в Office Tab потужніший і ефективніший.

Зменште сотні клацань миші та набору тексту за допомогою клавіатури щодня, прощайтеся з рукою миші.

Якщо ви зазвичай працюєте з кількома документами, вкладка Office допоможе вам заощадити час.

30-денна безкоштовна пробна версія, кредитна картка не потрібна.

ДетальнішеБезкоштовно завантажити зараз


Об’єднання десятків аркушів або робочих книжок в один аркуш / книгу клацаннями

За допомогою VBA ви можете поєднувати лише аркуші в активній книзі, але як можна об’єднати аркуші між книгами в аркуш або книгу?

Об’єднайте аркуші між книгами в один аркуш
doc об'єднати 18

Об’єднайте аркуші між книгами в одну книгу
doc об'єднати 3

Для вирішення цієї роботи та задоволення інших вимог щодо комбінації аркушів, Поєднувати Функція розроблена з чотирма комбінованими сценаріями:

  • Поєднайте кілька аркушів або робочих книжок в один аркуш
  • Поєднайте декілька аркушів або книжок в одну книгу
  • Об’єднайте однойменні аркуші в один аркуш
  • Об’єднайте значення на аркушах або робочих книгах в один аркуш

Тут бере другий варіант як примірник:

Поєднайте декілька аркушів або книжок в одну книгу

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

1. Активуйте Excel, натисніть Kutools Plus > Поєднувати, вискакує діалогове вікно, щоб нагадати, що книги, які ви хочете об’єднати, потрібно закрити. Клацніть OK продовжувати.
doc об'єднати 4
doc об'єднати 5

2 В Крок 1: Об’єднайте робочі аркуші діалогове вікно, перевірте Об’єднайте кілька аркушів із книг в одну книгу варіант Натисніть МАЙБУТНІ щоб перейти до наступного кроку майстра.
doc об'єднати 6

3. клацання додавати > філе or Папка додати книги, які ви хочете об’єднати, до Список робочих книжок панелі, тоді ви можете вказати, який аркуш буде об'єднано, перевіривши імена в Список робочого аркуша панелі. Клацніть МАЙБУТНІ перейти до останнього кроку майстра.
doc об'єднати 7

4. На цьому кроці вкажіть потрібні налаштування. Потім клацніть обробка.
doc об'єднати 8

5. Вискакує вікно для вибору папки для розміщення об’єднаної книги, а потім клацніть зберегти.
doc об'єднати 9

Тепер зошити об’єднано в одну. І на передній частині всіх аркушів також створюється головний аркуш під назвою Kutools for Excel, який містить деяку інформацію про аркуші та посилання для кожного аркуша.
doc об'єднати 10

Демонстрація: Об’єднайте аркуші / книги в один аркуш або книгу

Kutools для Excel: 200 + корисні зручні інструменти, які спрощують складні завдання в Excel кількома кліками.

Попрощайтеся з рукою миші та спондильозом шийки матки

300 розширених інструментів Kutools для Excel 80% Завдання Excel за лічені секунди витягнуть вас із тисячі клацань мишею.

Легко вирішуйте 1500 робочих сценаріїв, не потрібно витрачати час на пошук рішень, у вас є багато часу, щоб насолодитися своїм життям.

Підвищуйте продуктивність на 80% для 110000+ високоефективних людей щодня, звичайно, включаючи вас.

Щоб вас більше не мучили болісні формули та VBA, дайте своєму мозку відпочинок та радісний робочий настрій.

30-денна безкоштовна пробна версія з усіма функціями, 30-денне повернення грошей без причини.

Краще тіло створює краще життя.


Об’єднання двох таблиць в одну та оновлення стовпчиком із кліками

Якщо ви хочете об'єднати дві таблиці в одну і оновити дані на основі стовпця, як показано на знімку екрана, ви можете спробувати Злиття таблиць корисність Kutools для Excel.
doc об'єднати 11

Kutools для Excel: більше 200 зручних надбудов Excel для спрощення складних завдань кількома кліками в Excel

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

1. клацання Kutools Plus > Злиття таблиць для того, щоб Злиття таблиць майстра.
doc об'єднати 12

2. На кроці 1 майстра потрібно окремо вибрати основну таблицю та діапазони таблиці пошуку. Потім клацніть МАЙБУТНІ.
doc об'єднати 13

3. Позначте ключовий стовпець, на основі якого потрібно оновити дані в основній таблиці. Клацніть МАЙБУТНІ.
doc об'єднати 14

4. Потім перевірте стовпці в головній таблиці, в яких ви хочете оновити дані на основі таблиці пошуку. Клацніть МАЙБУТНІ.
doc об'єднати 15

5. На кроці 4 майстра поставте прапорець біля стовпців, які потрібно додати із таблиці пошуку в основну таблицю. Клацніть МАЙБУТНІ.
doc об'єднати 16

6. На останньому кроці майстра вкажіть потрібні параметри налаштування. Потім клацніть обробка.
doc об'єднати 17

Тепер основна таблиця оновила дані та додала нові дані на основі таблиці пошуку.

Демонстрація: Об’єднайте аркуші / книги в один аркуш або книгу

Kutools для Excel: 200 + корисні зручні інструменти, які спрощують складні завдання в Excel кількома кліками.


Завантажте зразок файлу

зразок


Рекомендовані засоби підвищення продуктивності

Вкладка Office - перегляд, редагування та керування документами з вкладками в Microsoft Office 2019 - 2003 і Office 365


офісна вкладка

Професійна надбудова для прискорення Excel 2019-2007, що зменшує години роботи на секунди

Ця надбудова включає десятки професійних груп із 300+ опціями, які дозволять автоматизувати більшість ваших щоденних завдань у Excel та збільшити вашу продуктивність щонайменше на 50%. Такі як групи оптонів одним кліком та пакетні перетворення.
Тепер у вас є шанс прискорити роботу за допомогою Kutools для Excel!


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