Сумма

[ruvster]

1. В столбце “b” начиная с третьей строки неизвестное кол-во строк с числами.
Как высчитать сумму этих чисел и записать ее в ячейке под числами?
Спасибо.

[K.Sergey]

Вот так, например:

Код: Выделить всё

Sub MySum()
    Dim LastRow As Long
    LastRow = ActiveSheet.Cells(3, 2).End(xlDown).Row
    If LastRow > 65000 Then LastRow = 3
    ActiveSheet.Cells(LastRow + 1, 2).FormulaR1C1 = "=SUM(R[-" & LastRow - 2 & "]C:R[-1]C)"
End Sub

[uhm]

LastRow > 65000

Приближенные вычисления?

[K.Sergey]

LastRow > 65000

Приближенные вычисления?

Ага.
Хотя, это даже предпочтительней чем = 65536, т.к. фиг его знает - может до этого сбой был и в последней строке уже записано какое-то значение (нашей же процедурой).

[ruvster]

Да. Это хорошо, но между числами может быть свободная ячейка. Как с этим справиться?

[GSerg]

with worksheets(1).usedrange
worksheets(1).cells(.rows(.rows.count).row+1,2).formula="=sum(b3:b" & .rows(.rows.count).row & ")"
end with