Розделение книги на несколько других

Пользователь

Сообщений: 12 Регистрация: 12.11.2013

22.05.2015 10:39:28

Доброе время суток.

У меня вопрос к знатокам Excel-а. У меня есть база, в которой 5 листов, на каждом листе одинаковое количество столбцов. Нужно эту базу поделить по значениях в первом столбце(допустим) на отдельные книги. Книга должна имеет название такое же, как и значение в первом столбце(по которому происходит разбивка). И так каждый лист.

Пример файла в прикреплении. Искомый результат: 3 книги(a,b,c), в каждой по 5 листов(как в исходной), и в одной книге на всех листах только строки с одинаковыми значениями в первом столбце.

Спасибо за помощь

Прикрепленные файлы

exmpl.xlsx (14.17 КБ)

Karataev

Пользователь

Сообщений: 2309 Регистрация: 23.10.2014

19.06.2015 23:10:55

макрос запускается с первого листа кнопкой(столбец H).
макрос создает папку в том же месте,где находится файл с макросом. В эту папку сохраняются файлы Excel

Прикрепленные файлы

macro.xlsm (32.87 КБ)

Изменено: Karataev - 19.06.2015 23:38:41

Johny

Пользователь

Сообщений: 2737 Регистрация: 21.12.2012

19.06.2015 23:22:18

@Karataev

Код
If lr < 2 Then GoTo metka End If

А что - без GoTo нельзя тут было обойтись? Например, написать "If lr >=2"?

There is no knowledge that is not power

Sanja

Модератор

Сообщений: 16552 Регистрация: 10.01.2013

19.06.2015 23:35:47

Цитата
Johny написал: Например, написать "If lr >=2"?

Вот взяли-бы и написали, а то критиковать каждый...

Согласие есть продукт при полном непротивлении сторон

Karataev Пользователь Сообщений: 2309 Регистрация: 23.10.2014	#5 19.06.2015 23:40:58 Johny мне так удобнее код читать. К тому же у меня в коде два перехода к метке