VBA配方不太好

我正在编程vba中的下一个公式

ActiveSheet.Cells(ActiveCell.Row, 1).Select ActiveCell.Offset(0, 7).Select With ActiveCell .formula = "=SUM(" & .Offset(1, 0).Address(0, 0) & ":" & _ .End(xlDown).Offset(0, 0).Address(0, 0) & ")" End With 

它导致我一些问题，因为如果我运行macros一次只需要在公式中的1行：= SUM（H11：H11），但是如果我运行它两次它完美的作品，取得总和所有的值，直到工作表中第一个空白单元格。

你能帮助我改善我的macros观，从第一轮运行正常吗？

感谢您的关注和提前

最好的问候，塞尔吉奥

Answer 1

尝试这个：

 With ActiveCell lastrow = Cells(Rows.Count, .Column).End(xlUp).Row .Formula = "=SUM(" & .Offset(1, 0).Address & ":" & Cells(lastrow, .Column).Address & ")" End With 

Answer 2

这是你正在尝试？

 With ActiveCell .Formula = "=SUM(" & _ .Offset(1, 0).Address & ":" & _ .Offset(1, 0).End(xlDown).Address & _ ")" End With 

顺便利用读