Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Xiaoyang Last modified

Объединение данных из нескольких книг 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» на фактическое имя листов, которые вы хотите объединить.
    screenshot showing SheetName in the code line
  3. Нажмите «F5», чтобы запустить код. Появится окно «Выберите файлы Excel». Выберите книги, содержащие листы с одинаковыми именами, которые вы хотите объединить, затем нажмите кнопку «Открыть».
    screenshot of selecting workbooks
  4. После завершения объединения появится диалоговое окно «Microsoft Excel», подтверждающее успешное объединение листов. Нажмите «ОК», чтобы закрыть его.
    screenshot of the merge success alert box

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

Примечание: Этот код VBA не может объединять несколько листов с одинаковыми именами.

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

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

Kutools для Excel - Наполнен более чем 300 необходимыми инструментами для Excel. Воспользуйтесь постоянно бесплатными функциями ИИ! Скачайте прямо сейчас!

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

  1. В мастере «Объединение листов – Шаг 1 из 3» выберите опцию «Объединить все листы с одинаковыми именами в один лист» и нажмите «Далее».
    screenshot of the step1 wizard
  2. В мастере «Шаг 2 из 3» нажмите кнопку «Добавить», чтобы выбрать книги, содержащие листы с одинаковыми именами, которые вы хотите объединить.
    Примечание: Если книги сохранены в папке, вы можете нажать на стрелку раскрывающегося меню рядом с кнопкой «Добавить», чтобы развернуть подменю, затем выбрать «Папка», чтобы быстро добавить все файлы Excel из этой папки.
    screenshot of the step 2 wizard
  3. После добавления книг у вас есть два варианта в зависимости от ваших потребностей:
    • Если вы хотите объединить все листы из выбранных книг в одну книгу, просто нажмите кнопку «Далее». Все листы будут объединены, а содержимое листов с одинаковыми именами будет объединено в один лист.
    • Если вы хотите объединить только листы с одинаковыми именами, сначала выберите лист в разделе «Список листов», затем нажмите кнопку «Тот же лист». Это автоматически выберет все листы с одинаковыми именами во всех добавленных книгах. После этого нажмите «Далее», чтобы продолжить.
    screenshot of selecting only the same name worksheet
  4. На последнем этапе мастера либо оставьте выбранную опцию по умолчанию, либо настройте параметры в соответствии с вашими потребностями, затем нажмите «Завершить».
    screenshot of the step 3 wizard
  5. Выберите папку назначения для объединенной книги, введите желаемое имя файла, затем нажмите кнопку «Сохранить», чтобы завершить операцию.
    screenshot of selecting a destination folder

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

Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас

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

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

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

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

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

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

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions…
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: 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.

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