Печиво допомогти нам доставити наші послуги. Користуючись нашими послугами, Ви погоджуєтесь на використання нами куки.
Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як об'єднати кілька книг у одну книгу в Excel?

Ви коли-небудь застрягли, коли потрібно об'єднати кілька книг у єдину робочу книгу в Excel? Найстрашніше - робоча книга, яку потрібно поєднати, містить кілька робочих аркушів. Чи може хтось запропонувати хороший спосіб вирішити цю проблему?

Об'єднайте кілька книг на одну книгу з VBA

Об'єднайте декілька книг на одній робочій книзі за допомогою команди «Перемістити або скопіювати»

Легко об'єднайте кілька книг у одну книгу з Kutools для Excel


Легко об'єднайте декілька листів / робочих книг у один робочий аркуш / книгу:

Поєднання декількох робочих таблиць або робочих книг у одному робочому аркуші чи книзі може стати величезним завданням у щоденній роботі. Але, якщо у вас є Kutools для Excel, його потужна утиліта - Поєднувати може допомогти вам швидко об'єднати декілька листів, робочих книг у один робочий лист чи книгу. Завантажте повну функцію 60-день безкоштовний слід Kutools для Excel зараз!

Kutools для Excel: з додатковими надбудовами Excel більше, ніж 200, які можна безкоштовно спробувати без обмежень у днях 60. Завантажити та безкоштовну пробну версію зараз!


Об'єднайте кілька книг на одну книгу з VBA

Для досвідчених і професійних програмістів ви можете використовувати скрипти VBA для об'єднання декількох книг у одну майстерову книжку. Ви можете вирішити це з наступними кроками:

1. Покладіть всі робочі книги, які потрібно об'єднати в один каталог. Див. Знімок екрана:

2. Запустіть файл Excel, до якого потрібно об'єднати інші робочі книги.

3. Клацання Розробник > Візуальний Бейсік, новий Microsoft Visual Basic для додатків вікно з'явиться, натисніть кнопку вставка > Модулі, і введіть наступний код у модуль:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Чайові: У наведеному вище коді ви можете змінити шлях до тієї, яку ви використовуєте.

4 Потім натисніть doc-merge-multi-workbooks-button кнопка, щоб запустити код, і всі робочі аркуші (в тому числі порожні робочі аркуші) в робочих книгах були об'єднані в головну робочу книгу.

примітки: Цей код VBA може об'єднувати всі робочі книги в майстер-книгу, якщо ви хочете поєднати вказані робочі аркуші робочих книг, цей код не буде працювати.


Об'єднайте декілька книг на одній робочій книзі за допомогою команди «Перемістити або скопіювати»

Якщо ви новачок у Microsoft Excel, ви не маєте іншого вибору, окрім лише копіювати дані кожного аркуша та вставляти їх в нову книгу по одній і застосовуючи команду «Перемістити або скопіювати». Використовуючи Перемістити або скопіювати команда допоможе вам швидко експортувати або скопіювати одну чи кілька робочих аркушів у нову книгу.

1. Відкрийте всі робочі книги, які потрібно об'єднати в одну книгу.

2. Виберіть всі імена робочих таблиць книги на панелі вкладок. Ви можете вибрати кілька, утримуючи Ctrl ключ або зсув ключ Клацніть правою кнопкою миші на назву робочого листа та натисніть кнопку Перемістити або скопіювати з контекстного меню.

3, в Перемістити або скопіювати діалогове вікно, виберіть головну робочу книгу, до якої ви хочете об'єднати інші робочі книги з випадаючого списку Перемістити вибрані аркуші на книгу. Потім вкажіть розташування об'єднаних робочих таблиць. Подивіться скріншоти:

4. Потім натисніть OK. Вибрані робочі аркуші були перенесені в магістерську робочу книгу.

5. Повторіть кроки від 2 до 4, щоб перемістити інші робочі книги до майстерної книги. Потім він об'єднує всі робочі таблиці відкритих книг у єдину робочу книгу. Подивіться скріншоти:


Легко об'єднайте кілька книг у одну книгу з Kutools для Excel

На щастя, для новачок та нових рук Microsoft Excel існують деякі наявні інструменти, які допоможуть швидко об'єднати сотні робочих книжок в одне. Функція Поєднувати in Kutools для Excel набагато простіше об'єднати декілька файлів Excel. Програма використовується для випуску повторюваних та надлишкових операцій у Excel. Це насправді відіграє важливу роль, якщо вам потрібно мати справу з великою кількістю файлів Excel у вашій повсякденній роботі. Тепер давайте подивимося, як отримати цю функцію, об'єднуючи декілька робочих книг.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, Безкоштовно спробувати без обмежень в днях 60.

1 Увімкніть Excel і натисніть кнопку Kutools More > Поєднувати. Потім з'являється діалогове вікно, яке нагадує вам, що всі об'єднані робочі книги повинні бути збережені, і цю функцію не можна застосувати до захищених робочих книг, будь ласка, натисніть OK кнопки.

