Как в Excel данные нескольких листов перенести в один

В настоящее время практически невозможно себе представить работу с таблицами без приложения Excel. Все документы формата Excel по своей структуре разбиты на отдельные листы. Иногда во время работы приходится объединять данные с разных листов, для этого в программе, к сожалению, не предусмотрено никаких автоматических функций, все приходится делать вручную или с применением вспомогательных скриптов, так называемых «макросов».

Инструкция

  1. Для копирования нужной вам информации, откройте лист, на котором отображена нужная таблица. Далее необходимо нажать на правую нижнюю ячейку копируемой вами таблицы. После чего используйте комбинацию кнопок на клавиатуре Ctrl+Shift+Home для полного выделения вашей информации. Обратите внимание, что выделенной должна оказаться только таблица с нужной информацией, а не целый лист. После этого скопируйте таблицу в буфер обмена, нажатием клавиш CTRL+C.
  2. Далее необходимо открыть лист, на котором вы собираетесь вывести результат объединения. Установить курсор в место вставки, и установить скопированную ранее таблицу с помощью комбинации CTRL+V. Повторяйте эти действия со всеми таблицами, которые объединяете. После успешного объединения всей информации искомые листы удалите, если они больше не нужны, для этого кликайте по их ярлыкам в нижнем левом углу правой кнопкой мыши, далее жмите «Удалить» и подтвердите действие в появившемся окне подтверждения.
  3. Чтобы объединить большое количество листов вам потребуется установить на страницу кнопку с привязанным макросом. Для этого нужно в разделе «разработчик» в категории «Элементы управления» выбрать пункт «вставить», в появившемся списке нужно выбрать «Кнопка» — это самый верхний элемент.
    Элемент "Кнопка"
    Элемент «Кнопка»

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

  4. Далее появится новое окно «Назначить макрос объекту»,
    Функция "Назначить макрос объекту"
    Функция «Назначить макрос объекту»

    в нем выберите кнопку «создать». Откроется окно редактирования кода. Между строками нужно вести необходимые вам команды к примеру: s_ = Sheets.CountSheets.Add After:=Sheets(s_)For i = 1 To s_ r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row Sheets(i).Range(«A1», Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range(«a» & n_ + 1) n_ = n_ + r_Next. После введения команд просто закройте окно.

  5. В выбранной ранее вами ячейке появится созданная кнопка, нажав на нее программа автоматически создаст новый лист, на котором будут объединены все таблицы листов по вертикали.

Видео: Консолидация (сборка) данных из нескольких таблиц в Excel

Добавить комментарий