|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.07.2011, 17:39 | #1 |
Новичок
Джуниор
Регистрация: 02.07.2011
Сообщений: 6
|
Как зациклить макрос?
В Excel необходимо проделать следующую процедуру 3500 раз:
1. Вырезать из ячеек В3:С3 и вставить в D2 (и соответственно E2), далее 2. Вырезать из ячеек В5:С5 и вставить в D4 и так далее, т.е. всегда вырезать из двух нечетных ячеек и вставлять в ячейку на одну выше и правее. И так 3500 раз. Помогите пожалуйста с макросом. Спасибо большое. |
02.07.2011, 17:51 | #2 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 56
|
Наверно так
sub tt() dim lRow as long, i as long application.ScreenUpdating = false lRow = Cells(Rows.Count, 2).End(xlUp).Row for i = 3 to lRow step 2 range(cells(i, "B"),cells(i,"C")).copy cells(i-1,"D") range(cells(i, "B"),cells(i,"C")).clearcontent next i end sub
обычно я на http://planetaexcel.ru/forum.php
|
02.07.2011, 18:25 | #3 | |
Новичок
Джуниор
Регистрация: 02.07.2011
Сообщений: 6
|
Цитата:
Только ошибку выдал: Объект не поддерживает свойство или метод? здесь - Range(Cells(i, "B"), Cells(i, "C")).clearcontent Может я что-то не так сделал? |
|
02.07.2011, 18:30 | #4 |
Новичок
Джуниор
Регистрация: 02.07.2011
Сообщений: 6
|
Когда я записывал макрос, он почему то так записался
Range("B3:C3").Select Selection.Cut Range("B5:C5").Select Selection.Cut Range("B7:C7").Select Selection.Cut Range("C6").Select End Sub Я не разбираюсь, конечно, но не вижу где же он вставляет? Если макрос правильный, нужно его зациклить прост. Спасибо. |
02.07.2011, 18:42 | #5 | |
Новичок
Джуниор
Регистрация: 02.07.2011
Сообщений: 6
|
Цитата:
Код:
Спасибо! |
|
02.07.2011, 18:53 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Вообще-то правильно ClearContents - вероятно поэтому и не работала строка.
Ну а если хотите строку удалять - тогда цикл нужно переделать, пускать снизу вверх. Тогда можно Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 02.07.2011 в 18:58. |
02.07.2011, 19:16 | #7 | |
Новичок
Джуниор
Регистрация: 02.07.2011
Сообщений: 6
|
Цитата:
Только дело за малым осталось - как пустить снизу вверх? )) Я сосем не понимаю VBA! Спасибо. |
|
02.07.2011, 19:40 | #8 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
02.07.2011, 20:36 | #9 | |
Новичок
Джуниор
Регистрация: 02.07.2011
Сообщений: 6
|
Цитата:
|
|
02.07.2011, 21:00 | #10 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Спасибо уходит Игорю - код его.
Хотя я тоже Игорь...
webmoney: E265281470651 Z422237915069 R418926282008
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Зациклить прогу - как? | boris-blade | Общие вопросы .NET | 1 | 25.03.2010 19:32 |
Не могу зациклить макрос | Frommerrr | Microsoft Office Word | 2 | 25.03.2010 10:57 |
Как зациклить макрос? | kapitel_bc@ukr.net | Microsoft Office Excel | 7 | 13.02.2010 23:48 |
Как правильно зациклить?) | Roman_ | PHP | 3 | 01.05.2009 15:56 |