Как собрать данные с нескольких листов в один основной лист в Excel?
Иногда возникает необходимость собрать данные с нескольких листов в один основной — например, для консолидации или других операций, как показано на скриншоте ниже. Но копировать и вставлять содержимое по одному листу утомительно. Существуют ли в Excel эффективные приёмы, позволяющие быстро справиться с этой задачей?
Сбор данных с нескольких листов в один с помощью функции «Консолидация»
Сбор данных с нескольких листов в один с помощью кода VBA
Сбор данных с нескольких листов в один с помощью мощной функции «Объединить»
Сбор данных с нескольких листов в один с помощью функции «Консолидация»
Если вы хотите собрать данные с нескольких листов в один лист той же книги, воспользуйтесь функцией «Консолидация» в Excel.
1. На новом листе книги, из которой вы хотите собрать данные с других листов, выберите Данные > Консолидация.
2. В диалоговом окне Consolidate выполните следующие действия:
(1 Выберите одну операцию, которую вы хотите выполнить после объединения данных, в раскрывающемся списке)Функция;
(2 Нажмите)
, чтобы выбрать диапазон каждого листа, данные с которого вы хотите собрать;
(3 Нажмите кнопку)Add, чтобы добавить Диапазон данных в список All references;
(4) Укажите метки, которые вы используете после объединения данных, и установите флажок Create links to source data, если хотите связать данные на объединённом листе с исходными данными.
3. Нажмите ОК. Теперь данные собраны и просуммированы на одном листе.
Легко объединяйте несколько листов или книг в один лист или одну книгу |
| Объединение нескольких листов или книг в один лист или одну книгу может быть утомительным в Excel, но с помощью функции Объединитьв Kutools для Excel вы можете объединить десятки листов или книг в один лист или одну книгу. Кроме того, вы можете свести все листы в один всего несколькими щелчками мыши.Нажмите для полнофункциональной бесплатной пробной версии на 30 дней! |
 |
| Kutools для Excel: более 300 удобных надстроек для Excel — попробуйте их бесплатно и без ограничений в течение 30 дней! |
Сбор данных с нескольких листов в один с помощью кода VBA
Ниже приведён код VBA, который собирает данные со всех листов в новый лист текущей книги.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Insert > Module, затем скопируйте и вставьте приведённый ниже код в сценарий Module.
VBA: сбор всех данных с листов в один.
Sub Combine()
'UpdatebyExtendoffice20180205
Dim I As Long
Dim xRg As Range
On Error Resume Next
Worksheets.Add Sheets(1)
ActiveSheet.Name = "Combined"
For I = 2 To Sheets.Count
Set xRg = Sheets(1).UsedRange
If I > 2 Then
Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
End If
Sheets(I).Activate
ActiveSheet.UsedRange.Copy xRg
Next
End Sub
3. Нажмите клавишу F5, чтобы запустить код. Все данные из всей книги будут собраны на новом листе «Combined».
Сбор данных с нескольких листов в один с помощью мощной функции Combine
Если вам часто требуется объединять листы в один, я рекомендую вам мощную функцию объединения — это утилита Kutools для Excel’s Объединить, которая имеет следующие четыре основные функции:
Объединение нескольких рабочих листов из книги в один рабочий лист
Объединить данные из нескольких книг с одинаковым именем листа
Копировать листы из нескольких книг в одну книгу
Объединить и вычислить данные из нескольких книг в один лист
После бесплатной установкиKutools для Excel выполните следующие действия:
Если вы просто хотите объединитьлисты в один лист без дополнительных операций, выполните следующие действия:
1. Запустите Excel и нажмите Kutools Plus > Combine. Появится одно или два диалоговых окна с уведомлениями — просто нажмите ОК и Да, чтобы продолжить. См. скриншот:
2. Нажмите ОК, чтобы открыть окно Combine, и установите флажок напротив опции Combine multiple worksheets from workbook into worksheet.
3. Нажмите Next, затем выберите Add > File / Folder, чтобы добавить книги, которые вы хотите объединить, в список Workbook list. После этого перейдите на вкладку Worksheet list и отметьте листы, которые нужно объединить из каждой книги.
4. Нажмите Next, чтобы перейти к последнему шагу, где можно настроить параметры результата объединения по своему усмотрению. Если этот шаг не требуется,
5. Нажмите Finish и выберите папку для сохранения новой рабочей книги, содержащей объединённые данные с листов.
6. Нажмите Сохранить. Теперь все данные с листов из разных книг успешно собраны на одном основном листе.
Если вы хотите консолидироватьрабочие листы из разных книг в один, выполните следующие действия:
1. В окне Combine установите флажок напротив опции Consolidate and calculate values across multiple worksheets into one worksheet.
2. Нажмите Next, затем добавьте файлы в список Workbook list и отметьте листы, которые вы хотите объединить и обработать.
3. Нажмите Next, затем выберите тип вычисления из раскрывающегося списка Function и задайте остальные необходимые параметры.
4. Нажмите Finish, чтобы сохранить новую рабочую книгу в папку.
Теперь листы из разных книг были консолидированы и обработаны в один лист.
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек