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

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

АвторСяоянДата изменения

Слияние данных из нескольких книг 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» на фактическое имя листов, которые требуется объединить.
    снимок экрана, показывающий SheetName в строке кода
  3. Нажмите «F5», чтобы запустить код. Откроется окно «Выберите файлы Excel» — выберите книги, содержащие листы с одинаковыми именами, которые требуется объединить, и нажмите «Открыть».
    снимок экрана выбора книг
  4. После завершения слияния появится диалоговое окно Microsoft Excel, подтверждающее успешное объединение листов. Нажмите «ОК», чтобы закрыть его.
    снимок экрана окна уведомления об успешном объединении

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

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

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

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

Kutools для Excel — включает более 300 незаменимых инструментов для Excel. Работайте в Excel быстрее, проще и эффективнее.Скачать сейчас!

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

  1. В мастере «Объединить листы – Шаг 1 из 3» выберите опцию «Объединить данные из нескольких книг с одинаковым именем листа» и нажмите «Далее».
    снимок экрана мастера шага 1
  2. На шаге «Шаг 2 из 3» мастера нажмите кнопку «Добавить», чтобы выбрать книги, содержащие листы с одинаковыми именами, которые нужно объединить.
    Примечание. Если книги сохранены в папке, щёлкните стрелку раскрывающегося списка рядом с кнопкой «Добавить», чтобы открыть подменю, затем выберите «Папка» — так вы быстро добавите все файлы Excel из этой папки.
    снимок экрана мастера шага 2
  3. После добавления книг у вас есть два варианта в зависимости от ваших задач:
    • Если вы хотите объединить все листы из выбранных книг в одну книгу, просто нажмите кнопку «Далее» — все листы будут объединены, а содержимое одноимённых листов — слито в один.
    • Если вы хотите объединить только листы с одинаковыми именами, сначала выберите нужный лист в разделе «Список листов», затем нажмите кнопку «Одинаковые листы» — это автоматически выделит все листы с такими же именами во всех добавленных книгах. После этого нажмите «Далее», чтобы продолжить.
    снимок экрана выбора только листов с одинаковыми именами
  4. На последнем шаге мастера оставьте опцию, выбранную по умолчанию, или настройте параметры в соответствии со своими потребностями, а затем нажмите «Готово».
    снимок экрана мастера шага 3
  5. Выберите папку назначения для объединённой книги, укажите желаемое имя файла и нажмите «Сохранить», чтобы завершить операцию.
    снимок экрана выбора папки назначения

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

Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас

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

См. также:

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

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

Как суммировать данные с разных листов или из нескольких книг на один лист?

Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек