В нашей повседневной работе мы можем столкнуться с проблемой объединения сотен листов или книг в один лист для анализа данных, что занимает много времени, если вы используете команду «Копировать и вставить» в Excel. В этом уроке я дам несколько советов по быстрому решению этой задачи.
БЫСТРАЯ НАВИГАЦИЯ >Объединение всех листов активной книги в один лист с помощью VBA >Объединение десятков листов или книг в один лист / книгу с помощью щелчков мышью >Объединение двух таблиц в одну и обновление по столбцу кликами >Скачать образец файла

В этом разделе я предоставляю код VBA, который создаст новый лист для сбора всех листов активной книги, пока вы ее запускаете.

1. Активируйте книгу, все листы которой вы хотите объединить, затем нажмите другой + 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 key, то все данные на листах были объединены в новый лист с именем Combined, который помещается перед всеми листами.

Вы хотите повысить зарплату и много времени проводить с семьей? Вкладка Office повышает эффективность работы Microsoft Office на 50% прямо сейчас Невероятно, но работать с двумя или более документами проще и быстрее, чем над одним. По сравнению с известными браузерами инструмент с вкладками в Office Tab более мощный и эффективный. Сократите для вас сотни щелчков мыши и набора текста с клавиатуры каждый день, попрощайтесь с рукой мыши. Если вы обычно работаете с несколькими документами, вкладка Office поможет вам сэкономить время. 30- дневная бесплатная пробная версия, кредитная карта не требуется. Узнать большеСкачать сейчас

С помощью VBA вы можете объединять листы только в активной книге, но как вы можете объединить листы из книг в лист или книгу?

Объединение листов из книг в один лист

Объединение листов из книг в одну книгу

Для решения этой задачи и удовлетворения других требований по комбинации листов Сочетать функция была разработана с четырьмя комбинированными сценариями:

• Объедините несколько листов или книг на один лист
• Объедините несколько листов или книг в одну книгу
• Объединить листы с одинаковыми именами в один лист
• Объединяйте значения на листах или в книгах на один лист

Здесь в качестве примера рассматривается второй вариант:

Объедините несколько листов или книг в одну книгу

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Активируйте Excel, щелкните Кутулс Плюс > Сочетать, появится диалоговое окно, напоминающее вам, что книги, которые вы хотите объединить, необходимо закрыть. Нажмите OK для продолжения.

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

3. Нажмите Добавить > Файл or Папка чтобы добавить книги, которые вы хотите объединить, в Список рабочих книг панели, затем вы можете указать, какой лист будет объединен, проверив имена в Список рабочих листов панель. Нажмите Далее перейти к последнему шагу мастера.

4. На этом шаге укажите нужные вам настройки. Затем нажмите Завершить.

5. Появится окно, в котором вы выберете папку для размещения объединенной книги, затем нажмите Сохраните.

Теперь книги были объединены в одну книгу. И в начале всех листов также создается мастер-лист с именем Kutools for Excel, в котором перечислены некоторые сведения о листах и ​​ссылках для каждого листа.

Попробуйте! Попрощайтесь с мышиной рукой и шейным спондилезом

300 передовых инструментов Kutools for Excel решают 80% Задачи Excel за считанные секунды, избавят вас от тысяч щелчков мышью.

Легко справляйтесь с 1500 рабочими сценариями, не нужно тратить время на поиск решений, у вас будет много времени, чтобы наслаждаться жизнью. Ежедневно повышайте производительность на 80% для более чем 110000 высокоэффективных людей, включая вас. Больше не мучиться мучительными формулами и VBA, дайте своему мозгу отдых и радостное рабочее настроение. 30- дневная бесплатная пробная версия со всеми функциями, 30день назад деньги без причины. Лучшее тело создает лучшую жизнь.

Узнать больше Загрузить сейчас

Если вы хотите объединить две таблицы в одну и обновить данные на основе столбца, как показано на скриншоте ниже, вы можете попробовать Слияние таблиц полезности Kutools for Excel.

Kutools for Excel: более 200 удобных надстроек Excel для упрощения сложных задач в несколько кликов в Excel

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Нажмите Кутулс Плюс > Слияние таблиц включить Слияние таблиц Мастер.

Kutools for Excel

30-День бесплатной пробной версии 300 дополнительных инструментов Решить 80% Проблемы с Excel Повышение эффективности работы на 80% Станьте экспертом в области Excel, получите признание людей

2. На шаге 1 мастера вам необходимо отдельно выбрать диапазоны основной таблицы и таблицы поиска. Затем нажмите Далее.

3. Отметьте ключевой столбец, на основе которого вы хотите обновить данные в основной таблице. Нажмите Далее.

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

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

6. На последнем этапе мастера укажите необходимые параметры настройки. Затем нажмите Завершить.

Теперь в основной таблице были обновлены данные и добавлены новые данные на основе таблицы поиска.

Рекомендуемые инструменты для повышения производительности

Вкладка Office - просмотр, редактирование и управление документами с вкладками в Microsoft Office 2019 - 2003 и Office 365

Полнофункциональная бесплатная пробная версия за 30 дней

Профессиональная надстройка для ускорения работы Excel 2019-2007, сокращающая часы работы до секунд

Эта надстройка включает в себя десятки профессиональных групп, с более чем 300 опциями, которые автоматизируют большинство ваших повседневных задач в Excel и увеличивают вашу продуктивность как минимум на 50%. Например, группы опционов в один клик и пакетные преобразования.
Теперь это ваш шанс ускорить работу с Kutools for Excel!

Полнофункциональная бесплатная пробная версия за 60 дней