Как объединить несколько листов с одинаковыми заголовками в 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 Sub3. Нажмите F5 нажмите клавишу для запуска VBA, и появится диалоговое окно, в котором вы можете ввести количество строк заголовка. Смотрите скриншот:
4. Нажмите OK. И все листы в активной книге объединяются в новый лист с именем «Комбинированный».
Наконечник:
(1.) Ваши данные должны начинаться с A1, в противном случае код не вступит в силу.
(2.) Ваши данные должны иметь одинаковую структуру.
(3.) Этот код может объединить только все листы активной книги. Если вы хотите объединить листы из нескольких книг, этот код не будет работать.
Объединение листов Excel с одинаковыми заголовками с помощью функции консолидации
Предположим, у вас есть данные с такими же заголовками столбцов и строк, как показано на скриншоте ниже, и вы хотите объединить таблицы Excel с такими же заголовками, а затем выполнить некоторые вычисления, вы можете применить функцию консолидации в Excel.
1. Откройте все книги, из которых вы хотите объединить листы, и поместите курсор в пустую ячейку, в которой вы хотите разместить объединяемые данные, затем щелкните Данные > Консолидировать. Смотрите скриншот:
2. Затем в Консолидировать окно, выполните следующие действия:
1) Выберите нужный расчет в форме Функция список;
2) Щелкните, чтобы выбрать диапазон, который вы хотите объединить.
3) Нажмите Добавить кнопку, чтобы добавить диапазон в список Все ссылки. Повторить 2) шаг и 3) шаги, чтобы добавить в этот список все диапазоны, которые необходимо объединить.
4) Проверить Верхний ряд и Левая колонка под Используйте ярлыки в .
5) Если вы хотите связать объединенные данные с исходными данными, отметьте Создавать ссылки на исходные данные.
2) Щелкните, чтобы выбрать диапазон, который вы хотите объединить.
3) Нажмите Добавить кнопку, чтобы добавить диапазон в список Все ссылки. Повторить 2) шаг и 3) шаги, чтобы добавить в этот список все диапазоны, которые необходимо объединить.
4) Проверить Верхний ряд и Левая колонка под Используйте ярлыки в .
5) Если вы хотите связать объединенные данные с исходными данными, отметьте Создавать ссылки на исходные данные.
3. Нажмите OK. Теперь весь диапазон данных с одинаковыми заголовками объединен в один и суммируется по заголовкам.
Объединяйте или объединяйте листы Excel с одинаковыми заголовками с помощью Kutools for Excel
Если в некоторых случаях вы хотите объединить данные только с одинаковыми заголовками, а в других случаях вы хотите объединить данные и консолидировать их, есть ли какие-либо уловки, которые могут решить обе эти задачи? Здесь я представляю Kutools for Excelмощный Сочетать для вас.
Объединить листы Excel с одинаковыми заголовками
Объедините несколько листов с одинаковыми заголовками
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. | ||
После установки Kutools for Excel, пожалуйста, сделайте следующее:(Бесплатная загрузка Kutools for Excel Сейчас!)
Объединить листы Excel с одинаковыми заголовками
1. Нажмите Кутулс Плюс > Сочетать чтобы включить мастер объединения, а затем установите флажок Объедините несколько листов из книг в один лист. Смотрите скриншоты:
2. Нажмите Далее>> идти на Объединить рабочие листы - шаг 2 из 3 wizard и выполните следующие действия:
2) Проверьте имя книги, листы которой вы хотите объединить, вы можете выбрать несколько книг;
3) Отметьте рабочие листы, которые вы хотите объединить;
4) Нажмите
чтобы выбрать диапазон, который вы хотите объединить, если диапазоны помещаются в одно и то же место на каждом листе, просто нужно выбрать один диапазон из листа, затем щелкнуть Тот же диапазон.3. Нажмите Следующий >> до Объединить рабочий лист - шаг 3 из 3 волшебник и проверьте Вариант объединения по строкам и введите 1 в текстовое поле Номер строки заголовка, если в вашем диапазоне нет заголовка, введите в него 0.
4. Нажмите Завершить, и появится диалоговое окно с напоминанием о сохранении этого сценария. Если вы хотите сохранить его, щелкните Да или Нет.
Теперь листы объединяются с одинаковыми заголовками строк в новой книге.
Объедините несколько листов с одинаковыми заголовками
После установки Kutools for Excel, пожалуйста, сделайте следующее:(Бесплатная загрузка Kutools for Excel Сейчас!)
1. Нажмите Предприятие > Сочетать для отображения мастера объединения и отметьте Объединяйте и вычисляйте значения из нескольких книг на одном листе. Смотрите скриншот:
2. Нажмите Далее>> , чтобы перейти к Объединить рабочие листы - шаг 2 из 3 wizard и выполните следующие действия:
2) Проверьте имя книги, листы которой вы хотите объединить, вы можете выбрать несколько книг;
3) Отметьте рабочие листы, которые вы хотите объединить;
4) Нажмите
чтобы выбрать диапазон, который вы хотите объединить, если диапазоны помещаются в одно и то же место на каждом листе, просто нужно выбрать один диапазон из листа, затем щелкнуть Тот же диапазон.3. Продолжайте нажимать Далее>> и выберите функцию, которую вы хотите применить в объединенном диапазоне, и проверьте метки для объединенного диапазона. Смотрите скриншот:
4. Нажмите Завершить, и появится диалоговое окно с просьбой сохранить сценарий, нажмите Да для сохранения или нажмите Нет чтобы не спасти его.
Затем диапазоны объединяются в новую книгу.
Преимущество Kutools for ExcelАвтора Сочетать Функция заключается в том, что вы можете объединить несколько листов из открытых или неоткрытых книг в один лист или одну книгу.
Простое объединение / консолидация данных на основе одного и того же значения в Excel
|
| Предположим, вы работаете с листом, который содержит несколько повторяющихся записей, и теперь вам нужно объединить / объединить строки на основе одного и того же значения и выполнить некоторые вычисления, такие как сумма, среднее значение, количество повторяющихся строк. С этим Расширенные ряды комбинирования of Kutools for Excel, вы можете быстро объединить одинаковые значения / данные или повторяющиеся строки в соответствующие ячейки. Нажмите, чтобы получить полнофункциональную бесплатную пробную версию через 30 дней! |
 |
| Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. |
Относительные статьи
- Как объединить несколько ячеек с ведущими нулями в ячейку в Excel?
- Как сгенерировать список всех возможных комбинаций из 4 цифр в Excel?
- Как сохранить каждый лист в виде отдельного текстового файла из книги?
Лучшие инструменты для офисной работы
Усовершенствуйте свои навыки работы с Excel с помощью Kutools for Excelи испытайте эффективность, как никогда раньше. Kutools for Excel Предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Office Tab Добавляет в Office интерфейс с вкладками и значительно упрощает вашу работу
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