2, в Об'єднати робочі аркуші майстер, виберіть Об'єднати декілька листів з книг у одну книгу, а потім натисніть кнопку наступного кнопка Див. Знімок екрана:

2. Потім ви можете побачити всі відкриті робочі книги та робочі листи, перераховані в Об'єднати робочі аркуші - Крок 2 з 3 діалогове вікно. Натисніть кнопку додавати > філе / Папка щоб додати інші файли Excel або папки, що містять файли Excel, які ви об'єднаєте. Після вибору файлів натисніть кнопку наступного кнопка, щоб йти вперед. Див. Знімок екрана:

doc об&#39;єднати кілька книжок arrow1

3, в Об'єднати робочі аркуші - Крок 3 з 3 діалоговому вікні, виконайте наступні налаштування:

  • 3.1 Ви можете виключити всі порожні таблиці з об'єднання, вибравши Пропускати від При зустрічі порожній робочий аркуш випадаючий список.
  • 3.2 Перевірте Перший рядок кожного аркуша (коментар) можливість вставити дані робочого аркуша кожного комбінованого робочого листа.
  • 3.3 Ви можете перейменувати нові комбіновані робочі аркуші, вставивши імена робочих книг до або після оригінальних імен робочих листів, або просто зберегти імена вихідних листів, знявши прапорець Вставивши ім'я робочої книги варіант.
  • 3.4 Натисніть кнопку обробка кнопки.

4. Потім виберіть папку, щоб зберегти об'єднану книгу, і відкрийте її, як вам потрібно. Тепер усі зазначені робочі книги об'єднані в один.

Примітки:

1 Вам буде запропоновано зберегти цей сценарій. Натисніть да щоб заощадити, як вам потрібно, потім введіть назву сценарію (див. наступні скріншоти). Після збереження сценарію потрібно лише натиснути кнопку сценарій кнопку, щоб вибрати ім'я сценарію майстра step2, щоб використовувати його безпосередньо.

2. Робочі таблиці у вибраних робочих книгах були об'єднані в нову робочу книгу, а робочі таблиці називаються ім'ям робочої книги до або після оригінального імені робочого листа, якщо ви перевірили Вставивши ім'я робочої книги варіант Тим часом новий робочий лист названий Kutools для Excel створюється перед всіма робочими листами, в якому перераховуються робочі книги з докладною інформацією про кожному робочому аркуші. Див. Знімок екрана:

3. Якщо ім'я вашого робочого листа задовге, можливо, назви символів перевищують символів 31, об'єднане ім'я не відображатиметься, а лише відобразити ім'я оригінального аркуша.

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


Вкладка Office - Перегляд в таблицях, редагування та керування робочими книгами в Excel.

Вкладка Office відкриває інтерфейс у вигляді вкладок у веб-переглядачах, таких як Google Chrome, нові версії Internet Explorer та Firefox в Microsoft Excel. Це буде інструментом економії часу та незамінним у вашій роботі. Дивіться демонстрацію нижче:

Клацніть для безкоштовної пробної версії Office Tab!

Вкладка Office для Excel

Демо: легко об'єднати кілька книг у одну книгу з Kutools для Excel




Статті по темі:



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

Вкладка Office

золота зірка1 Принесіть зручні вкладки для Excel та іншого програмного забезпечення Office, як і Chrome, Firefox та нового Internet Explorer.

Kutools для Excel

золота зірка1 Дивовижний! Збільште свою продуктивність за 5 хв. Не потрібно спеціальних навичок, заощаджуйте дві години щодня!

золота зірка1 Нові можливості 300 для Excel, зробити Excel набагато простішим та потужним:

  • Об'єднати клітинки / рядки / стовпці без втрати даних.
  • Об'єднати та об'єднати декілька аркушів і книг.
  • Порівняйте діапазони, копіюйте декілька діапазонів, перетворюйте текст на дату, одиницю та валюту.
  • Розрахувати за кольорами, Інтерв'ю підказок, Розширений сортування та Супер фільтр
  • Більше Вибрати / Вставити / Видалити / Текст / Формат / Посилання / Коментарі / Робочі книги / Робочі аркуші Інструменти ...

Знімок екрану Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 4 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 2 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      Dim xI As Integer
      On Error Resume Next

      xStrPath = " C:\Users\DT168\Desktop\KTE\"
      xStrName = "Sheet1,Sheet3"

      xArr = Split(xStrName, ",")

      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      xStrFName = Dir(xStrPath & "*.xlsx")
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      For xI = 0 To UBound(xArr)
      If xWS.Name = xArr(xI) Then
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
      xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
      Exit For
      End If
      Next xI
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 2 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      On Error Resume Next
      xStrPath = "C:\Users\DT168\Desktop\KTE\"
      xStrFName = Dir(xStrPath & "*.xlsx")
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
      xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.