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

Чаще всего работать с табличными данными в офисе или дома приходится в табличном редакторе Microsoft Office Excel. Каждый файл этого приложения содержит один документ, разделенный на отдельные листы с электронными таблицами. Увы, среди команд приложения нет функции автоматического объединения нескольких листов документа в один. Тем не менее, такая задача возникает не так уж редко, и решать ее приходится либо «вручную», либо с использованием скриптов - «макросов».
Вам понадобится
  • Табличный редактор Microsoft Office Excel 2007 или 2010.
Инструкция
1
Если свести в один нужно не очень большое число листов, это нетрудно сделать простой комбинацией операций копирования и вставки. Выберите лист, на котором будут объединены все таблицы - сводный. Если он уже содержит данные, установите курсор ввода в первую ячейку добавляемой области - в ячейку первой строки правее крайнего столбца при добавлении данных по горизонтали или в ячейку первой колонки ниже последней строки при добавлении по вертикали.
2
Перейдите на лист, данные которого требуется добавить в сводный, и кликните правую нижнюю ячейку с данными. Нажмите сочетание клавиш Ctrl + Shift + Home, чтобы выделить всю таблицу. Обратите внимание, что выделить надо только ячейки с данными, а не все содержимое листа, иначе при вставке Excel выдаст сообщение об ошибке. Пометите скопированную область в буфер обмена - нажмите комбинацию клавиш Ctrl + C.
3
Вернитесь на сводный лист и вставьте скопированное - нажмите «горячие клавиши» Ctrl + V. Повторите операции позиционирования, копирования и вставки нужное число раз, если требуется объединить больше двух листов. По окончании процедуры скопированные листы можно удалить - кликайте их ярлычки правой кнопкой мыши, выбирайте пункт «Удалить» и нажимайте кнопку «Да» в диалоге подтверждения операции.
4
Если объединяемых листов достаточно много, придется воспользоваться скриптом, т.е. поместить в страницу кнопку и привязать к ней соответствующий макрос. Для этого надо воспользоваться вкладкой «Разработчик». Если она не отображается в меню, кликните свободное пространство на любой вкладке правой кнопкой мыши и выберите пункт «Настройка ленты». В списке «Основные вкладки» поставьте отметку у надписи «Разработчик» и нажмите OK.
5
На вкладке «Разработчик» раскройте выпадающий список «Вставить» из группы команд «Элементы управления» и выберите в нем самый первый элемент - кнопку. Затем щелчком мышки укажите место в таблице, куда надо поместить кнопку, и на экране появится диалоговое окно «Назначить макрос объекту».
6
Нажмите кнопку «Создать» и между первой и последней строками кода в открывшемся окне введите, например, такой набор команд: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Закройте редактор макросов.
7
Щелкните по созданной кнопке, и назначенный ей макрос создаст новый лист, в котором объединит содержимое всех остальных, сцепив их по вертикали.

Совет 2: Как в excel перенести строку

Строками в табличном редакторе Microsoft Office Excel не всегда называют то же самое, что имеется в виду при работе с обычным текстом - в этом приложении такое определение дают ряду ячеек таблицы. Поэтому и объектом операции переноса здесь может быть как горизонтальная группа ячеек таблицы, так и помещенная в отдельную ячейку строка текста.
Вам понадобится
  • Табличный редактор Microsoft Office Excel 2007 или 2010.
Инструкция
1
Запустив табличный редактор, загрузите в него нужную электронную таблицу и выделите строку, которую надо перенести в другое место этой таблицы. Для этого кликните левой кнопкой мыши по заголовку нужного ряда ячеек - клетке с порядковым номером ряда, помещенной левее первой колонки.
2
Вырежьте выделенную строку - нажмите сочетание клавиш Ctrl + X или кликните выделение правой кнопкой мыши и выберите команду «Вырезать» в контекстном меню.
3
Выделите тот ряд таблицы, перед которым нужно разместить переносимую строку, и вновь раскройте контекстное меню - кликните выделение правой кнопкой мыши. На этот раз выберите команду «Вставить вырезанные ячейки» и операция переноса строки будет завершена.
4
Если требуется не перемещение строки, а вставка в определенное место текста одной из ячеек непечатаемого символа «конец строки», начните с включения режима редактирования этой ячейки. Для этого выделите ее и дважды кликните левой кнопкой мыши или нажмите клавишу F2. Затем переместите курсор ввода в нужную позицию и нажмите сочетание клавиш Alt + Enter. Весь оставшийся справа от курсора текст ячейки будет перенесен на следующую строку.
5
При необходимости автоматически вставить переносы во все ячейки электронной таблицы, которые содержат текстовые строки, не вмещающиеся в ширину колонки, выделите всю таблицу - нажмите сочетание клавиш Ctrl + A. Если текст размещен не во всех колонках и строках, можно выделить только нужную область таблицы. Затем на вкладке «Главная» в меню Excel нажмите кнопку «Перенос текста» - она помещена в правый верхний угол группы команд «Выравнивание».
6
Этого же эффекта можно добиться и другим способом. После выделения нужной области таблицы кликните ее правой кнопкой мыши и в контекстном меню выберите строку «Формат ячеек». Откроется отдельное окно, в котором перейдите на вкладку «Выравнивание» и поставьте метку в поле «Переносить по словам». Затем нажмите кнопку OK, и задача будет решена.
Источники:
  • как объединить листы в excel
Поиск
Совет полезен?
Комментарии 2
Пожаловаться
написал(а)
Спасибо, наконец то нашел работающий код.
Одна проблема осталась. Как объединять строки с листов, только имеющих определенное значение в одном из столбцов? Например значение "AB" в столбце "J".
Пожаловаться
написал(а)
скажите почему данный код может не работать? При закрытии редактора макросов выдает ошибку "This command will stop the debugger", а при клике на кнопку - "Syntax error"
все таблицы в листах имеют одинаковую структуру, никаких фильтров...
Добавить комментарий к статье
Осталось символов: 500
к
Honor 6X Premium
новая премиальная версия
узнать больше