Суммирование до разрыва строки - VBA

Узнай цену своей работы

Формулировка задачи:

Доброго дня всем! Столкнулся с задачей просуммировать ячейки в одном столбец до разрыва и сумму записать всего этого безобразия. (пример во вложении) Поискав по ресурсам нашел два макроса которые делают примерно то, что мне надо.
и такой
но мозгов не хватает что бы его допилить под мое условие. Помогите плизз. Заранее спасибо!

Решение задачи: «Суммирование до разрыва строки»

textual
Листинг программы
Private Sub Test()
    Dim iSource As Range
    For Each iSource In Range("E:E").SpecialCells(xlConstants, xlNumbers).Areas
        iSource(0, 2) = Application.Sum(iSource)
    Next
End Sub

Оцени полезность:

5   голосов , оценка 4.6 из 5
Похожие ответы