Вставка формулы

@sashaoren · Регистрация: 10.10.2016

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

Прошу не ругать сильно, но что то не могу сообразить как сделать, имеется таблица, в последнем столбце количество строк изменчиво, как сделать макросом или еще как чтобы в ячейку вставить формулу сумм(по верхним ячейкам) Пример имеется. Вручную не вариант, т.к. данных бывает и за 10000 а строк бывает по 2 или 6... даже если поиск пустой ячейки, потом она будет заполнена и уже не так формула будет(
Заранее спасибо!

@Казанский · 05.11.2016, 12:43

sashaoren,

Visual Basic

Sub bb()
Dim a As Range
    'вместо "А" поставьте реальную букву или номер столбца
  For Each a In Columns("A").SpecialCells(xlCellTypeConstants, xlNumbers).Areas
    a.Cells(a.Rows.Count + 1).FormulaR1C1 = "=SUM(R[-" & a.Rows.Count & "]C:R[-1]C)"
  Next
End Sub

@sashaoren · 05.11.2016, 18:26 **[ТС]**

Спасибо большое!

@sashaoren 1 / 1 / 0 Регистрация: 10.10.2016 Сообщений: 23
	05.11.2016, 18:26 [ТС]	3
	Спасибо большое! 0