Просуммировать диапазон

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Просуммировать диапазон - Мир MS Excel

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

Просуммировать диапазон (Макросы/Sub)

Просуммировать диапазон

ant6729

Дата: Вторник, 30.01.2018, 00:47 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

[vba]

Код

Sub kkksd()
lr1 = Sheets("Ëèñò1").Cells(Rows.Count, 1).End(xlUp).Row + 1
lr2 = Sheets("Ëèñò1").Cells(Rows.Count, 2).End(xlUp).Row - 2
lr3 = Sheets("Ëèñò1").Cells(Rows.Count, 1).End(xlUp).Row

Set Rng = Range(Cells(lr1, "xxx"), Cells(lr2, "xxx"))

Rng.Select
Cells(lr3, 14) = WorksheetFunction.Sum(Selection)

End Sub

[/vba]

Добрый вечер..
Подскажите, пожалуйста, как просуммировать с определенного начала до определенного конца ячейки серые ячейки
Пробую через Selection додуматься, но не идет
Хочется воспользоваться просто lr

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

Ответить

ant6729

Дата: Вторник, 30.01.2018, 01:29 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Как вариант

[vba]

Код

Sub summa()
lr1 = Sheets("Ëèñò1").Cells(Rows.Count, 1).End(xlUp).Row + 1
lr2 = Sheets("Ëèñò1").Cells(Rows.Count, 2).End(xlUp).Row - 2
lr3 = Sheets("Ëèñò1").Cells(Rows.Count, 1).End(xlUp).Row

'Set Rng = Range(Cells(lr1, "M"), Cells(lr2, "M"))

Range("xxx").Value = Application.Sum(Range(Cells(lr1, "M"), Cells(lr2, "M")))

End Sub

[/vba]

Ответить

Просуммировать диапазон (Макросы/Sub)

Страница 1 из 1
1