Как объединить несколько книг в одну главную книгу в Excel?
Приходилось ли вам когда-нибудь сталкиваться с ситуацией, когда нужно объединить несколько книг в одну главную книгу в Excel? Самое ужасное — это когда книги, которые вы хотите объединить, содержат множество листов. Как же объединить только указанные листы из нескольких книг в одну? В этом руководстве представлено несколько полезных методов, которые помогут вам пошагово решить эту задачу.
Объединение нескольких книг в одну книгу с помощью функции Переместить или Копировать
Если нужно объединить всего несколько книг, вы можете использовать команду Переместить или Копировать для ручного перемещения или копирования листов из исходной книги в главную книгу.
1. Откройте книги, которые вы хотите объединить в главную книгу.
2. Выберите листы в исходной книге, которые вы хотите переместить или скопировать в главную книгу.
Примечания:
1). Вы можете выбрать несколько несмежных листов, удерживая клавишу Ctrl и последовательно щелкая по вкладкам листов.
2). Для выбора нескольких смежных листов нажмите на первую вкладку листа, удерживайте клавишу Shift и затем щелкните по последней вкладке, чтобы выбрать их все.
3). Вы можете щелкнуть правой кнопкой мыши на любой вкладке листа, выбрать Выбрать все листы из контекстного меню, чтобы сразу выбрать все листы в книге.
3. После выбора нужных листов щелкните правой кнопкой мыши по вкладке листа и выберите Переместить или Копировать из контекстного меню. См. скриншот:
4. Затем появится диалоговое окно Переместить или Копировать. В раскрывающемся списке В книгу выберите главную книгу, куда вы хотите переместить или скопировать листы. В поле Перед листом выберите Переместить в конец, отметьте Создать копию и, наконец, нажмите кнопку ОК.
Теперь вы можете видеть, что листы из двух книг объединены в одну. Повторите вышеуказанные шаги, чтобы переместить листы из других книг в главную книгу.
Объединение нескольких книг или указанных листов книг в главную книгу с помощью VBA
Если необходимо объединить несколько книг в одну, вы можете применить следующие коды VBA для быстрого выполнения этой задачи. Действуйте следующим образом.
1. Разместите все книги, которые вы хотите объединить, в одной папке.
2. Запустите файл Excel (эта книга станет главной книгой).
3. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, затем скопируйте приведенный ниже код 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 3 поможет.
В кодах 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 Sub4. Нажмите клавишу F5 для запуска кода. Затем все листы или указанные листы книг в определенной папке будут объединены в одну главную книгу.
Легкое объединение нескольких книг или указанных листов книг в одну книгу
К счастью, утилита Combine workbook из Kutools for Excel значительно упрощает объединение нескольких книг в одну. Давайте посмотрим, как эта функция работает при объединении нескольких книг.
Перед применением Kutools для Excel, пожалуйста, сначала скачайте и установите его.
1. Создайте новую книгу и нажмите Kutools Plus > Объединить. Затем появится диалоговое окно, напоминающее, что все объединяемые книги должны быть сохранены, а функция не может быть применена к защищенным книгам. Нажмите кнопку ОК.
2. В мастере Объединение листов выберите опцию Объединить несколько листов из книг в одну книгу, затем нажмите кнопку Далее. См. скриншот:
3. В диалоговом окне Объединение листов - Шаг 2 из 3 нажмите Добавить > Файл или Папка, чтобы добавить файлы Excel, которые вы хотите объединить. После добавления файлов Excel нажмите кнопку Готово и выберите папку для сохранения главной книги. См. скриншот:
Теперь все книги объединены в одну.
По сравнению с предыдущими двумя методами, Kutools for Excel имеет следующие преимущества:
- 1) Все книги и листы перечислены в диалоговом окне;
- 2) Чтобы исключить листы из объединения, просто снимите галочку;
- 3) Пустые листы автоматически исключаются;
- 4) Имя оригинального файла будет добавлено как префикс к имени листа после объединения;
- Для получения дополнительной информации о функциях этой возможности, пожалуйста, посетите здесь.
Если вы хотите воспользоваться бесплатной пробной версией (30-день) этой утилиты, пожалуйста, нажмите, чтобы скачать её, а затем перейдите к выполнению операции согласно вышеуказанным шагам.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в 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.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек