Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA

@kirillsss · Регистрация: 10.01.2018

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

Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
Я пытался сделать вот такой строчкой, но не работает

ActiveCell.FormulaR1C1 = "=Итог" Sheets("Лист2").Cells(Rows.Count, "B").End(xlUp).Offset(1, -1)

@Alexey2014 · 03.09.2018, 14:50

kirillsss,

Visual Basic

1
2
3

Dim kolrow as Integer
kolrow=ActiveSheet.Cells(ActiveSheet.Rows.Count,2).End(xlUp).Row
ActiveSheet.Cells(kolrow+1,2).FormulaR1C1= "=SUM(R[-" & kolrow & "]C:R[-1]C)"

@kirillsss 0 / 0 / 0 Регистрация: 10.01.2018 Сообщений: 12
		1
	Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA 03.09.2018, 14:38. Показов 3055. Ответов 1 Метки нет (Все метки) Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA Я пытался сделать вот такой строчкой, но не работает ActiveCell.FormulaR1C1 = "=Итог" Sheets("Лист2").Cells(Rows.Count, "B").End(xlUp).Offset(1, -1) 0

	03.09.2018, 14:50