Перейти к основному содержанию
Постоянный пользователь ChatGPT? Попробуйте ChatGPT, интегрированные с ExtendOffice.

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

Автор: Сан Последнее изменение: 2020 июля 05 г.

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

документ объединить тот же заголовок 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: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 30 дней.

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

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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
When using the VBA code only two of my sheets are combining instead of the three active sheets. The headers are all the same and all start in cell A1. Would you have any idea what the issue is please?
This comment was minimized by the moderator on the site
Bonjour, est-ce possible de Fusionner et LIER Plusieurs Feuilles Avec Les Mêmes En-Têtes Dans Excel afin que les changements qui sont effectués dans les feuilles du classeur soient appliqués dans la nouvelle feuille "combinée"?
This comment was minimized by the moderator on the site
Hello, If you want to combine sheets which with the same sheet names, there is no built-in feature in Excel can help you. You can try Combine feature of Kutools for Excel, it provides an option that combine sheets with same names, for more details, you can visit this tutorial https://www.extendoffice.com/product/kutools-for-excel/excel-combine-sheets-of-same-name-into-one-worksheet.html. And Kutools for Excel supports 30-day free trial, you can download it to have a try. https://www.extendoffice.com/download/kutools-for-excel.html
This comment was minimized by the moderator on the site
Very helpful the code for combining multiple worksheets, it worked fine! Thank you!
This comment was minimized by the moderator on the site
what will be vba code for combining multiple sheets in workbook into one worksheet if row headers are the same ( not column headers)
This comment was minimized by the moderator on the site
I used VBA to copy all sheets to one, but how can I copy only select sheets instead of all of them?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Hello
I bought Kutools for Excel 19.00, by interest in the merge function, but doesn't work with my files and sheets, all have the same name (Workbook an sheets) but in the combination of : "Combine all same name worksheets into one worksheet" dosn't work (does nothing), inclusive don't saves the new workbook in the place that I select prior to execute de Finish button.
I followed the instructions one and another time, but the result is the same.
Some help?
This comment was minimized by the moderator on the site
Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: our team will solve your problems as soon as possible.
This comment was minimized by the moderator on the site
perfect, thank you
This comment was minimized by the moderator on the site
How can I combine only sheets with same header ignoring other sheets?
This comment was minimized by the moderator on the site
How do I merge only select worksheets in that workbook?
How can I run the Macro to refresh the data on a weekly basis without having to delete the "Combined" tab?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations