Как собрать все листы excel в одну книгу

Советы и лайфхаки по работе с Excel

Например, мы имеем много рабочих книг Excel, и мы хотим собрать все рабочие листы со всех рабочих книг в один файл. Для этого откройте книгу, куда вы хотите собрать все листы, откройте Visual Basic Editor ( Alt + F11 ), добавьте новый бланк модуля ( Insert — Module ) и скопируйте текст макроса туда:

Dim x As Integer

On Error GoTo ErrHandler

FilesToOpen = Application.GetOpenFilename _

(FileFilter:= «Microsoft Excel Files (*.xls), *.xls» , _

MultiSelect:= True , Title:= «Files to Merge» )

If TypeName(FilesToOpen) = «Boolean» Then

MsgBox «Have been chosen no files!»

После этого можете вернуться в Excel и запустить макрос через меню Tools — Macro — Macros (Alt + F8) . Появится диалоговое окно, где нужно выбрать один или несколько (удерживая Ctrl ) файлов, листы из которых мы хотим добавить к текущей книги.

Если вы используете другое расширение Excel файлов (например, *.xlsx, *.xlsm, *.xlsb и т.п.), то вам необходимо будет внести соответствующие изменения в седьмую строку кода макроса.

Как объединить листы в Еxcel в один

Описание работы

Коротенькое видео, демонстрирующее работу макроса по объединению листов в один.

Для того, чтобы объединить листы в один необходимо:Объединение листов excel в один

  1. Открыть диспетчер листов и выбрать листы, которые нужно объединить.
  2. Указать данные которые необходимо копировать. Можно скопировать все данные, или только предварительно выделенные диапазоны. Если указан пункт Область начиная с ячейки A1, то будут скопированы данные первого диапазона на листах.
  3. Указать, что делать с имеющимися на листах формулами. Вы можете преобразовать все формулы в значения или попытаться сохранить формулы.
  4. Данные с объединенных листов можно скопировать на отельный лист или указать место в существующем листе.
  5. Можно также отметить пункт Добавлять название листа в 1 столбец. В этом случае вы не перепутаете из какого листа были скопированы те или иные данные.
Ссылка на основную публикацию