|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.04.2010, 09:25 | #1 |
Форумчанин
Регистрация: 29.04.2009
Сообщений: 119
|
добавить строки
Привет профессионалам. Помогите пожалуйста, за два дня ничего не придумал. В книге 2 листа, на первом длинный список наименований, 400 строк, на втором список ссылок на список из первого, вида: ='Лист 1'!A1 и так далее. Надо на втором листе между строк с формулами вставить по 15 пустых строк. Через "вставить строку" долго и утомительно (400*15=6000), если через Ctrl выделять и вставлять строки, то все смещается, вверху появляютс лишние строки, внизу не хватает. Не могу решить задачу! Жду вашего решения, спасибо заранее.
|
05.04.2010, 09:44 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Для значений в столбце "A" на листе 2 (любых) можно выполнить следующий макрос:
Код:
Чем шире угол зрения, тем он тупее.
|
05.04.2010, 09:56 | #3 |
Форумчанин
Регистрация: 29.04.2009
Сообщений: 119
|
Я извиняюсь, но не знаю как этот текст макроса куда и как прописывать, умею только вручную макросы писать, по порядку действий.
|
05.04.2010, 10:07 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Откройте Ваш файл, нажмите Alt+F11. Клик правой кнопкой - "Insert" - "Module". В созданное окно скопируйте представленный код. Закройте VBE. После этого макрос "InsRows" появится в списке макросов. Запустите его.
Чем шире угол зрения, тем он тупее.
|
05.04.2010, 10:32 | #5 |
Форумчанин
Регистрация: 29.04.2009
Сообщений: 119
|
К сожалению, не получается, пишет: "ошибка запуска макроса Visual Basis из-за синтаксической ошибки". Может, из-за того что лист называется "размеры"?
|
05.04.2010, 10:44 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. На листе "Лист2" в диапазоне "A1:A40" ячейки со ссылками. Запустите макрос "InsRows". Макрос после каждого значения будет добавлять 15 пустых строк до тех пор, пока не встретит пустую ячейку в столбце "A". Так нужно было?
Чем шире угол зрения, тем он тупее.
|
05.04.2010, 10:59 | #7 |
Форумчанин
Регистрация: 29.04.2009
Сообщений: 119
|
Да, именно так и нужно было, не знаю, почему он в моей книге не срабатывал, ну ладно, сделаю другую, на основе Вашей. Спасибо огромное!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добавить текст в конце каждой строки memo | donpizzz | Компоненты Delphi | 4 | 20.05.2012 16:25 |
Добавить пустые строки в список | KNatalia | Microsoft Office Excel | 5 | 30.09.2009 08:35 |
Перенести символа с начала строки в место перед запятой этой же строки. | Zhiltsov | Microsoft Office Excel | 4 | 05.06.2009 13:10 |
как добавить строку в конец строки | Damhurz | PHP | 4 | 16.04.2009 14:35 |
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй | gotex | Помощь студентам | 4 | 08.05.2008 02:27 |