Сумма последних занятых строк

@0mega · Регистрация: 05.11.2013

Author24 — интернет-сервис помощи студентам

Sub no

Дано
таблица из 9 столбцов & Сумма
Иногда в таблицу вносят изменения (положит.числа>10, не во все столбцы)
Надо найти итоговую сумму
более подробно в файле

P.S.

Код

=ИНДЕКС(C1:C100;(ПОИСКПОЗ(0,1;C1:C100;-1)))

эта формула находит последнюю занятую строку одного столбца .
не получается загнать ее в СУММПРОИЗВ() или хотя бы в {массив}

~~Остап Бонд~~ · 11.03.2018, 08:02

Visual Basic

s = 0
ra = 0
For c = 3 To 8
  r = Cells(65536, c).End(xlUp).Row
  If r > ra Then ra = r
  s = s + Cells(r, c)
Next
Cells(ra, 10) = s

@0mega · 11.03.2018, 09:57 **[ТС]**

Остап Бонд, здравствуйте
спасибо за ответ
наверное, я не там разместил вопрос, но я не нашел просто Excel (без VBA)

мне надо ФОРМУЛЬНОЕ решение. В начале вопроса я сделал приписку "Sub no"

Но, уж, если так получилось, тогда вопросик по Вашему ответу
Я правильно понял, что команда

Visual Basic

1	r = Cells(65536, c).End(xlUp).Row

ищет снизу вверх первую занятою строку ?

@Казанский · 12.03.2018, 16:46

Сообщение от 0mega

я не нашел просто Excel (без VBA)

https://www.cyberforum.ru/ms-excel/
Может, и можно создать формулу для решения этой задачи, но сложно. Проще написать функцию на VBA

Visual Basic

Function SumLastRow(r As Range) As Double
Dim i&, n&, w As Worksheet
  Set w = r.Worksheet
  n = w.Rows.Count
  On Error Resume Next
  For i = r.Column To r.Column + r.Columns.Count - 1
    SumLastRow = SumLastRow + w.Cells(n, i).End(xlUp)
  Next
End Function

=SumLastRow(C:H) вернет требуемый результат.

@Vlad999 · 12.03.2018, 17:26

с доп. строкой можно и формулами.

@0mega · 13.03.2018, 15:42 **[ТС]**

Сообщение от Vlad999

с доп. строкой можно и формулами.

охотно ознакомлюсь

@Vlad999 · 13.03.2018, 16:01

формула же у вас есть.
вот.

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	12.03.2018, 17:26	5
	с доп. строкой можно и формулами. 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 305
	13.03.2018, 15:42 [ТС]	6
	Сообщение от Vlad999 с доп. строкой можно и формулами. охотно ознакомлюсь 0

	13.03.2018, 16:01