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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

В промежуточные итоги вставить имя последней не пусто ячейки (Макросы/Sub)

timo64uk

Дата: Суббота, 09.11.2024, 12:37 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 1 ±

Замечаний: 0% ±

Office16

В ячейку "U1" помогите вставить формулу "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;U9:последняя заполненная ячейка столбца U)"
Где "последняя заполненная ячейка столбца U" ячейка из столбца "U" с неизвестной строкой.
Мои попытки: [vba]

Код

LC = .Cells(.Cells(.Rows.Count, 21).End(xlUp).Row, .Columns.Count).End(xlToLeft).Address
Range("U1").FormulaR1C1 = "=SUBTOTAL(9,R[8]C:LC)"

[/vba]
Отчего-то выделяет (.Rows

К сообщению приложен файл: 11112.xlsx (13.3 Kb)

Сообщение отредактировал timo64uk - Суббота, 09.11.2024, 12:46

Ответить

gling

Дата: Суббота, 09.11.2024, 14:33 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

Репутация: 706 ±

Замечаний: 0% ±

2010

Попробуйте так[vba]

Код

With ActiveSheet
LC = .Cells(.Cells(.Rows.Count, 21).End(xlUp).Row, .Columns.Count).End(xlToLeft).Row '.Address
.Range("U1").FormulaR1C1 = "=SUBTOTAL(9,R[8]C:R[" & LC - 1 & "]C)"
End With

[/vba]
Или формулой

Код

=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;U9:ИНДЕКС(U:U;ПОИСКПОЗ(9^9;U:U;1)))

Но не понятно для чего искать последнею строку, если указав границу диапазона с запасом нулевые значения всё равно на результат суммы не повлияют.