Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Вход
x
or
x
x
Регистрация
x

or

Как объединить несколько книг в одну книгу в Excel?

Вы когда-нибудь застревали, когда вам нужно объединить несколько книг в одну книгу в Excel? Самое страшное, что книга, которую нужно объединить, содержит несколько рабочих листов. Может ли кто-нибудь предложить хороший способ справиться с этой проблемой?

Объедините несколько книг с одной книгой с VBA

Объединение нескольких книг в одну книгу с помощью команды «Переместить» или «Копировать»

Легко объединить несколько книг в одну книгу с помощью Kutools for Excel


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

Объединение нескольких рабочих листов или рабочих книг в один рабочий лист или книгу может быть огромной задачей в вашей повседневной работе. Но если у вас есть Kutools for Excel, его мощная утилита - Сочетать может помочь вам быстро объединить несколько рабочих листов, рабочих книг в один рабочий лист или книгу. Загрузите полную версию 60-дневного бесплатного следа Kutools для Excel прямо сейчас!

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 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. Затем нажмите док-слияние-многооконная рабочие тетради кнопка чтобы запустить код, и все рабочие листы (включая пустые листы) в книгах были объединены в основную книгу.

Внимание: Этот код VBA может объединить все книги в основную книгу, если вы хотите объединить указанные рабочие листы книг, этот код не будет работать.


Объединение нескольких книг в одну книгу с помощью команды «Переместить» или «Копировать»

Если вы новичок Microsoft Excel, у вас нет выбора, кроме как нужно копировать данные каждого листа и вставлять их в новую книгу один за другим и применять команду «Переместить или Копировать». Используя Переместить или скопировать команда поможет вам быстро экспортировать или скопировать один или несколько рабочих листов в новую книгу.

1, Откройте все книги, которые вы хотите объединить в одну книгу.

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

3, В Переместить или скопировать диалоговое окно, выберите основную книгу, в которую вы хотите объединить другие книги, из выпадающего списка Перемещение выбранных листов в книгу, Затем укажите местоположение объединенных листов. Смотрите скриншоты:

4, Затем нажмите OK, Выбранные листы были перемещены в основную книгу.

5, Повторите шаги от 2 до 4, чтобы переместить другие книги в основную книгу. Затем он объединяет все рабочие таблицы открытых книг в одну книгу. Смотрите скриншоты:


Легко объединить несколько книг в одну книгу с помощью Kutools for Excel

К счастью, для новичков и новых рук Microsoft Excel есть несколько доступных инструментов, которые помогут вам быстро объединить сотни книг в один. Функция Сочетать in Kutools for Excel упрощает объединение нескольких файлов Excel. Приложение используется для выпуска повторяющихся и избыточных операций в Excel. Он действительно играет важную роль, если вам приходится иметь дело с большим количеством файлов Excel в вашей повседневной работе. Теперь давайте посмотрим, как заставить эту функцию работать в сочетании нескольких книг.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

1. Включить Excel и нажать Kutools Plus > Сочетать, Затем появляется диалоговое окно, напоминающее вам, что все комбинированные книги должны быть сохранены, а функция не может быть применена к защищенным книгам. OK Кнопка.

2. В Комбинированные рабочие листы мастер, выберите Объединение нескольких рабочих листов из книг в одну книгу, а затем нажмите Следующяя кнопка. Смотрите скриншот:

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

doc объединить несколько книг arrow1

3. В Объединить рабочие листы - шаг 3 3 диалоговое окно, выполните следующие настройки:

  • 3.1 Вы можете исключить все пустые листы из списка, выбрав Пропускать из Когда встречается пустой лист выпадающий список.
  • 3.2 Проверьте Первая строка каждого листа (Комментарий) возможность вставки информации о листе каждого комбинированного рабочего листа.
  • 3.3 Вы можете переименовать новые объединенные листы, вставив имена книг до или после имени исходного листа или просто сохраните имена исходных листов, сняв флажки Введя название книги вариант.
  • 3.4 Нажмите Конец Кнопка.

4, Затем выберите папку для сохранения объединенной книги и откройте ее по мере необходимости. Теперь все указанные книги объединены в один.

Заметки:

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

2, Рабочие листы в отдельных книгах были объединены в новую рабочую книгу, и рабочие листы называются с именем книги до или после имени исходного листа, если вы проверили Введя название книги вариант. Между тем, новый рабочий лист Kutools for Excel создается перед всеми листами, в которых перечислены книги с подробной информацией о каждом рабочем листе. Смотрите скриншот:

3. Если имя вашего рабочего листа слишком длинное, возможно, символы имени больше, чем 31characters, комбинированное имя не будет отображаться и отображать только имя оригинального листа.

Наконечник.Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите, чтобы применить операцию согласно вышеуказанным шагам.


Office Tab - Просмотр, редактирование и управление книгами в Excel с вкладками:

Вкладка «Office» предоставляет интерфейс с вкладками, как показано в веб-браузерах, таких как Google Chrome, новые версии Internet Explorer и Firefox в Microsoft Excel. Это будет инструмент экономии времени и незаменим в вашей работе. См. Ниже демо:

Нажмите для бесплатной пробной версии Office Tab!

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

Демо: легко объединить несколько книг в одну книгу с помощью Kutools for Excel




Статьи по теме:



Рекомендуемые инструменты производительности

Office Tab

золото star1 Принесите удобные вкладки в Excel и другое программное обеспечение Office, как Chrome, Firefox и новый Internet Explorer.

Kutools for Excel

золото star1 Удивительно! Увеличьте производительность в течение 5 минут. Не нужно никаких специальных навыков, сэкономить два часа каждый день!

золото star1 Новые возможности 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 · 5 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 · 3 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 · 3 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.