запись формулы из VBA в ячейку

[Partall]

народ, помогите плз. второй день парюсь. В чем ошибка? Ругается на подчеркнутое

Sub DeleteEmptyRows()
    LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 2 Step -1
        If ActiveSheet.Cells(r, 2) = 0 Then Rows(r).Delete
        ActiveSheet.Cells(r, 10).Formula = "=trunc(RC[-9])"
        ActiveSheet.Cells(r, 11).Formula = "=if(R[1]C[-1]>RC[-1];""Finish day"";if(RC[-1]>R[-1]C[-1];""Start day"";if(R[1]C[-1]<1;""Finish day"";"""")))"
       
    Next r

End Sub

[Hugo121]

У меня работает с разделителями запятыми.

[Partall]

вместо ; ?

[Hugo121]

Там где-то есть другие разделители?

[Partall]

а не подскажешь как оптимизировать этот скрипт для более быстрой работы

[Hugo121]

1.Если на процесс не влияют результаты свежезаведённых формул - отключите пересчёт на время работы.
2.Если на процесс не влияет удаление строк - удаляйте все сразу, а не по одной - варианты удаления есть разные, можно обсуждать.
3.Если нужны результаты, а не формулы - вычисляйте всё в коде. Может тогда и строки можно не удалять...

Т.к. нам задача не видна - больше сказать вроде нечего.

[Partall]

верные результаты появляются в следствии удаления строк

как сразу удалить все строки которые удовлетворяют условию?

если вставить формулу сразу в диапазон ячеек, это ведь должно сократить время выполнения?

[Hugo121]

Думаю что если вставить формулу сразу в диапазон ячеек это не сократит время пересчёта, а сократит лишь время вставления этой формулы, т.к. не будет перебора ячеек.
А удалить все строки можно или предварительным созданием диапазона или списка на удаление, или например сортировкой собрать все такие строки в кучку, или скрыть неудаляемые и удалить оставшиеся (но тут есть ограничения при реализации) или может ещё есть какие варианты... Всё зависти от неизвестной задачи.

[Partall]

задача такова:
дан csv файл в котором имеется информация о движении автомобиля. необходимо найти время начала движения автомобиля и время завершения движения за день в определенном диапазоне дат

[Hugo121]

Читаем текстовый файл построчно
ищем сочетание автомобиль|день
заносим в словарь если нет, с временем старта или финиша, или можно заносить два сочетания: автомобиль|день|старт и автомобиль|день|финиш
если уже есть - анализируем какие там значения старт-финиш, изменяем их на граничные
в конце процесса получаем искомое - всё в словаре, осталось извлечь что нужно.

Никаких формул и ячеек (и тормозов), Эксель только как держатель кода (хотя можно обойтись и без него) и как держатель выгруженных результатов (хотя можно обойтись и без него).