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

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

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

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

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

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

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

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

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 для запуска кода. Затем все листы или указанные листы книг в определенной папке будут объединены в одну главную книгу.

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

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

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

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

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

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

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

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