Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Слияние листов с одинаковыми заголовками по VBA

Консолидация листов Excel с одинаковыми заголовками с помощью функции консолидации

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

Легко объединить несколько листов / книгу в один отдельный лист или книгу

Чтобы объединить несколько листов или книг в один лист или книгу, может случиться в Excel, но с Сочетать функцию в Kutools для Excel, вы можете объединить множество листов / книг в один лист или книгу, а также объединить листы в один на несколько кликов. Нажмите, чтобы получить полнофункциональную бесплатную пробную версию 60!
объединить листы
Kutools for Excel: с более чем 300 удобными надстройками Excel, без ограничений в 60-дни.

arrow синий правый пузырь Слияние листов с одинаковыми заголовками по 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, и появится диалоговое окно для ввода номера строк заголовка. Смотрите скриншот:

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

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

doc объединить тот же заголовок 1
doc больше
doc объединить тот же заголовок 2
doc больше
doc объединить тот же заголовок 3
doc вертикальный равный
doc объединить тот же заголовок 3

Наконечник:

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

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

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


arrow синий правый пузырь Консолидация листов Excel с одинаковыми заголовками с помощью функции консолидации

Просмотр вкладок и редактирование нескольких книг Excel / документов Word как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько книг Excel или документы Word в одном окне Excel или Word и легко переключаться между ними, нажимая их вкладки. Нажмите на бесплатную 45-дневную пробную версию Office Tab!

ot excel

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Консолидация нескольких листов с одинаковыми заголовками

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

После установки Kutools для Excel, пожалуйста, сделайте следующее:(Скачать Kutools для Excel сейчас!)

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

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

doc объединить тот же заголовок 13
doc объединить тот же заголовок 14

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

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

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

doc объединить тот же заголовок 16

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

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

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

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

Консолидация нескольких листов с одинаковыми заголовками

После установки Kutools для Excel, пожалуйста, сделайте следующее:(Скачать Kutools для Excel сейчас!)

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

doc объединить тот же заголовок 19

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

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

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

doc объединить тот же заголовок 21

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

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

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

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

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

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

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


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    daniel · 2 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Ezequiel Zavaleta · 3 months ago
    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?
    • To post as a guest, your comment is unpublished.
      Sunny · 2 months ago
      Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: support@extendoffice.com our team will solve your problems as soon as possible.
  • To post as a guest, your comment is unpublished.
    wayne · 8 months ago
    perfect, thank you
  • To post as a guest, your comment is unpublished.
    Gio · 8 months ago
    How can I combine only sheets with same header ignoring other sheets?
  • To post as a guest, your comment is unpublished.
    Charles · 9 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Sarang · 10 months ago
    I want to combine sheets... but I also want to add a column ("A") in new sheet (combined) where the name of the sheet "Sheet1", "Sheet2" will be placed on all rows copied from respected sheets.. so i will know which data has come from which sheet.
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      You can try Kutools' Combine function, it can insert the data information of each sheet in the front of data in combined sheet.
  • To post as a guest, your comment is unpublished.
    Steven · 1 years ago
    I have the same problem as Saurabh. It merges the worksheets and has a blank row after each data from the worksheet is copied. However, the header is not copied to the new "Combined" worksheet either. I'm using Excel 2016. Thank you for the code, it does help minimize the time I spend. I don't think I'll be able to figure out the issue with the code and hope that you can look into it. Thanks again.
  • To post as a guest, your comment is unpublished.
    vinay naik · 1 years ago
    Hello,


    I have checked your VB formula for VBA: Merge sheets with same headers its absolutely helpful to me, but i need little support I want to create macro for this file. Like I have to to download file every time save with some unique name & run macro to combine sheet.

    Please confirm.
  • To post as a guest, your comment is unpublished.
    Saurabh · 1 years ago
    I used 'VBA: Merge sheets with same headers' but it leaves a row empty after each sheet data how do I correct this. It is possible to modify the code?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      I do not know why a empty row leave while you merging the data by using the VBA, that do not happen to me. If there are some blank rows needed to be remove, you can press F5 to open Go To dialog, and click Special > Blanks to select all blank cells, the right click to remove the blank rows.

      But with the Go To Special function, it will select blank cells not the blank rows which not work well while a row has data missing. In this case, you can apply Kutools for Excel's Delete Blank Rows, which can remove empty rows in selection, active worksheet, selected sheets or whole workbook.