Прерывающийся диапазон с суммированием - VBA

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

Вопрос в картинке

Решение задачи: «Прерывающийся диапазон с суммированием»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iSource As Range
    For Each iSource In [A:A].SpecialCells(xlConstants, xlNumbers).Areas
        iSource(1, 2) = Application.Sum(iSource)
    Next
End Sub
                        

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

11 голосов , оценка 3.455 из 5

Похожие ответы