Ввод формулы макросом с изменяемым количеством строк

Пользователь

Сообщений: 56 Регистрация: 21.05.2014

14.04.2016 08:44:55

Доброго утра!
Макросом из личной книги обрабатываются ежедневные выгрузки с разным количеством данных. В конце обработки нужно посчитать количество оставшихся записей.
Как записать формулу для подсчёта в коде VBA, если количество строк всегда разное?
Спасибо!

Прикрепленные файлы

11.04.XLS (44.5 КБ)

Изменено: SNMel - 14.04.2016 09:10:20

LVL

Пользователь

Сообщений: 904 Регистрация: 01.01.1970

14.04.2016 09:11:12

Код
'Далее как? Cells(end_row + 1, 4).FormulaR1C1 = "=COUNTA(R[-" & (end_row - 2) & "]C:R[-1]C)"

kuklp

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

14.04.2016 09:17:55

Или:

Код
Cells(end_row + 1, 4).Formula = "=counta(" & "d2:d" & end_row & ")"

Изменено: kuklp - 14.04.2016 09:24:38

Я сам - дурнее всякого примера! ...

SNMel Пользователь Сообщений: 56 Регистрация: 21.05.2014	#4 14.04.2016 09:24:13 Отлично, спасибо! Только в варианте LVL, нужно (end_row - 1), иначе считает с 3 строки.

kuklp Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 14.04.2016 09:25:15 У меня можно проще, исправил. Я сам - дурнее всякого примера! ...