Цикл с формулой тормозит

[Richard123]

Добрый день!

Решаю следующую задачу:

есть первая колонка с датой (ДД, ММ, ГГГГ, ЧЧ,ММ,СС,), значения которой нужно перевести в вид W xx Y xx (W - просто буква означающую "неделю", xx - номер (вычисляется), Y - год, хх - вычисляется.

Нашел 2 решения:

1. Просто (макрорекодер)

    With Range("C2")
        .FormulaR1C1 = _
        "=IF(RC[-2]>0,""W""&WEEKNUM(RC[-2],2)&"" Y""&(YEAR(RC[-2])-2000),"""")"
        .Copy
    End With
    Range("B2").End(xlDown).Offset(0, 1).Range("A1").Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste

2. Цикл

                     For RowVar = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
                        If Cells(RowVar, 1) <> 0 Then Cells(RowVar, 2).FormulaR1C1 = _
                           "=IF(RC[-2]>0,""W""&WEEKNUM(RC[-2],2)&"" Y""&(YEAR(RC[-2])-2000),"""")"

                     Next

Второй вариант предпочтительнее, как с точки зрения логики, так и процесса.

Проблема в том, что я не могу понять почему второй вариант протекает целые минуты (очень долго), когда первый (не смотря на свою топорность) делает это мгновенно?

Подскажите пожалуйста =)

[IgorGO]

предполагаю из-за количества прорисовок экрана
поставте перед циклом
Application.ScreenUpdating = False
после
Application.ScreenUpdating = True
это подтвердит или опровергнет мои педположения.

[EducatedFool]

Второй вариант предпочтительнее, как с точки зрения логики, так и процесса.

Предпочтительнее третий вариант)
а выглядеть он будет так:
1) в переменную RA типа RANGE заносим в цикле все ячейки из первого столбца, в которых есть дата
2) в диапазон на 2 столбца правее - RA.offset(,2) - одной строкой кода записывается формула:
RA.offset(,2).FormulaR1C1 = "=IF(RC[-2]>0,""W""&WEEKNUM(RC[-2],2)&"" Y""&(YEAR(RC[-2])-2000),"""")"

PS: Вообще, есть более быстрые и оптимальные варианты решения.
Но, не увидев вашего файла, сложно что-либо посоветовать

[Richard123]

Файл этой задачи там очень простой:
Есть 1 столбец ("A:A") в котором есть даты.

Выглядит он так:

Дата
27.09.2010 10:07:49
27.09.2010 10:15:45
27.09.2010 11:12:36
27.09.2010 11:16:45
27.09.2010 11:17:49
27.09.2010 11:44:22
10.10.2010 11:56:42
10.10.2010 11:58:53
10.10.2010 11:59:09
10.10.2010 11:59:59
10.10.2010 12:00:24
10.10.2010 12:06:45

Только строк порядка 50 000...


Можете показать как должен выглядеть код?

[EducatedFool]

А мы сейчас должны гадать, в каком формате даты находятся в ячейке - вдруг они так как текст сохранены?

Есть ли среди дат пустые ячейки?

Я же написал:

Но, не увидев вашего файла, сложно что-либо посоветовать

Неужто сложно выложить пример на 100-200 строк?

[Richard123]

Извиняюсь, вот файл.

[MCH]

может так подойдет (одной строчкой):

    Range(Cells(2, 3), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3)).FormulaR1C1 = _
        "=IF(RC[-2]>0,""W""&WEEKNUM(RC[-2],2)&"" Y""&YEAR(RC[-2])-2000,"""")"

[Richard123]

Спасибо всем большое!

Последний код работает, даже при условии что могут быть пустые ячейки)

Уважаемый MCH, не могли бы оказать такую любезность как описать работу кода. Я понимаю что скорее всего вопрос может быть глупым, но в голове пока ещё не сложилось четкое понимание "составного" диапазона ( когда Range состоит из Cells с Row.Count).

[IgorGO]

Range Вы можете описать как (НачальнаяЯчейка, [КонечнаяЯчейка]), где начальная и конечная ячейки любые синтаксически корректные ссылки на ячейки. если конечная ячейка пропущена значит указан диапазон состоящий из одной ячейки.
в качестве первого параметра еще может выступать строка, описывающая диапазон, например "А3" ячейка А3, "С2:Е100" диапазон, "1:10" 10 первых строк.

[Richard123]

Благодарю Вас, за разъяснения. Теперь стало более понятно.