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

Объединение данных из нескольких книг Excel в один лист — это распространённая задача при анализе данных, особенно при работе с консолидированными отчетами или агрегацией данных из различных источников. Это может быть особенно сложно, когда нужно объединить листы с одинаковыми именами из разных книг. В этом руководстве мы рассмотрим два эффективных метода для упрощения этого процесса: использование кода VBA для тех, кто предпочитает программный подход, и применение Kutools для Excel для пользователей, ищущих более удобное автоматизированное решение.

• Объединение листов с одинаковыми именами в один с помощью кода VBA
• Легкое объединение листов с одинаковыми именами в один с помощью Kutools для Excel

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

В этом разделе представлен код VBA для объединения листов с одинаковыми именами из нескольких книг в одну. Пожалуйста, следуйте инструкциям ниже:

1. Нажмите «Alt» + «F11», чтобы открыть редактор VBA.
2. В редакторе VBA нажмите «Вставить» > «Модуль», затем введите следующий код VBA в модуль.
   Код VBA: Объединение книг с одинаковыми именами в одну

   Sub CombineSameNameSheetsFromMultipleWorkbooks()
   'Updated by Extendoffice 2025/3/27
       Dim wsTarget As Worksheet
       Dim wbTarget As Workbook
       Dim wbSource As Workbook
       Dim wsSource As Worksheet
       Dim strSheetName As String
       Dim fd As FileDialog
       Dim FileChosen As Integer
       Dim FileName As String
       Dim lastRow As Long
   
       ' Set the name of the sheets to combine
       strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet
   
       Set wbTarget = Workbooks.Add
       Set wsTarget = wbTarget.Sheets(1)
       wsTarget.Name = "Combined Data"
   
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       fd.AllowMultiSelect = True
   
       FileChosen = fd.Show
       If FileChosen = -1 Then
           For Each varFile In fd.SelectedItems
               Set wbSource = Workbooks.Open(varFile)
               
               On Error Resume Next
               Set wsSource = wbSource.Sheets(strSheetName)
               On Error GoTo 0
               
               If Not wsSource Is Nothing Then
                   lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                   
                   wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                   
                   Set wsSource = Nothing
               End If
               wbSource.Close False
           Next varFile
       End If
       MsgBox "Data has been combined successfully!", vbInformation
   End Sub

   Примечание: Перед запуском кода необходимо изменить «SheetName» в переменной «strSheetName» на фактическое имя листов, которые вы хотите объединить.

   

3. Нажмите «F5», чтобы запустить код. Появится окно «Выберите файлы Excel». Выберите книги, содержащие листы с одинаковыми именами, которые вы хотите объединить, затем нажмите кнопку «Открыть».

   

4. После завершения объединения появится диалоговое окно «Microsoft Excel», подтверждающее успешное объединение листов. Нажмите «ОК», чтобы закрыть его.

   

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

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

Хотя VBA предлагает мощные возможности автоматизации в Excel, он может быть сложным и пугающим для пользователей без навыков программирования. Кроме того, работа с VBA требует тщательного соблюдения мер безопасности и может вызывать проблемы совместимости. В отличие от этого, «Kutools для Excel» предоставляет более удобную и безопасную альтернативу для упрощения процесса объединения листов из нескольких книг, исключая необходимость сложного кодирования и делая эту задачу доступной для всех пользователей Excel.

После установки Kutools для Excel выберите «Kutools Plus» > «Объединить», чтобы открыть мастер «Объединение листов». Затем настройте следующим образом.

1. В мастере «Объединение листов – Шаг 1 из 3» выберите опцию «Объединить все листы с одинаковыми именами в один лист» и нажмите «Далее».

   

2. В мастере «Шаг 2 из 3» нажмите кнопку «Добавить», чтобы выбрать книги, содержащие листы с одинаковыми именами, которые вы хотите объединить.
   Примечание: Если книги сохранены в папке, вы можете нажать на стрелку раскрывающегося меню рядом с кнопкой «Добавить», чтобы развернуть подменю, затем выбрать «Папка», чтобы быстро добавить все файлы Excel из этой папки.

   

3. После добавления книг у вас есть два варианта в зависимости от ваших потребностей:
   • Если вы хотите объединить все листы из выбранных книг в одну книгу, просто нажмите кнопку «Далее». Все листы будут объединены, а содержимое листов с одинаковыми именами будет объединено в один лист.
   • Если вы хотите объединить только листы с одинаковыми именами, сначала выберите лист в разделе «Список листов», затем нажмите кнопку «Тот же лист». Это автоматически выберет все листы с одинаковыми именами во всех добавленных книгах. После этого нажмите «Далее», чтобы продолжить.

   

4. На последнем этапе мастера либо оставьте выбранную опцию по умолчанию, либо настройте параметры в соответствии с вашими потребностями, затем нажмите «Завершить».

   

5. Выберите папку назначения для объединенной книги, введите желаемое имя файла, затем нажмите кнопку «Сохранить», чтобы завершить операцию.

   

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

Если вы хотите узнать больше об этой функции, пожалуйста, просмотрите эту страницу: Объединение всех листов с одинаковыми именами в один лист - учебник.

Связанные статьи:

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

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

Как свести данные из листов / книг в один лист?