Советы и лайфхаки по работе с 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 в один
Описание работы
Коротенькое видео, демонстрирующее работу макроса по объединению листов в один.
Для того, чтобы объединить листы в один необходимо:
- Открыть диспетчер листов и выбрать листы, которые нужно объединить.
- Указать данные которые необходимо копировать. Можно скопировать все данные, или только предварительно выделенные диапазоны. Если указан пункт Область начиная с ячейки A1, то будут скопированы данные первого диапазона на листах.
- Указать, что делать с имеющимися на листах формулами. Вы можете преобразовать все формулы в значения или попытаться сохранить формулы.
- Данные с объединенных листов можно скопировать на отельный лист или указать место в существующем листе.
- Можно также отметить пункт Добавлять название листа в 1 столбец. В этом случае вы не перепутаете из какого листа были скопированы те или иные данные.