KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторТехническая поддержкаДата изменения

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

Объединение нескольких книг в одну с помощью функции перемещения или копирования

Если нужно объединить всего несколько книг, требуемые листы можно вручную переместить или скопировать из исходной книги в основную с помощью команды «Переместить или скопировать».

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

2. Выделите в исходной книге листы, которые хотите переместить или скопировать в основную книгу.

Примечания:

1). Вы можете выбрать несколько несмежных листов, удерживая клавишу Ctrl и последовательно щёлкая по нужным вкладкам листов.

2). Чтобы выбрать несколько смежных листов, щёлкните по первой вкладке листа, удерживайте клавишу Shift и затем щёлкните по последней вкладке — так выделится сразу весь диапазон листов.

3). Щёлкните правой кнопкой мыши по любой вкладке листа и выберите команду Выделить все листы в контекстном меню, чтобы одновременно выбрать все листы книги.

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

Параметр «Переместить или копировать» в контекстном меню

4. Откроется диалоговое окно Переместить или скопировать. В раскрывающемся списке Книга выберите основную книгу, в которую нужно переместить или скопировать листы. В поле Перед листом установите флажок Создать копию, после чего нажмите кнопку ОК.

Диалоговое окно «Переместить или копировать»

Теперь листы из двух книг объединены в одну. Повторите описанные выше действия, чтобы перенести листы из других книг в основную книгу.

Листы из двух книг теперь находятся в одной книге

Объединение нескольких книг или указанных листов книг в основную книгу с помощью VBA

Если вам нужно объединить несколько книг в одну, воспользуйтесь приведёнными ниже кодами VBA — это позволит выполнить задачу быстро и эффективно. Следуйте инструкциям.

1. Поместите все книги, которые вы хотите объединить, в одну папку.

2. Запустите файл Excel (он станет основной книгой).

3. Нажмите сочетание клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений. В открывшемся окне Microsoft Visual Basic для приложений выберите пункт меню Вставка > Модуль и скопируйте приведённый ниже код VBA в окно модуля.

Код VBA 1: Объединение нескольких Рабочая книга Excel в одну

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  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

Примечания:

1. Приведённый выше код VBA сохранит имена листов исходных книг после их объединения.

2. Если вы хотите точно определить, откуда именно взялись листы в основной книге после объединения, воспользуйтесь приведённым ниже кодом VBA 2.

3. Если вы хотите объединить только указанные листы из книг в основную книгу, вам поможет следующий код VBA.

В кодах VBA «C:\Users\DT168\Desktop\KTE\» — это путь к файлу. В коде VBA 3 «Sheet1,Sheet3» указывает листы книг, которые будут объединены в основную книгу. Вы можете изменить их в соответствии со своими потребностями.

Код VBA 2: Объединить книги в одну книгу (каждый лист будет назван с префиксом исходного имени файла):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
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

Код VBA 3: Объединение указанных листов книг в основную книгу:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
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

4. Нажмите клавишу F5, чтобы запустить код. После этого все листы или указанные листы книг из выбранной папки объединятся в основную книгу за один раз.

Простое объединение нескольких книг или указанных листов книг в одну книгу

К счастью, утилита Объединение книг из Kutools для Excel значительно упрощает слияние нескольких книг в одну. Давайте посмотрим, как использовать эту функцию для объединения нескольких книг.

Перед применением Kutools для Excel пожалуйста, сначала загрузите и установите его.

1. Создайте новую рабочую книгу и нажмите KUTOOLS PLUS > Объединение. Появится диалоговое окно с напоминанием о том, что все объединяемые книги должны быть сохранены, а функция не работает с защищёнными книгами. Нажмите кнопку ОК.

Кнопка «Объединить» на вкладке Kutools на ленте

2. В мастере Объединить листы выберите параметр Копировать листы из нескольких книг в одну книгу и нажмите кнопку Далее. См. снимок экрана:

Мастер объединения листов

3. В диалоговом окне Объединить листы — Шаг 2 из 3 нажмите кнопку Добавить > Файл или Папка, чтобы добавить файлы Excel, которые вы хотите объединить. После добавления файлов Excel нажмите кнопку Готово и выберите папку для сохранения основной книги. См. снимок экрана:

Объединение листов — Шаг 2 из 3

Теперь все книги объединены в одну.

По сравнению с двумя предыдущими способами,Kutools для Excelобладает следующими преимуществами:

  • 1) Все книги и листы перечислены в диалоговом окне;
  • 2) Чтобы исключить лист из объединения, просто снимите флажок напротив него;
  • 3) Пустой лист исключаются автоматически;
  • 4) После объединения к имени листа будет добавлено имя исходного файла в качестве префикса;
  • Дополнительные возможности этой функции описаны здесь.

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

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек