Note: The other languages of the website are Google-translated. Back to English

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

У нашій повсякденній роботі ми можемо зіткнутися з проблемою, яка об’єднує сотні аркушів або книг в один аркуш для аналізу даних, що займає багато часу, якщо ви використовуєте команду Копіювати та вставити в 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 підвищує вашу ефективність у роботі Microsoft Office на 50%

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

У порівнянні з відомими браузерами інструмент з вкладками на вкладці Office є потужнішим та ефективнішим.

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

Якщо ви зазвичай працюєте з кількома документами, вкладка 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 для 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!


Коментарі (168)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
використав вашу першу функцію макросу. ОЦЕ ТАК! дякую за публікацію
Цей коментар був мінімізований модератором на сайті
Я думаю, що код 'Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select' не повинно бути там. Зі мого боку, він вибирає другий рядок без першого.
Цей коментар був мінімізований модератором на сайті
У мене така ж проблема. Він опускає перший рядок з другого доданого аркуша.
Цей коментар був мінімізований модератором на сайті
Усуває заголовки, щоб у вас не було повторюваних заголовків
Цей коментар був мінімізований модератором на сайті
Працює як шарм, дякую, що поділилися!
Цей коментар був мінімізований модератором на сайті
Дякую! Макрос працював ідеально.
Цей коментар був мінімізований модератором на сайті
Я не знаю, як використовувати функцію VBN в Excel, чи можете ви допомогти, будь ласка, як це зробити.
Цей коментар був мінімізований модератором на сайті
Чудово, дякую!!! Дуже Дуже Корисний
Цей коментар був мінімізований модератором на сайті
Макрос один працює нормально. Спасибі!! Це приголомшливо!!!! :)
Цей коментар був мінімізований модератором на сайті
Зверніть увагу, що це обмежено лімітом рядків у 65 тис., якщо для вирішення проблеми вам потрібно збільшити рядок Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2).
Цей коментар був мінімізований модератором на сайті
Чудовий інструмент, однак, він не поєднує в собі всі 21 аркуш. Як розширити асортимент?
Цей коментар був мінімізований модератором на сайті
ПРИМІТКА!!! Ви повинні бути обережні з макросом. Він спрацює, якщо ваші дані мають безперервний потік інформації і немає порожнього рядка. це те, що робить рядок "Selection.CurrentRegion.Select". Наприклад, якщо вам потрібно скопіювати ВСІ дані в електронній таблиці, але в (скажімо) рядку 200 є порожній рядок, макрос скопіює лише до рядка 200; ВІН НЕ БУДЕ УХВАЛИТЬСЯ ВСІМИ ДАНИМИ НИЖЧЕ ТОГО РЯДКА!!!
Цей коментар був мінімізований модератором на сайті
Хтось знає команду, щоб уникнути цієї проблеми?? Чи можна вирішити проблему з Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select? Selection.Rows.Count - 1) є командою, яка викликає проблему. Хтось??
Цей коментар був мінімізований модератором на сайті
Замість того, щоб починати зверху і спускатися вниз, починайте знизу і піднімайтеся вгору
Цей коментар був мінімізований модератором на сайті
Хтось знає код для вирішення проблем порожніх рядків і стовпців?. Я маю це в моїх даних, але немає простого рішення, як починати знизу вгору? Спасибі!
Цей коментар був мінімізований модератором на сайті
Для видалення порожніх рядків: Варіант 1. Виберіть клітинки в стовпці А, які потрібно видалити. Використовуйте Ctrl - і виберіть у спливаючому вікні весь рядок. Збережіть книгу та вийдіть. Потім відкрийте робочий зошит. Варіант 2. Виберіть рядки, які потрібно видалити. Використовуйте Ctrl -. Збережіть книгу та вийдіть із відкритої книги. Дав варіант 1, щоб було видно, що відбувається. Щоб видалити порожні стовпці: Виберіть стовпець. Ctrl -. Збережіть книгу та вийдіть із відкритої книги.
Цей коментар був мінімізований модератором на сайті
Чи є у нас рішення для копіювання даних під порожньою клітинкою?
Цей коментар був мінімізований модератором на сайті
Дякую ! Мій 2-й ряд був порожнім на всіх аркушах, і я був розгублений.
Цей коментар був мінімізований модератором на сайті
код vba працював чудово, але мені потрібно оновлювати комбінований аркуш, коли я додаю нові рядки або нові дані до клітинок на аркушах, які я об’єдную. Чи є спосіб це зробити? Дякую за твою допомогу.
Цей коментар був мінімізований модератором на сайті
Код макросу чудово працював для першого об’єднаного робочого аркуша, але мені потрібно оновлювати комбінований аркуш, коли я додаю дані до наявних аркушів, які я об’єдную. Чи є спосіб це зробити?
Цей коментар був мінімізований модератором на сайті
Ви коли-небудь з’ясовували, як змусити його оновлюватися в головній частині під час додавання рядків до інших аркушів?
Цей коментар був мінімізований модератором на сайті
Чудова робота. Це скоротило мою роботу з 2 годин до 10 хвилин.
Цей коментар був мінімізований модератором на сайті
Чудово, я використовував і перший макрос, і Kutools, обидва значно скоротили мій збір даних і компіляцію. Дякую, що поділились.
Цей коментар був мінімізований модератором на сайті
Я щойно видалив частину, наведену нижче, і тепер вона лише оновлюється. Сподіваюся, це допоможе... Таблиці(1). Виберіть Worksheets.Add
Цей коментар був мінімізований модератором на сайті
Код працює чудово! Мені потрібен макрос, щоб скопіювати всі дані на аркушах. Це відрізання першого рядка після аркуша 1. Лише на першому аркуші є рядок заголовка, інші аркуші – це лише дані. Це можливо?
Цей коментар був мінімізований модератором на сайті
У мене є запитання щодо "Об'єднати всі аркуші в один аркуш з кодом VBA": код працює дуже добре, але тільки коли він порожній, він додає заголовок, можна змінити код, щоб сказати, щоб не об'єднувати порожній аркуш?
Цей коментар був мінімізований модератором на сайті
Дякую, ви зекономили мені годину копіювання та вставки :D
Цей коментар був мінімізований модератором на сайті
Мати дві робочі книги, ті самі дані, але в другій є додаткові дані, і деякі дані оновлено, inv# Status 123 7/2 відкритий inv# status 123 7/2 відкритий 7/7 закритий, як об’єднати в одну видалення або виділення дублікатів та додавання будь-який новий інв# не в першому
Цей коментар був мінімізований модератором на сайті
Чудово працює, якщо ваш стовпець A не є порожнім. На аркушах з порожнім стовпцем А він ніби перезаписує. У моєму dtaa стовпець E є непорожнім на всіх аркушах. Як я можу змінити пункт призначення копіювання, щоб врахувати порожній стовпець A на деяких аркушах?
Цей коментар був мінімізований модератором на сайті
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i як ціле для i = 2–25 аркушів ("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Вибір.Рядок) + 1).Виберіть аркуші("Аркуш" & CStr(i)).Виберіть діапазон("A2").Виберіть діапазон(Вибір, Виділення.Кінець(xlDown)).Виберіть діапазон(Вибір, Виділення .End(xlToRight)).Select Selection.Cut Sheets("Sheet1").Select ActiveSheet.Paste Next End Sub
Цей коментар був мінімізований модератором на сайті
Range("A:A").SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1, 0). Виберіть "використовуйте цей код, щоб вибрати останню клітинку в стовпці "A" [цитата] Sub CopySheet() ' ' Макрос CopySheet ' ' Dim i як ціле число для i = 2–25 аркушів ("Аркуш1").Виберіть діапазон("A1").Виберіть Selection.End(xlDown).Виберіть діапазон("A" & CStr(Selection.Row) + 1) .Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection .Cut Sheets("Sheet1").Виберіть ActiveSheet.Paste Next End SubЗа клопесом[/ Цитата]
Цей коментар був мінімізований модератором на сайті
МАКРО-КОД ПРАЦЮВАВ ТАК ДОБРО... ЧУДОВО РОБОТА :-)
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL