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

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

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

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

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

Объединить листы с одинаковыми заголовками по 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. Нажмите OK. И все листы в активной книге объединяются в новый лист с именем «Комбинированный».

Наконечник:

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

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

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

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

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

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

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

1) Выберите нужный расчет в форме Функция список;
2) Щелкните, чтобы выбрать диапазон, который вы хотите объединить.
3) Нажмите Добавить кнопку, чтобы добавить диапазон в список Все ссылки. Повторить 2) шаг и 3) шаги, чтобы добавить в этот список все диапазоны, которые необходимо объединить.
4) Проверить Верхний ряд и Левая колонка недооценивают ее Используйте ярлыки в .
5) Если вы хотите связать объединенные данные с исходными данными, отметьте Создавать ссылки на исходные данные.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Статьи по теме

• Как объединить несколько ячеек с ведущими нулями в ячейку в Excel?
• Как сгенерировать список всех возможных комбинаций из 4 цифр в Excel?
• Как сохранить каждый лист в виде отдельного текстового файла из книги?