Note: The other languages of the website are Google-translated. Back to English

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

Например, у вас есть данные с одинаковыми заголовками на разных листах, как показано на скриншотах ниже, и теперь ваша задача - объединить эти листы в один лист. Вместо того, чтобы копировать и вставлять их по одному, в этом руководстве представлены лучшие способы выполнения этой работы.

документ объединить тот же заголовок 1
документ объединить тот же заголовок 2
документ объединить тот же заголовок 3

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

Объединение листов Excel с одинаковыми заголовками с помощью функции консолидации

Слияние или объединение листов Excel с одинаковыми заголовками Kutools for Excel хорошая идея3


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

Если вы просто хотите объединить листы с одинаковыми заголовками без каких-либо вычислений, вы можете применить код VBA для решения этой проблемы.

1. Активируйте книгу, листы которой вы хотите объединить, нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, а затем вставьте ниже код VBA в новый Модули окно.

VBA: объединить листы с одинаковыми заголовками

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3. Нажмите F5 нажмите клавишу для запуска VBA, и появится диалоговое окно, в котором вы можете ввести количество строк заголовка. Смотрите скриншот:

документ объединить тот же заголовок 4

4. Нажмите OK. И все листы в активной книге объединяются в новый лист с именем «Комбинированный».

документ объединить тот же заголовок 1
док плюс
документ объединить тот же заголовок 2
док плюс
документ объединить тот же заголовок 3
документ вертикальный равный
документ объединить тот же заголовок 3

Наконечник:

(1.) Ваши данные должны начинаться с A1, в противном случае код не вступит в силу.

(2.) Ваши данные должны иметь одинаковую структуру.

(3.) Этот код может объединить только все листы активной книги. Если вы хотите объединить листы из нескольких книг, этот код не будет работать.


стрелка синий правый пузырь Объединение листов Excel с одинаковыми заголовками с помощью функции консолидации

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

документ объединить тот же заголовок 6
документ объединить тот же заголовок 7
документ объединить тот же заголовок 8

1. Откройте все книги, из которых вы хотите объединить листы, и поместите курсор в пустую ячейку, в которой вы хотите разместить объединяемые данные, затем щелкните Данные > Консолидировать. Смотрите скриншот:

документ объединить тот же заголовок 9

2. Затем в Консолидировать окно, выполните следующие действия:

1) Выберите нужный расчет в форме Функция список;

2) Щелкните, чтобы выбрать диапазон, который вы хотите объединить.

3) Нажмите Добавить кнопку, чтобы добавить диапазон в список Все ссылки. Повторить 2) шаг и 3) шаги, чтобы добавить в этот список все диапазоны, которые необходимо объединить.

4) Проверить Верхний ряд и Левая колонка под Используйте ярлыки в .

5) Если вы хотите связать объединенные данные с исходными данными, отметьте Создавать ссылки на исходные данные.

документ объединить тот же заголовок 10
документ объединить тот же заголовок 11
1) Выберите нужный расчет в форме Функция список;

2) Щелкните, чтобы выбрать диапазон, который вы хотите объединить.

3) Нажмите Добавить кнопку, чтобы добавить диапазон в список Все ссылки. Повторить 2) шаг и 3) шаги, чтобы добавить в этот список все диапазоны, которые необходимо объединить.

4) Проверить Верхний ряд и Левая колонка под Используйте ярлыки в .

5) Если вы хотите связать объединенные данные с исходными данными, отметьте Создавать ссылки на исходные данные.

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

документ объединить тот же заголовок 6документ объединить тот же заголовок 7документ объединить тот же заголовок 8
документ вертикальный равный
документ объединить тот же заголовок 12

стрелка синий правый пузырь Слияние или объединение листов Excel с одинаковыми заголовками Kutools for Excel

Если в некоторых случаях вы хотите объединить данные только с одинаковыми заголовками, а в других случаях вы хотите объединить данные и консолидировать их, есть ли какие-либо уловки, которые могут решить обе эти задачи? Здесь я представляю Kutools for Excelмощный Сочетать для вас.

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

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После установки Kutools for Excel, сделайте следующее:(Бесплатная загрузка Kutools for Excel прямо сейчас!)

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

1. Нажмите Кутулс Плюс > Сочетать чтобы включить мастер объединения, а затем установите флажок Объедините несколько листов из книг в один лист. Смотрите скриншоты:
документ объединить тот же заголовок 14
doc kutools комбинировать 2

2. Нажмите Далее>> идти на Объединить рабочие листы - шаг 2 из 3 wizard и выполните следующие действия:

doc kutools комбинировать 3
1) Нажмите Добавить > Папка чтобы добавить книги, вы можете объединить листы из Список рабочих книг;
2) Проверьте имя книги, листы которой вы хотите объединить, вы можете выбрать несколько книг;
3) Отметьте рабочие листы, которые вы хотите объединить;
4) Нажмите выбор документа чтобы выбрать диапазон, который вы хотите объединить, если диапазоны помещаются в одно и то же место на каждом листе, просто нужно выбрать один диапазон из листа, затем щелкнуть Тот же диапазон.

3. Нажмите Следующий >> до Объединить рабочий лист - шаг 3 из 3 волшебник и проверьте Вариант объединения по строкам и введите 1 в текстовое поле Номер строки заголовка, если в вашем диапазоне нет заголовка, введите в него 0.

doc kutools комбинировать 4

4. Нажмите Завершить, и появится диалоговое окно с напоминанием о сохранении этого сценария. Если вы хотите сохранить его, щелкните Да или Нет.

документ объединить тот же заголовок 17

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

документ объединить тот же заголовок 18

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

После установки Kutools for Excel, сделайте следующее:(Бесплатная загрузка Kutools for Excel прямо сейчас!)

1. Нажмите Предприятие > Сочетать для отображения мастера объединения и отметьте Объединяйте и вычисляйте значения из нескольких книг на одном листе. Смотрите скриншот:
doc kutools комбинировать 5

2. Нажмите Далее>> , чтобы перейти к Объединить рабочие листы - шаг 2 из 3 wizard и выполните следующие действия:

doc kutools комбинировать 3
1) Нажмите Добавить > Папка чтобы добавить книги, вы можете объединить листы из Список рабочих книг;
2) Проверьте имя книги, листы которой вы хотите объединить, вы можете выбрать несколько книг;
3) Отметьте рабочие листы, которые вы хотите объединить;
4) Нажмите выбор документа чтобы выбрать диапазон, который вы хотите объединить, если диапазоны помещаются в одно и то же место на каждом листе, просто нужно выбрать один диапазон из листа, затем щелкнуть Тот же диапазон.

3. Продолжайте нажимать Далее>> и выберите функцию, которую вы хотите применить в объединенном диапазоне, и проверьте метки для объединенного диапазона. Смотрите скриншот:
doc kutools комбинировать 6

4. Нажмите Завершить, и появится диалоговое окно с просьбой сохранить сценарий, нажмите Да для сохранения или нажмите Нет чтобы не спасти его.

Затем диапазоны объединяются в новую книгу.

документ объединить тот же заголовок 12

Преимущество Kutools for ExcelАвтора Сочетать Функция заключается в том, что вы можете объединить несколько листов из открытых или неоткрытых книг в один лист или одну книгу.

Простое объединение / консолидация данных на основе одного и того же значения в Excel

Предположим, вы работаете с листом, который содержит несколько повторяющихся записей, и теперь вам нужно объединить / объединить строки на основе одного и того же значения и выполнить некоторые вычисления, такие как сумма, среднее значение, количество повторяющихся строк. С этим Расширенные ряды комбинирования of Kutools for Excel, вы можете быстро объединить одинаковые значения / данные или повторяющиеся строки в соответствующие ячейки.  Нажмите, чтобы получить полнофункциональную бесплатную пробную версию в 30 дней!
doc расширенные строки комбинирования
 
Kutools for Excel: с более чем удобными надстройками Excel 300, которые можно попробовать бесплатно без ограничений в 30 дней.

Относительные статьи


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (19)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал «VBA: объединить листы с одинаковыми заголовками», но он оставляет строку пустой после каждого листа данных, как мне это исправить. Можно модифицировать код?
Этот комментарий был сведен к минимуму модератором на сайте
Я не знаю, почему пустая строка остается при объединении данных с помощью VBA, со мной этого не происходит. Если необходимо удалить несколько пустых строк, вы можете нажать F5, чтобы открыть диалоговое окно «Перейти», и нажать «Специальные»> «Пробелы», чтобы выбрать все пустые ячейки, щелкнуть правой кнопкой мыши, чтобы удалить пустые строки.

Но с помощью функции «Перейти к специальной» она будет выбирать пустые ячейки, а не пустые строки, которые не работают должным образом, пока в строке отсутствуют данные. В этом случае вы можете применить Kutools for Excel Удалить пустые строки, который может удалить пустые строки при выборе, активный рабочий лист, выбранные листы или всю книгу.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,


Я проверил вашу формулу VB для VBA: объединить листы с одинаковыми заголовками, это абсолютно полезно для меня, но мне нужна небольшая поддержка, я хочу создать макрос для этого файла. Как будто я должен загружать файл каждый раз, сохраняя его с каким-то уникальным именем и запуская макрос, чтобы объединить лист.

Пожалуйста подтвердите.
Этот комментарий был сведен к минимуму модератором на сайте
Извините, я не понимаю вашего вопроса. Если у вас есть какие-либо проблемы, пожалуйста, перейдите на наш форум https://www.extendoffice.com/forum.html, может кто поможет.
Этот комментарий был сведен к минимуму модератором на сайте
У меня та же проблема, что и у Саураба. Он объединяет рабочие листы и имеет пустую строку после копирования каждых данных с рабочего листа. Однако заголовок также не копируется на новый «комбинированный» рабочий лист. Я использую Excel 2016. Спасибо за код, он помогает минимизировать время, которое я трачу. Я не думаю, что смогу разобраться с кодом, и надеюсь, что вы сможете его изучить. Спасибо еще раз.
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу объединить листы ... но я также хочу добавить столбец ("A") в новый лист (объединенный), где имя листа "Лист1", "Лист2" будет помещено во все строки, скопированные из уважаемых листов .. так что я буду знать, какие данные пришли из какого листа.
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете попробовать функцию объединения Kutools, она может вставлять информацию о данных каждого листа перед данными в комбинированном листе.
Этот комментарий был сведен к минимуму модератором на сайте
Как объединить только выбранные листы в этой книге?
Как запустить макрос для еженедельного обновления данных без необходимости удалять вкладку «Комбинированные»?
Этот комментарий был сведен к минимуму модератором на сайте
Как я могу объединить только листы с одинаковым заголовком, игнорируя другие листы?
Этот комментарий был сведен к минимуму модератором на сайте
отлично спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте
Я купил Kutools для Excel 19.00, интересуясь функцией слияния, но не работает с моими файлами и листами, все они имеют одинаковое имя (рабочая книга и листы), но в комбинации: «Объединить все листы с одинаковыми именами в один рабочий лист " не работает (ничего не делает), включительно не сохраняет новую книгу в том месте, которое я выбрал до выполнения кнопки "Готово".
Я следовал инструкции один и другой раз, но результат один и тот же.
Некоторые помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Эсекьель Завалета, мне очень жаль это слышать. Вы можете связаться с нашим менеджером по обслуживанию клиентов по этому адресу: support@extendoffice.com наша команда решит ваши проблемы как можно скорее.
Этот комментарий был сведен к минимуму модератором на сайте
Esta excelente la primera macro, pero no sabrias decirme por que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
Этот комментарий был сведен к минимуму модератором на сайте
Я использовал VBA, чтобы скопировать все листы в один, но как я могу скопировать только выбранные листы, а не все?
Этот комментарий был сведен к минимуму модератором на сайте
каким будет код vba для объединения нескольких листов в рабочей книге в один рабочий лист, если заголовки строк одинаковы (не заголовки столбцов)
Этот комментарий был сведен к минимуму модератором на сайте
Очень помог код для объединения нескольких рабочих листов, он отлично работал! Благодарю вас!
Этот комментарий был сведен к минимуму модератором на сайте
Bonjour, возможно ли Fusionner et LIER Plusieurs Feuilles Avec Les Mêmes En-Têtes Dans Excel, чтобы узнать, какие изменения вступают в силу в новых классах, аппликации в новой версии "combinée"?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, если вы хотите объединить листы с одинаковыми именами листов, встроенная функция Excel вам не поможет. Вы можете попробовать объединить функцию Kutools for Excel, она предоставляет возможность объединять листы с одинаковыми именами, для получения более подробной информации вы можете посетить этот учебник https://www.extendoffice.com/product/kutools-for-excel/excel-combine-sheets-of-same-name-into-one-worksheet.html. И Kutools for Excel поддерживает 30-дневную бесплатную пробную версию, вы можете скачать ее, чтобы попробовать. https://www.extendoffice.com/download/kutools-for-excel.html
Этот комментарий был сведен к минимуму модератором на сайте
При использовании кода VBA объединяются только два моих листа вместо трех активных листов. Все заголовки одинаковые и все начинаются в ячейке A1. У вас есть идеи, в чем проблема, пожалуйста?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL