Как найти последнее искомое значение в столбце?

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

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

06.06.2012 09:16:13

Имеется столбец с числовыми значениями "Количество", каждый раз при достижении значения "0" начинается новый расчетный период. Задача найти последнее нулевое значение в столбце и рассчитать сумму последующих значений. Решение может быть как в виде формулы так и на vba.

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

post_338857.xlsx (10.28 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 06.06.2012 09:22:25 Читаем справку по find, обращаем внимание на параметр SearchDirection. Я сам - дурнее всякого примера! ...

Юрий М Модератор Сообщений: 61058 Регистрация: 14.09.2012 Контакты см. в профиле	#3 06.06.2012 09:25:17 Ага :-) Sub SummUnderZero() Dim Rng As Range, LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row Set Rng = Columns(1).Find(what:=0, LookIn:=xlValues, lookAt:=xlWhole, SearchDirection:=xlPrevious) If Not Rng Is Nothing Then Cells(1, 4) = Application.WorksheetFunction.Sum(Range(Cells(Rng.Row + 1, 1), Cells(LastRow, 1))) End If End Sub

MCH Пользователь Сообщений: 3906 Регистрация: 22.12.2012	#4 06.06.2012 09:27:21 формула массива (вводится нажатием ctrl+shift+enter): =СУММ(ИНДЕКС(A2:A17;ПОИСКПОЗ(2;1/(A2:A17=0))):A17)

TankSpb Пользователь Сообщений: 214 Регистрация: 01.01.1970	#5 06.06.2012 09:35:17 Всем большое спасибо! Ушел учить мат. часть))