|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.02.2017, 12:41 | #1 |
Регистрация: 13.02.2017
Сообщений: 3
|
оптимизация кода макроса
Добрый день. Заранее прошу камнями не бросаться в меня, ибо не программист я))). Есть следующая задача: в excel есть след столбцы:
1 - подразделение 2 - ФИО 3 и послед. - это некие данные Так вот идет группировка по подразделению и ФИО, т.е. заполняется один раз и далее просто не заполняется ячейка в этом столбце до тех пор, пока не меняются данные в этом столбце. Написал следующий макрос, чтоб автоматически заполнять такие пропущенные ячейки (это нужно для того, чтоб можно было в дальнейшем пользоваться автофильтром), но он выполняется очень медленно. Помогите оптимизировать, плиз. Вот код: Sub macros1() Dim i As Long i = 3 Do While IsEmpty(Cells(i, 3).Value) = False If Cells(i, 2) = "" Then Range(Cells(i - 1, 1), Cells(i - 1, 2)).Copy Cells(i, 1) ElseIf Cells(i, 2) <> 0 And Cells(i, 1) = "" Then Cells(i - 1, 1).Copy Cells(i, 1) End If i = i + 1 Loop End Sub |
20.02.2017, 14:29 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Посмотрите здесь способ попроще
http://www.planetaexcel.ru/techniques/2/96/ там в комментах к статье есть примеры кода вот, например: Код:
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
оптимизация макроса в excel | dendodor | Microsoft Office Excel | 3 | 20.02.2017 13:55 |
Оптимизация макроса | Intension | Microsoft Office Excel | 8 | 12.08.2013 17:30 |
Оптимизация кода на C# | FiloXSee | Общие вопросы .NET | 4 | 24.09.2011 17:10 |
Оптимизация времени исполнения макроса | basil0 | Microsoft Office Excel | 12 | 06.12.2010 10:20 |
Оптимизация кода | Shouldercannon | Общие вопросы Delphi | 23 | 22.07.2010 22:45 |