Как объединить или свести несколько листов или книг в один лист?
В повседневной работе вам может понадобиться объединить сотни листов или книг в один — например, для анализа данных. Делать это вручную с помощью «Копировать и вставить» в Excel отнимает массу времени. В этом руководстве я поделюсь несколькими эффективными способами быстро справиться с этой задачей.
БЫСТРОЕ НАВИГАЦИОННОЕ МЕНЮ
Объединение всех листов из Текущая книга в один лист с помощью VBA
Объединение десятков листов или книг в один лист/книгу в несколько кликов
Объединение двух таблиц в одну и обновление по столбцу в несколько кликов
Скачать образец файла
Объединение всех листов из Текущая книга в один лист с помощью VBA
В этом разделе представлен код VBA, который при запуске создаёт новый лист и собирает на него все листы из текущей книги.
1. Активируйте книгу, листы которой вы хотите объединить, затем нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В открывшемся окне выберите Вставка > Модуль, чтобы создать новый модуль.
3. Скопируйте приведённый ниже код и вставьте его в скрипт.
Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
4. Нажмите клавишу F5, и все данные со всех листов автоматически объединятся в новый лист с именем Combined, который появится в начале книги.
Объединение десятков листов или книг в один лист/книгу в несколько кликов
С помощью VBA можно объединять только листы внутри одной Текущая книга, но как объединить листы из разных книг в один лист или книгу?
Объединение листов из разных книг в один лист 
Объединение листов из разных книг в одну книгу 
Для решения этой задачи и удовлетворения других требований к объединению листов была разработана функция Объединитьс четырьмя сценариями объединения:
- Объединение нескольких листов или книг в один лист
- Объединение нескольких листов или книг в одну книгу
- Объединение одноимённых листов в один лист
- Сведение значений из разных листов или книг в один лист
В качестве примера рассмотрим второй вариант:
Объединение нескольких листов или книг в одну книгу
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Запустите Excel и нажмите KUTOOLS PLUS > Объединить. Появится диалоговое окно с напоминанием, что книги, которые вы хотите объединить, должны быть закрыты. Нажмите ОК, чтобы продолжить.
2. В диалоговом окне Объединить листы шаг 1 установите флажок напротив опции Копировать листы из нескольких книг в одну книгу. Нажмите Далее, чтобы перейти к следующему шагу мастера.
3. Нажмите Добавить → Файл или Папка, чтобы добавить нужные книги в панель Список книг. Затем отметьте галочками имена листов, которые необходимо объединить, в панели Список листов. Нажмите Далее, чтобы перейти к последнему шагу мастера.
4. На этом шаге задайте необходимые параметры, затем нажмите Готово.
5. Появится окно, в котором вы сможете выбрать место для сохранения объединённой книги. Выберите папку и нажмите Сохранить.
Теперь книги объединены в одну. Кроме того, в начале всех листов создан главный лист с именем Kutools для Excel, содержащий информацию о листах и ссылки на каждый из них.
Объединение двух таблиц в одну и обновление по столбцу в несколько кликов
Если вы хотите объединить две таблицы в одну и обновить данные на основе определённого столбца, как показано на скриншоте ниже, воспользуйтесь утилитой Объединить таблицы из Kutools для Excel.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Нажмите KUTOOLS PLUS > Объединить таблицы, чтобы запустить мастер Объединить таблицы.
2. На шаге 1 мастера последовательно укажите диапазоны основной и справочной таблиц, затем нажмите Далее.
3. Установите флажок напротив ключевого столбца, на основе которого будут обновляться данные в основной таблице, и нажмите Далее.
4. Отметьте в основной таблице столбцы, данные в которых нужно обновить на основе справочной таблицы. Нажмите Далее.
5. На шаге 4 мастера отметьте столбцы из справочной таблицы, которые нужно добавить в основную таблицу, и нажмите Далее.
6. На последнем шаге мастера задайте необходимые параметры настройки, затем нажмите Готово.
Теперь основная таблица обновлена и дополнена новыми данными на основе справочной таблицы.
Скачать образец файла
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек